Jak automaticky kontrolovat přílohy v konkrétních odchozích e-mailech pomocí aplikace Outlook VBA

Někdy můžete zapomenout přidat požadované přílohy ke konkrétním e-mailům, jako jsou e-maily, které hlásí vaše týdenní práce. Tento článek vás naučí aktivovat upozornění na vyskakovací okno, abyste zabránili odesílání konkrétních e-mailů bez příloh.

Na rozdíl od Outlooku 2010 a předchozích verzí má Outlook 2013 nativní podporu, která vám připomene, když k odchozím e-mailům nepřipojíte žádné soubory. Tuto funkci můžete povolit v možnostech aplikace Outlook, jako je následující snímek obrazovky:

Pokud povolíte automatické varování před chybějícími přílohami, zobrazí se varování pokaždé, když odešlete e-mail. Většinou ale soubory přikládat nemusíte. V takových případech bude varování otravné. Zde si ukážeme, jak pomocí Outlook VBA povolit automatické varování, když v konkrétních odchozích e-mailech nejsou žádné přílohy.

Automaticky kontrolovat přílohy v konkrétních odchozích e-mailech

1. Hned na začátku spusťte Outlook a přepněte na kartu „Vývojář“.
2. Klikněte na tlačítko „Visual Basic“ ve skupině „Code“.
3. V novém vyskakovacím okně „Microsoft Visual Basic for Applications“ byste měli dvojitým kliknutím otevřít projekt „ThisOutlookSession“.
4. Následně byste měli zkopírovat následující kódy do projektu „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. Dále klikněte na ikonu uložení na panelu nástrojů.
6. Poté byste měli pokračovat v podepsání tohoto kódu.

• Nejprve byste si měli vytvořit digitální certifikát. MS Office je dodáván s vestavěným nástrojem – „Digitální certifikát pro projekty VBA“. Najdete ho vyhledáním „vba“ v nabídce „Start“.
• Poté se vraťte zpět do okna „Visual Basic“ a podepište kód.

7. Poté ukončete program „Visual Basic“ a na kartě „Developer“ klikněte na tlačítko „Macro settings“. V dialogovém okně „Centrum zabezpečení“ byste měli zvolit povolení pouze digitálně podepsaných maker. Nezapomeňte nakonec kliknout na „OK“.
8. Nakonec to můžete vyzkoušet. Vytvořte novou zprávu s konkrétním příjemcem a předmětem, ale bez příloh. Po kliknutí na tlačítko „Odeslat“ se zobrazí vyskakovací upozornění zobrazené na následujícím obrázku:

Chraňte svá data aplikace Outlook

Protože je Outlook náchylný k poškození, měli byste se snažit chránit svá data Outlooku. Nejlepším způsobem je vytvořit konzistentní a aktuální zálohu. Proto můžete snadno obnovit poškozená data aplikace Outlook ze záloh, i když dojde k neočekávanému selhání aplikace Outlook. Pokud bohužel zálohování selže, nemáte jinou možnost, než využít pomoc zkušeného nástroje pro opravu, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit chybu SQL db a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com