Kuidas automaatselt kontrollida konkreetsete väljaminevate meilide manuseid Outlook VBA abil

Outlooki lahendused September 29, 2025

Mõnikord võite unustada lisada teatud e-kirjadele (nt iganädalastest töödest teatamiseks) vajalikud manused. See artikkel õpetab teid aktiveerima hüpikakna hoiatuse, et vältida konkreetsete meilide saatmist ilma manusteta.

Erinevalt Outlook 2010-st ja eelmistest versioonidest on Outlook 2013-l loomulik tugi, mis tuletab teile meelde, kui te pole väljaminevatele meilidele ühtegi faili manustanud. Saate selle funktsiooni lubada Outlooki suvandites, näiteks järgmisel ekraanipildil:Automaatne hoiatus, kui rakenduses Outlook 2013 pole manuseid

Niikaua kui lubate automaatse hoiatuse puuduvate manuste kohta, kuvatakse iga kord, kui saadate e-kirja, hoiatus. Kuid enamasti ei pea te faile manustama. Sellistel juhtudel on hoiatus tüütu. Siin räägime teile, kuidas lubada automaatne hoiatus, kui teatud väljaminevates e-kirjades manuseid pole, Outlook VBA abil.

Konkreetsete väljaminevate meilide manuste automaatne kontrollimine

  1. Kohe alguses käivitage Outlook ja minge vahekaardile "Arendaja".
  2. Klõpsake rühmas "Kood" nuppu "Visual Basic".Visual Basic nupp
  3. Seejärel peaksite uues hüpikaknas "Microsoft Visual Basic for Applications" selle avamiseks topeltklõpsama projekti "ThisOutlookSession".
  4. Seejärel peaksite kopeerima järgmised koodid projekti "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

Kopeerige koodid projektis ThisOutlookSession

  1. Järgmisena klõpsake tööriistaribal salvestamise ikooni.
  2. Pärast seda peaksite jätkama selle koodi allkirjastamist.
  • Esmalt peaksite looma digitaalse sertifikaadi. MS Office'il on sisseehitatud utiliit – „Digitaalne sertifikaat VBA projektide jaoks“. Selle leiate, otsides menüüst „Start“ otsingusõna „vba“.Digitaalsed sertifikaadid VBA projektidele
  • Järgmisena minge koodi allkirjastamiseks tagasi aknasse Visual Basic.Digitaalne allkiri
  1. Pärast seda väljuge "Visual Basicust" ja klõpsake vahekaardil "Arendaja" nuppu "Makro sätted". Dialoogiaknas „Usalduskeskus” peaksite valima ainult digitaalselt allkirjastatud makrode lubamise. Ärge unustage viimasena klõpsata "OK".Muutke makro sätteid
  2. Lõpuks saate proovida. Looge uus sõnum konkreetse adressaadi ja teemaga, kuid ilma manusteta. Kui klõpsate nupul "Saada", kuvatakse hüpikhoiatus, mis on näidatud järgmisel pildil:Kontrollige, kas manused puuduvad

Hoidke oma Outlooki andmed kaitstud

Kuna Outlook on altid korruptsioonidele, peaksite tegema jõupingutusi oma Outlooki andmete kaitsmiseks. Parim viis on teha järjepidev ja ajakohane varukoopia. Seetõttu saate hõlpsalt rikutud Outlooki andmete taastamine varukoopiatest isegi siis, kui Outlooki ootamatu krahh. Lisaks, kui varundamine ebaõnnestub, ei jää teil muud üle, kui kasutada kogenud remonditööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas parandage SQL db viga ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.