Utilizați adesea numele atașamentului ca subiect de e-mail în Outlook? Dacă da, trebuie să sperați că Outlook îl poate finaliza automat. Acest articol va introduce o metodă la îndemână pentru a o realiza cu Outlook VBA.
Mulți utilizatori sunt obișnuiți să introducă manual numele atașamentului în subiectul e-mailului. Într-un astfel de scenariu, dacă Outlook poate face acest lucru automat, va fi mult mai convenabil. De asemenea, unii utilizatori uită adesea să completeze subiectul. Așadar, atunci când apasă butonul „Trimite”, vor primi un mesaj de avertizare „fără subiect”. Într-un astfel de caz, dacă Outlook poate completa automat subiectul cu numele atașamentului, vor putea evita avertismentul enervant „fără subiect”. Pe scurt, se crede că mulți utilizatori Outlook își doresc o astfel de metodă care să permită Outlook să completeze automat subiectul e-mailului cu numele atașamentului. Din fericire, cu ajutorul Outlook VBA, putem realiza acest lucru cu maximă ușurință. Iată codurile și pașii VBA elaborați.
Completați automat linia de subiect al e-mailului cu numele atașamentului
- În primul rând, puteți deschide Outlook și comuta la fila „Dezvoltator”.
- Apoi, sub această filă, ar trebui să faceți clic pe butonul „Visual Basic”, care va arăta editorul VBA.
- În fereastra ulterioară, mai întâi ar trebui să localizați proiectul „ThisOutlookSession” în lista de proiecte din partea dreaptă.
- Urmează dublu clic pentru a deschide acest proiect. Și apoi copiați următoarele coduri în el.
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem
Private Sub Initialize_handlers()
Set olInspectors = Application.Inspectors
End Sub
Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
Dim olItem As Object
Set olItem = Inspector.CurrentItem
If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub
Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
If olMail.Subject = "" Then
'If you don't want the prompt,
'Just delete the Msgbox line and its corresponding "End if".
If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
olMail.Subject = Attachment.DisplayName
End If
End If
End Sub
- După aceea, trebuie să continuați să atribuiți un certificat digital proiectului VBA curent în mod normal.
- În primul rând, utilizați utilitarul încorporat „Certificate digitale pentru proiecte VBA” pentru a genera un certificat digital.
- Ulterior, puteți semna macrocomanda curentă.
- Mai târziu, ieșiți din editorul VBA și modificați setările macro în „Notificări pentru macrocomenzi semnate digital, toate celelalte macrocomenzi dezactivate”.
- În sfârșit poți încerca.
- Creați un e-mail nou.
- Dacă nu ați completat subiectul și intenționați să atașați un fișier, veți primi un mesaj, precum următoarea imagine:
- Când selectați „Da”, subiectul va fi completat cu numele atașării imediat.
Faceți față problemelor frecvente cu Outlook
Cu condiția că ați folosit Outlook de zeci de ani, trebuie să fi întâmpinat o mulțime de probleme cu Outlook. Apoi, ce acțiuni întreprindeți de obicei când îi întâlniți? Se sugerează să le descoperiți și să le eradicați cât mai curând posibil. Se datorează faptului că problemele acumulate vă pot deteriora oricând datele Outlook. Prin urmare, chiar dacă Outlook poate funcționa normal, ar fi bine să aplicați fie instrumentul de reparare a căsuței primite, fie cel extern Utilitar de reparare a erorilor Outlook PST, cum ar fi DataNumen Outlook Repair, pentru a vă scana fișierele PST pentru a detecta și rezolva erori.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați deteriorat SQL Server Baza de date și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com