Hoe u automatisch kunt controleren op bijlagen in specifieke uitgaande e-mails met Outlook VBA

Soms vergeet u mogelijk de vereiste bijlagen toe te voegen aan specifieke e-mails, zoals e-mails waarin u uw wekelijkse werkzaamheden rapporteert. In dit artikel leert u hoe u een pop-upwaarschuwing activeert om te voorkomen dat u de specifieke e-mails zonder bijlagen verzendt.

In tegenstelling tot Outlook 2010 en eerdere versies heeft Outlook 2013 ingebouwde ondersteuning om u eraan te herinneren wanneer u geen bestanden in de uitgaande e-mails hebt bijgevoegd. U kunt deze functie inschakelen in Outlook-opties, zoals in de volgende schermafbeelding:Automatische waarschuwing als er geen bijlagen zijn in Outlook 2013

Zolang je de automatische waarschuwing voor ontbrekende bijlagen hebt ingeschakeld, verschijnt er elke keer dat je een e-mail verzendt een waarschuwing. Maar meestal hoef je geen bestanden bij te voegen. In zulke gevallen is de waarschuwing irritant. Hier leggen we uit hoe je met behulp van Outlook VBA een automatische waarschuwing kunt inschakelen voor specifieke uitgaande e-mails zonder bijlagen.

Automatische controle op bijlagen in specifieke uitgaande e-mails

  1. Start Outlook vanaf het begin en schakel over naar het tabblad "Ontwikkelaar".
  2. Klik op de knop "Visual Basic" in de groep "Code".Visual Basic-knop
  3. Vervolgens dubbelklikt u in het nieuwe pop-upvenster “Microsoft Visual Basic for Applications” op het project “ThisOutlookSession” om het te openen.
  4. Vervolgens moet u de volgende codes kopiëren naar het project “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

Kopieer de codes in ThisOutlookSession Project

  1. Klik vervolgens op het pictogram Opslaan in de werkbalk.
  2. Daarna moet u doorgaan met het ondertekenen van deze code.
  • Allereerst moet u een digitaal certificaat aanmaken. MS Office beschikt over een ingebouwde tool: "Digitaal certificaat voor VBA-projecten". U kunt deze vinden door in het Startmenu te zoeken naar "vba".Digitale certificaten voor VBA-projecten
  • Ga vervolgens terug naar het “visual basic”-venster om de code te ondertekenen.Digitale handtekening
  1. Sluit daarna de "Visual Basic" af en klik op de knop "Macro-instellingen" onder het tabblad "Ontwikkelaar". In het dialoogvenster “Vertrouwenscentrum” moet u ervoor kiezen om alleen digitaal ondertekende macro's in te schakelen. Vergeet niet om ten slotte op “OK” te klikken.Wijzig macro-instellingen
  2. Eindelijk kun je het proberen. Maak een nieuw bericht met een specifieke ontvanger en onderwerp, maar zonder bijlagen. Wanneer u op de knop “Verzenden” klikt, ontvangt u een pop-upwaarschuwing, weergegeven als de volgende afbeelding:Controleer op ontbrekende bijlagen

Houd uw Outlook-gegevens beschermd

Omdat Outlook gevoelig is voor beschadigingen, moet u zich inspannen om uw Outlook-gegevens te beschermen. De beste manier is om een ​​consistente en up-to-date back-up te maken. Daarom kunt u gemakkelijk herstel beschadigde Outlook-gegevens van de back-ups, zelfs als er sprake is van een onverwachte Outlook-crash. Bovendien, als de back-up helaas mislukt, heeft u geen andere keuze dan de hulp in te roepen van een ervaren reparatietool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel SQL db-fout en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.