Kaip automatiškai patikrinti, ar nėra konkrečių siunčiamų el. laiškų priedų naudojant „Outlook VBA“.

Kartais galite pamiršti pridėti reikalingų priedų prie konkrečių el. laiškų, pvz., el. laiškų, skirtų pranešti apie savo savaitinius darbus. Šis straipsnis išmokys suaktyvinti iššokantįjį įspėjimą, kad neleistumėte siųsti konkrečių el. laiškų be priedų.

Skirtingai nuo „Outlook 2010“ ir ankstesnių versijų, „Outlook 2013“ turi savąjį palaikymą, kad primintų, kai nepridėjote jokių failų prie siunčiamų el. laiškų. Galite įjungti šią funkciją „Outlook“ parinktyse, pavyzdžiui, šią ekrano kopiją:

Jei įjungsite automatinį įspėjimą apie trūkstamus priedus, kiekvieną kartą siunčiant el. laišką, pasirodys įspėjimas. Tačiau dažniausiai failų pridėti nereikia. Tokiais atvejais įspėjimas gali erzinti. Čia papasakosime, kaip naudojant „Outlook VBA“ įjungti automatinį įspėjimą, kai konkrečiuose siunčiamuose el. laiškuose nėra priedų.

Automatinis konkrečių siunčiamų el. laiškų priedų tikrinimas

1. Pačioje pradžioje paleiskite „Outlook“ ir perjunkite į skirtuką „Kūrėjas“.
2. Grupėje „Kodas“ spustelėkite mygtuką „Visual Basic“.
3. Tada naujame iššokančiame lange „Microsoft Visual Basic for Applications“ dukart spustelėkite „ThisOutlookSession“ projektą, kad jį atidarytumėte.
4. Vėliau į „ThisOutlookSession“ projektą turėtumėte nukopijuoti šiuos kodus.

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. Tada įrankių juostoje spustelėkite išsaugojimo piktogramą.
6. Po to turėtumėte tęsti šio kodo pasirašymą.

• Pirmiausia turėtumėte sukurti skaitmeninį sertifikatą. „MS Office“ programoje yra integruota programa – „Skaitmeninis sertifikatas VBA projektams“. Ją galite rasti ieškodami „vba“ meniu „Pradėti“.
• Tada grįžkite į „Visual Basic“ langą, kad pasirašytumėte kodą.

7. Po to išeikite iš „Visual Basic“ ir skirtuke „Kūrėjas“ spustelėkite mygtuką „Makrokomandos nustatymai“. Dialogo lange „Pasitikėjimo centras“ turėtumėte pasirinkti įgalinti tik skaitmeniniu būdu pasirašytas makrokomandas. Galiausiai nepamirškite spustelėti „Gerai“.
8. Pagaliau galite pabandyti. Sukurkite naują pranešimą su konkrečiu gavėju ir tema, bet be priedų. Kai paspausite mygtuką „Siųsti“, gausite iššokantį įspėjimą, pavaizduotą kaip ši nuotrauka:

Apsaugokite savo „Outlook“ duomenis

Kadangi „Outlook“ yra linkusi į pažeidimus, turėtumėte pasistengti apsaugoti „Outlook“ duomenis. Geriausias būdas yra sukurti nuoseklią ir naujausią atsarginę kopiją. Vadinasi, galite lengvai atkurti sugadintus „Outlook“ duomenis iš atsarginių kopijų, net jei netikėtai sugenda „Outlook“. Be to, jei, deja, nepavyksta sukurti atsarginės kopijos, jūs neturite kito pasirinkimo, kaip tik pasinaudoti patyrusiu remonto įrankiu, pvz., DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti SQL db klaidą ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com