Kako samodejno preveriti priloge v določenih odhodnih e-poštnih sporočilih z Outlookom VBA

Včasih lahko pozabite dodati zahtevane priloge določenim e-poštnim sporočilom, kot so e-poštna sporočila za poročanje o vašem tedenskem delu. Ta članek vas bo naučil aktivirati pojavno opozorilo, da vam prepreči pošiljanje določenih e-poštnih sporočil brez prilog.

Za razliko od Outlooka 2010 in prejšnjih različic ima Outlook 2013 izvorno podporo, ki vas opomni, ko v odhodni e-pošti niste priložili nobene datoteke. To funkcijo lahko omogočite v Outlookovih možnostih, kot je ta posnetek zaslona:

Dokler omogočite samodejno opozorilo o manjkajočih prilogah, se bo vsakič, ko pošljete e-pošto, prikazalo opozorilo. Vendar večinoma datotek res ni treba prilagati. V takih primerih bo opozorilo nadležno. Tukaj vam bomo povedali, kako omogočiti samodejno opozorilo, ko v določenih odhodnih e-poštnih sporočilih ni prilog, s pomočjo Outlook VBA.

Samodejno preverjanje prilog v določenih odhodnih e-poštnih sporočilih

1. Na samem začetku zaženite Outlook in preklopite na zavihek »Razvijalec«.
2. Kliknite gumb "Visual Basic" v skupini "Koda".
3. Nato v novem pojavnem oknu »Microsoft Visual Basic for Applications« dvokliknite projekt »ThisOutlookSession«, da ga odprete.
4. Nato kopirajte naslednje kode v 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. Nato v orodni vrstici kliknite ikono za shranjevanje.
6. Po tem morate nadaljevati s podpisom te kode.

• Najprej morate ustvariti digitalno potrdilo. MS Office ima vgrajen pripomoček – »Digitalno potrdilo za projekte VBA«. Najdete ga tako, da v meniju »Start« poiščete »vba«.
• Nato se vrnite v okno »visual basic«, da podpišete kodo.

7. Po tem zapustite »Visual Basic« in kliknite gumb »Nastavitve makrov« pod zavihkom »Razvijalec«. V pogovornem oknu »Center zaupanja« izberite, da omogočite samo digitalno podpisane makre. Ne pozabite na koncu klikniti »V redu«.
8. Končno lahko poskusite. Ustvarite novo sporočilo z določenim prejemnikom in zadevo, vendar brez prilog. Ko kliknete gumb »Pošlji«, boste prejeli pojavno opozorilo, prikazano na naslednji sliki:

Zaščitite svoje Outlookove podatke

Ker je Outlook nagnjen k poškodbam, si morate prizadevati za zaščito svojih Outlookovih podatkov. Najboljši način je narediti dosledno in posodobljeno varnostno kopijo. Zato lahko preprosto obnovite poškodovane Outlookove podatke iz varnostnih kopij, tudi če se Outlook nepričakovano zruši. Poleg tega, če varnostno kopiranje žal ne uspe, vam ne preostane drugega, kot da uporabite izkušeno orodje za popravilo, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravi napako SQL db in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com