Kako automatski provjeriti privitke u određenim odlaznim porukama e-pošte s programom Outlook VBA

Ponekad možete zaboraviti dodati potrebne privitke određenim e-porukama, kao što su e-poruke za izvješćivanje o vašem tjednom radu. Ovaj članak će vas naučiti kako aktivirati skočno upozorenje kako biste spriječili slanje određenih poruka e-pošte bez privitaka.

Za razliku od Outlooka 2010 i prethodnih verzija, Outlook 2013 ima izvornu podršku koja vas podsjeća kada niste priložili nijednu datoteku u odlaznoj e-pošti. Ovu značajku možete omogućiti u Outlook opcijama kao na sljedećoj snimci zaslona:

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

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

1. Na samom početku pokrenite Outlook i prebacite se na karticu “Developer”.
2. Kliknite gumb "Visual Basic" u grupi "Kôd".
3. Zatim u novom skočnom prozoru “Microsoft Visual Basic for Applications” dvaput kliknite na projekt “ThisOutlookSession” da biste ga otvorili.
4. Nakon toga trebate 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 ikonu za spremanje na alatnoj traci.
6. Nakon toga trebate nastaviti s potpisivanjem ovog koda.

• Prvo biste trebali izraditi 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 „Izborniku Start“.
• Zatim se vratite na prozor "visual basic" da potpišete kod.

7. Nakon toga izađite iz "Visual Basica" i kliknite gumb "Makro postavke" pod karticom "Razvojni programer". U dijaloškom okviru "Centar za pouzdanost" trebali biste odabrati da omogućite samo digitalno potpisane makronaredbe. Ne zaboravite na kraju kliknuti "OK".
8. Konačno možete pokušati. Napravite novu poruku s određenim primateljem i predmetom, ali bez privitaka. Kada kliknete na gumb "Pošalji", dobit ćete skočno upozorenje, prikazano kao sljedeća slika:

Zaštitite svoje Outlook podatke

Budući da je Outlook sklon oštećenjima, trebali biste se potruditi zaštititi svoje Outlook podatke. Najbolji način je napraviti dosljednu i ažurnu sigurnosnu kopiju. Stoga možete lako oporaviti oštećene Outlook podatke iz sigurnosnih kopija čak i ako dođe do neočekivanog pada programa Outlook. Osim toga, ako sigurnosna kopija nažalost ne uspije, nemate izbora nego uzeti pomoć iskusnog alata za popravak, npr. DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti SQL db grešku i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com