Slik sjekker du automatisk for vedlegg i spesifikke utgående e-poster med Outlook VBA

Noen ganger kan du glemme å legge til nødvendige vedlegg til spesifikke e-poster, for eksempel e-poster for å rapportere ukentlige arbeid. Denne artikkelen vil lære deg å aktivere en popup-advarsel for å hindre deg i å sende de spesifikke e-postene uten vedlegg.

I motsetning til Outlook 2010 og tidligere versjoner, har Outlook 2013 en innebygd støtte for å minne deg på når du ikke har lagt ved noen filer i de utgående e-postene. Du kan aktivere denne funksjonen i Outlook-alternativer som følgende skjermbilde:

Så lenge du aktiverer automatisk advarsel om manglende vedlegg, vil det dukke opp en advarsel hver gang du sender en e-post. Men som oftest trenger du ikke å legge ved filer. I slike tilfeller vil advarselen være irriterende. Her forteller vi deg hvordan du aktiverer en automatisk advarsel når det ikke er noen vedlegg i bestemte utgående e-poster ved hjelp av Outlook VBA.

Automatisk sjekk for vedlegg i spesifikke utgående e-poster

1. Helt i begynnelsen, start Outlook og bytt til "Utvikler" -fanen.
2. Klikk på "Visual Basic"-knappen i "Kode"-gruppen.
3. Så i det nye popup-vinduet "Microsoft Visual Basic for Applications" bør du dobbeltklikke på "ThisOutlookSession" -prosjektet for å åpne det.
4. Deretter bør du kopiere følgende koder inn i "ThisOutlookSession" -prosjektet.

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. Klikk deretter på lagre-ikonet i verktøylinjen.
6. Etter det bør du fortsette å signere denne koden.

• Først bør du opprette et digitalt sertifikat. MS Office leveres med et innebygd verktøy – «Digitalt sertifikat for VBA-prosjekter». Du finner det ved å søke etter «vba» i «Start-menyen».
• Deretter går du tilbake til "visual basic"-vinduet for å signere koden.

7. Deretter går du ut av "Visual Basic" og klikker på "Makroinnstillinger" -knappen under "Utvikler"-fanen. I "Tillitssenter"-dialogen bør du velge å bare aktivere digitalt signerte makroer. Husk å klikke "OK" til slutt.
8. Endelig kan du prøve. Lag en ny melding med spesifikk mottaker og emne, men uten vedlegg. Når du klikker på "Send"-knappen, vil du motta en popup-advarsel, vist som følgende bilde:

Hold Outlook-dataene dine beskyttet

Siden Outlook er utsatt for korrupsjon, bør du anstrenge deg for å beskytte Outlook-dataene dine. Den beste måten er å lage en konsistent og oppdatert sikkerhetskopi. Derfor kan du enkelt gjenopprette ødelagte Outlook-data fra sikkerhetskopiene selv om uventet Outlook-krasj. I tillegg, hvis sikkerhetskopieringen dessverre mislykkes, har du ikke noe annet valg enn å ta hjelp av et erfarent reparasjonsverktøy, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparer SQL db-feil og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med