Hur man automatiskt söker efter bilagor i specifika utgående e-postmeddelanden med Outlook VBA

Ibland kan du glömma att lägga till nödvändiga bilagor till specifika e-postmeddelanden, till exempel e-postmeddelanden för att rapportera dina veckoarbeten. Den här artikeln kommer att lära dig att aktivera en popup-varning för att förhindra att du skickar specifika e-postmeddelanden utan bilagor.

Till skillnad från Outlook 2010 och tidigare versioner har Outlook 2013 ett inbyggt stöd för att påminna dig när du inte har bifogat några filer i de utgående e-postmeddelandena. Du kan aktivera den här funktionen i Outlook-alternativ som följande skärmdump:

Så länge du aktiverar den automatiska varningen för saknade bilagor kommer en varning att dyka upp varje gång du skickar ett e-postmeddelande. Men för det mesta behöver du faktiskt inte bifoga filer. I sådana fall kommer varningen att vara irriterande. Här kommer vi att berätta hur du aktiverar en automatisk varning när det inte finns några bilagor i specifika utgående e-postmeddelanden med hjälp av Outlook VBA.

Sök automatiskt efter bilagor i specifika utgående e-postmeddelanden

1. Starta Outlook redan från början och växla till fliken “Developer”.
2. Klicka på knappen "Visual Basic" i gruppen "Code".
3. Sedan i det nya popup-fönstret "Microsoft Visual Basic for Applications" bör du dubbelklicka på "ThisOutlookSession"-projektet för att öppna det.
4. Därefter bör du kopiera följande koder till projektet "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. Klicka sedan på spara-ikonen i verktygsfältet.
6. Därefter bör du fortsätta att underteckna den här koden.

• Först bör du skapa ett digitalt certifikat. MS Office levereras med ett inbyggt verktyg – ”Digitalt certifikat för VBA-projekt”. Du hittar det genom att söka efter ”vba” i ”Startmenyn”.
• Gå sedan tillbaka till "visual basic"-fönstret för att signera koden.

7. Efter det, avsluta "Visual Basic" och klicka på knappen "Makroinställningar" under fliken "Utvecklare". I dialogrutan "Trust Center" bör du välja att endast aktivera digitalt signerade makron. Kom ihåg att klicka på "OK" sist.
8. Äntligen kan du prova. Skapa ett nytt meddelande med specifik mottagare och ämne, men utan bilagor. När du klickar på "Skicka"-knappen får du en popup-varning, som visas som följande bild:

Håll dina Outlook-data skyddade

Eftersom Outlook är utsatt för korruption bör du anstränga dig för att skydda dina Outlook-data. Det bästa sättet är att göra en konsekvent och uppdaterad säkerhetskopia. Därför kan du enkelt återställa skadade Outlook-data från säkerhetskopiorna även om oväntad Outlook kraschar. Dessutom, om säkerhetskopieringen misslyckas tyvärr, har du inget annat val än att ta hjälp av ett erfaret reparationsverktyg, som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera SQL db-fel och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com