Note: The other languages of the website are Google-translated. Back to English

Cum să completați automat subiectul e-mailului cu numele atașamentului în Outlook?

Pentru cei care sunt obișnuiți să folosească numele atașamentului ca subiect al unui e-mail în Outlook, introducerea manuală a numelui atașamentului în rândul subiectului de fiecare dată va fi consumatoare de timp. După cum se arată în gif-ul de mai jos, dacă doriți să completați automat linia de subiect al e-mailului cu numele atașamentului atunci când introduceți un atașament, metoda VBA din acest tutorial vă va ajuta.


Completați automat subiectul e-mailului cu numele atașamentului cu cod VBA

Rulați următorul cod VBA pentru a completa automat subiectul e-mailului cu numele atașamentului inserat în Outlook.

1. Lansați Outlook, apăsați butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Project1 (VbProject.OTM) > Obiecte Microsoft Outlook > Această sesiune Outlook pentru a deschide ThisOutlookSession (Cod) Editor.

3. Apoi copiați următorul cod VBA în fișierul ThisOutlookSession (Cod) Editor.

Cod VBA: completați automat subiectul e-mailului cu numele atașamentului

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

4. Acum trebuie să salvați codul și să reporniți Outlook.

5. De acum înainte, când inserați un atașament într-un e-mail care nu are încă un subiect completat, un Kutools pentru Outlook va apărea caseta de dialog care vă va întreba dacă doriți să utilizați numele atașamentului ca subiect, faceți clic pe Da butonul.

Apoi linia de subiect va fi completată automat cu numele atașamentului inserat.

notițe:

1) Dacă ați completat deja subiectul, inserarea unui atașament nu va apărea caseta de dialog.
2) Dacă eliminați un subiect existent din e-mailul curent, dar cursorul este încă afișat în linia de subiect, nici inserarea unui atașament nu va afișa caseta de dialog. După eliminarea subiectului, trebuie să faceți clic departe de linia de subiect pentru a reîmprospăta caseta de mesaj pentru ca codul să funcționeze.
3) Dacă introduceți mai multe atașări în același timp, doar numele primului atașament poate fi folosit ca subiect al e-mailului.

Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (7)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и более фай лоз фай лоз? Может в данном коде дописать или вообще другой существует? Заранее спасибо
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Александр,

Vrei să spui să adăugați mai multe atașamente în timp ce adăugați acele nume de atașamente în același timp la subiect și apoi să le legați cu AND?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Acest comentariu a fost redus la minimum de moderatorul de pe site
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Александр,

The following VBA code can help to solve your problem. Please give it a try.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
  GFileName = ""
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then
    GFileName = ""
    Exit Sub
  End If
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL