Tiettyjen lähtevien sähköpostien liitteiden automaattinen tarkistaminen Outlook VBA:lla

Joskus saatat unohtaa lisätä vaadittuja liitteitä tiettyihin sähköposteihin, kuten sähköposteihin raportoidaksesi viikoittaisista töistäsi. Tämä artikkeli opettaa sinua aktivoimaan ponnahdusikkunan varoituksen, joka estää sinua lähettämästä tiettyjä sähköposteja ilman liitteitä.

Toisin kuin Outlook 2010 ja aiemmat versiot, Outlook 2013:ssa on alkuperäinen tuki, joka muistuttaa sinua, kun et ole liittänyt tiedostoja lähteviin sähköposteihin. Voit ottaa tämän ominaisuuden käyttöön Outlookin asetuksissa, kuten seuraavan kuvakaappauksen:

Niin kauan kuin otat käyttöön automaattisen varoituksen puuttuvista liitteistä, varoitus tulee esiin aina, kun lähetät sähköpostia. Mutta useimmiten sinun ei todellakaan tarvitse liittää tiedostoja. Tällaisissa tapauksissa varoitus on ärsyttävä. Tässä kerromme, kuinka voit ottaa käyttöön automaattisen varoituksen, kun tietyissä lähtevissä sähköposteissa ei ole liitteitä, Outlook VBA:n avulla.

Tarkista automaattisesti tiettyjen lähtevien sähköpostien liitteet

1. Käynnistä Outlook heti alusta alkaen ja siirry Kehittäjä-välilehdelle.
2. Napsauta "Koodi"-ryhmässä "Visual Basic" -painiketta.
3. Sitten uudessa "Microsoft Visual Basic for Applications" -ikkunassa sinun tulee kaksoisnapsauttaa "ThisOutlookSession" -projektia avataksesi sen.
4. Myöhemmin sinun tulee kopioida seuraavat koodit "ThisOutlookSession" -projektiin.

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. Napsauta seuraavaksi työkalupalkin tallennuskuvaketta.
6. Sen jälkeen sinun tulee jatkaa tämän koodin allekirjoittamista.

• Ensin sinun tulee luoda digitaalinen varmenne. MS Officessa on sisäänrakennettu apuohjelma – ”Digitaalinen varmenne VBA-projekteille”. Löydät sen hakemalla ”vba” ”Käynnistä-valikosta”.
• Palaa seuraavaksi "visual basic" -ikkunaan allekirjoittamaan koodi.

7. Poistu sen jälkeen "Visual Basicista" ja napsauta "Makroasetukset" -painiketta "Kehittäjä"-välilehden alla. "Luottamuskeskus"-valintaikkunassa sinun tulee valita vain digitaalisesti allekirjoitettujen makrojen käyttöönotto. Muista painaa lopuksi "OK".
8. Lopulta voit kokeilla. Luo uusi viesti tietyllä vastaanottajalla ja aiheella, mutta ilman liitteitä. Kun napsautat "Lähetä" -painiketta, saat ponnahdusikkunan varoituksen, joka näkyy seuraavan kuvan mukaisesti:

Pidä Outlook-tietosi suojattuna

Koska Outlook on altis korruptiolle, sinun tulee suojata Outlook-tietosi. Paras tapa on tehdä johdonmukainen ja ajan tasalla oleva varmuuskopio. Näin ollen voit helposti palauttaa vioittuneet Outlook-tiedot varmuuskopioista, vaikka se joutuisi odottamattomaan Outlookin kaatumiseen. Lisäksi, jos varmuuskopiointi epäonnistuu valitettavasti, sinulla ei ole muuta vaihtoehtoa kuin ottaa avuksi kokenut korjaustyökalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaa SQL db -virhe ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com