Cum să verificați automat atașamentele în anumite e-mailuri trimise cu Outlook VBA

Uneori, este posibil să uitați să adăugați atașamentele necesare la anumite e-mailuri, cum ar fi e-mailurile pentru a vă raporta lucrările săptămânale. Acest articol vă va învăța să activați o avertizare pop-up pentru a vă împiedica să trimiteți anumite e-mailuri fără atașamente.

Spre deosebire de Outlook 2010 și versiunile anterioare, Outlook 2013 are un suport nativ pentru a vă reaminti când nu ați atașat niciun fișier în e-mailurile trimise. Puteți activa această funcție în Opțiuni Outlook, cum ar fi următoarea captură de ecran:

Atâta timp cât activați avertizarea automată pentru atașamentele lipsă, de fiecare dată când trimiteți un e-mail, va apărea o avertizare. Dar, de cele mai multe ori, nu este nevoie să atașați fișiere. În astfel de cazuri, avertizarea va fi enervantă. Aici vă vom spune cum să activați o avertizare automată atunci când nu există atașamente în anumite e-mailuri trimise prin intermediul Outlook VBA.

Verificare automată pentru atașamente în anumite e-mailuri trimise

1. De la bun început, lansați Outlook și treceți la fila „Dezvoltator”.
2. Faceți clic pe butonul „Visual Basic” din grupul „Cod”.
3. Apoi, în noua fereastră pop-up „Microsoft Visual Basic for Applications”, ar trebui să faceți dublu clic pe proiectul „ThisOutlookSession” pentru a-l deschide.
4. Ulterior, ar trebui să copiați următoarele coduri în proiectul „ThisOutlookSession”.

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

5. Apoi faceți clic pe pictograma de salvare din bara de instrumente.
6. După aceea, ar trebui să continuați să semnați acest cod.

• Mai întâi, ar trebui să creați un certificat digital. MS Office vine cu un utilitar încorporat – „Certificat digital pentru proiecte VBA”. Îl puteți găsi căutând „vba” în „Meniul Start”.
• Apoi, reveniți la fereastra „visual de bază” pentru a semna codul.

7. După aceea, ieșiți din „Visual Basic” și faceți clic pe butonul „Setări macro” din fila „Dezvoltator”. În caseta de dialog „Centrul de încredere”, ar trebui să selectați să activați numai macrocomenzile semnate digital. Nu uitați să faceți clic pe „OK” în sfârșit.
8. În sfârșit poți încerca. Creați un mesaj nou cu un anumit destinatar și subiect, dar fără atașamente. Când faceți clic pe butonul „Trimite”, veți primi un avertisment pop-up, afișat în imaginea următoare:

Păstrați datele Outlook protejate

Deoarece Outlook este predispus la corupții, ar trebui să depuneți eforturi pentru a vă proteja datele Outlook. Cel mai bun mod este să faci o copie de rezervă consistentă și actualizată. Prin urmare, puteți cu ușurință recuperați datele Outlook corupte din copiile de rezervă chiar dacă suferă o blocare neașteptată a Outlook. În plus, dacă backupul eșuează, din păcate, nu ai de ales decât să te ajuți de la un instrument de reparare experimentat, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați eroarea SQL db și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com