Sådan kontrolleres automatisk for vedhæftede filer i specifikke udgående e-mails med Outlook VBA

Nogle gange kan du glemme at tilføje krævede vedhæftede filer til specifikke e-mails, såsom e-mails til at rapportere dine ugentlige værker. Denne artikel vil lære dig at aktivere en popup-advarsel for at forhindre dig i at sende de specifikke e-mails uden vedhæftede filer.

I modsætning til Outlook 2010 og tidligere versioner har Outlook 2013 en native support, der minder dig, når du ikke har vedhæftet nogen filer i de udgående e-mails. Du kan aktivere denne funktion i Outlook-indstillinger som følgende skærmbillede:

Så længe du aktiverer den automatiske advarsel om manglende vedhæftede filer, vil der dukke en advarsel op, hver gang du sender en e-mail. Men det meste af tiden behøver du faktisk ikke at vedhæfte filer. I sådanne tilfælde vil advarslen være irriterende. Her vil vi fortælle dig, hvordan du aktiverer en automatisk advarsel, når der ikke er vedhæftede filer i specifikke udgående e-mails, ved hjælp af Outlook VBA.

Automatisk kontrol for vedhæftede filer i specifikke udgående e-mails

1. Start starten Outlook fra starten, og skift til fanen "Udvikler".
2. Klik på knappen "Visual Basic" i gruppen "Kode".
3. Derefter skal du i det nye pop op-vindue "Microsoft Visual Basic for Applications" -vinduet dobbeltklikke på "ThisOutlookSession" -projektet for at åbne det.
4. Derefter skal du kopiere følgende koder til “ThisOutlookSession” -projektet.

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. Klik derefter på gem-ikonet i værktøjslinjen.
6. Derefter skal du fortsætte med at underskrive denne kode.

• Først skal du oprette et digitalt certifikat. MS Office leveres med et indbygget værktøj – “Digitalt certifikat til VBA-projekter”. Du kan finde det ved at søge efter “vba” i “Startmenuen”.
• Gå derefter tilbage til vinduet “visual basic” for at underskrive koden.

7. Afslut derefter "Visual Basic" og klik på "Makroindstillinger" -knappen under fanen "Udvikler". I dialogboksen "Trust Center" skal du vælge kun at aktivere digitalt signerede makroer. Husk at klikke på “OK” til sidst.
8. Endelig kan du prøve. Opret en ny besked med specifik modtager og emne, men uden vedhæftede filer. Når du klikker på “Send” -knappen, modtager du en popup-advarsel, vist som følgende billede:

Hold dine Outlook-data beskyttet

Da Outlook er udsat for korruption, bør du gøre en indsats for at beskytte dine Outlook-data. Den bedste måde er at lave en konsekvent og opdateret sikkerhedskopi. Derfor kan du nemt gendanne beskadigede Outlook-data fra sikkerhedskopierne, selvom det lider under et uventet Outlook-nedbrud. Derudover, hvis sikkerhedskopieringen desværre mislykkes, har du intet andet valg end at tage hjælp af et erfaren reparationsværktøj, som f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparere SQL db-fejl og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com