Kako automatski provjeriti ima li priloga u određenim odlaznim porukama e-pošte pomoću Outlook VBA

Ponekad možete zaboraviti dodati potrebne priloge određenim e-porukama, kao što su e-poruke za prijavu vaših sedmičnih radova. Ovaj članak će vas naučiti da aktivirate iskačuće upozorenje kako biste spriječili slanje određenih e-poruka bez priloga.

Za razliku od Outlook 2010 i prethodnih verzija, Outlook 2013 ima izvornu podršku da vas podsjeti kada niste priložili nijednu datoteku u odlaznoj e-poruci. Ovu funkciju možete omogućiti u Outlook opcijama kao na sljedećem snimku ekrana:

Sve dok omogućite automatsko upozorenje za nedostajuće priloge, svaki put kada pošaljete e-poruku, upozorenje će se pojaviti. Ali većinu vremena, zaista ne morate prilagati datoteke. U takvim slučajevima, upozorenje će biti dosadno. Ovdje ćemo vam reći kako omogućiti automatsko upozorenje kada nema priloga u određenim odlaznim e-porukama pomoću Outlook VBA.

Automatska provjera priloga u određenim odlaznim porukama e-pošte

1. Na samom početku pokrenite Outlook i prebacite se na karticu "Developer".
2. Kliknite na dugme “Visual Basic” u grupi “Kod”.
3. Zatim u novom iskačućem prozoru „Microsoft Visual Basic za aplikacije“ treba dvaput kliknuti na projekat „ThisOutlookSession“ da biste ga otvorili.
4. Nakon toga, trebali biste kopirati sljedeće kodove u projekt “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. Zatim kliknite na ikonu za spremanje na traci sa alatkama.
6. Nakon toga, trebali biste nastaviti s potpisivanjem ovog koda.

• Prvo, trebali biste kreirati digitalni certifikat. MS Office dolazi s ugrađenim uslužnim programom – „Digitalni certifikat za VBA projekte“. Možete ga pronaći pretraživanjem „vba“ u „Start meniju“.
• Zatim se vratite na prozor “visual basic” da potpišete kod.

7. Nakon toga, izađite iz "Visual Basica" i kliknite na dugme "Postavke makroa" ispod kartice "Razvojnik". U dijalogu “Centar za pouzdanost” trebate odabrati da omogućite samo digitalno potpisane makroe. Ne zaboravite da na kraju kliknete na “OK”.
8. Konačno možete probati. Kreirajte novu poruku sa određenim primaocem i predmetom, ali bez priloga. Kada kliknete na dugme „Pošalji“, dobićete iskačuće upozorenje, prikazano na sledećoj slici:

Čuvajte svoje Outlook podatke zaštićene

Budući da je Outlook sklon oštećenjima, trebali biste se potruditi da zaštitite svoje Outlook podatke. Najbolji način je da napravite dosljednu i ažurnu sigurnosnu kopiju. Dakle, možete lako oporaviti oštećene Outlook podatke iz rezervnih kopija čak i ako doživi neočekivani pad Outlooka. Osim toga, ako sigurnosna kopija nažalost ne uspije, nemate izbora osim da uzmete pomoć iskusnog alata za popravak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravi SQL db grešku i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com