Kā automātiski pārbaudīt pielikumus konkrētos izejošajos e-pastos, izmantojot programmu Outlook VBA

Dažreiz jūs varat aizmirst pievienot nepieciešamos pielikumus konkrētiem e-pasta ziņojumiem, piemēram, e-pastiem, lai ziņotu par iknedēļas darbiem. Šis raksts iemācīs aktivizēt uznirstošo brīdinājumu, lai novērstu konkrētu e-pasta ziņojumu sūtīšanu bez pielikumiem.

Atšķirībā no Outlook 2010 un iepriekšējām versijām, Outlook 2013 ir vietējais atbalsts, kas jums atgādinās, kad izejošajos e-pastos neesat pievienojis nevienu failu. Šo funkciju varat iespējot programmā Outlook opcijas, piemēram, šajā ekrānuzņēmumā:

Kamēr vien ir iespējota automātiskā brīdināšana par trūkstošiem pielikumiem, katru reizi, kad nosūtāt e-pastu, parādīsies brīdinājums. Taču lielākoties faili nav jāpievieno. Šādos gadījumos brīdinājums būs kaitinošs. Šeit mēs pastāstīsim, kā, izmantojot Outlook VBA, iespējot automātisko brīdinājumu, ja konkrētos izejošajos e-pastos nav pielikumu.

Automātiski pārbaudīt pielikumus konkrētos izejošajos e-pastos

1. Pašā sākumā palaidiet programmu Outlook un pārslēdzieties uz cilni “Izstrādātājs”.
2. Grupā “Kods” noklikšķiniet uz pogas “Visual Basic”.
3. Pēc tam jaunajā uznirstošajā logā “Microsoft Visual Basic for Applications” divreiz noklikšķiniet uz “ThisOutlookSession” projekta, lai to atvērtu.
4. Pēc tam kopējiet šos kodus projektā “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

5. Pēc tam rīkjoslā noklikšķiniet uz saglabāšanas ikonas.
6. Pēc tam jums vajadzētu turpināt parakstīt šo kodu.

• Vispirms jums jāizveido digitālais sertifikāts. MS Office komplektā ir iebūvēta utilīta — “Digitālais sertifikāts VBA projektiem”. To var atrast, meklējot “vba” izvēlnē “Sākt”.
• Pēc tam atgriezieties logā “Visual basic”, lai parakstītu kodu.

7. Pēc tam izejiet no “Visual Basic” un cilnē “Izstrādātājs” noklikšķiniet uz pogas “Makro iestatījumi”. Dialoglodziņā “Uzticamības centrs” atlasiet iespējot tikai digitāli parakstītus makro. Atcerieties pēdējoreiz noklikšķināt uz “OK”.
8. Beidzot jūs varat izmēģināt. Izveidojiet jaunu ziņojumu ar konkrētu adresātu un tēmu, bet bez pielikumiem. Noklikšķinot uz pogas Sūtīt, jūs saņemsit uznirstošo brīdinājumu, kas parādīts kā šāds attēls:

Nodrošiniet savu Outlook datu aizsardzību

Tā kā šai programmai ir tendence uz bojājumiem, jums jāpieliek pūles, lai aizsargātu savus Outlook datus. Labākais veids ir konsekventa un atjaunināta dublēšana. Tādējādi jūs varat viegli atgūt bojātus Outlook datus no dublējumiem pat tad, ja cieš neparedzēta Outlook avārija. Turklāt, ja dublēšana diemžēl neizdodas, jums nekas cits neatliek kā izmantot pieredzējuša remonta rīka palīdzību DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot SQL db kļūdu un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar