Kā periodiski automātiski nosūtīt atkārtotu e-pasta ziņojumu, izmantojot Outlook VBA

Outlook risinājumi Septembris 29, 2025
Kopīgot tūlīt:

Vai vēlaties nosūtīt periodisku e-pasta ziņojumu ar noteiktu intervālu, piemēram, katru otrdienu? Šajā rakstā tiks aplūkota šī problēma un norādīts, kā to sasniegt, izmantojot periodisku uzdevumu un Outlook VBA.

Iespējams, esat zinājis, kā ieplānot atkārtotu e-pasta sūtīšanu, jo programmai Outlook ir vietējais atbalsts piegādes atlikšanai. Taču šī funkcija var vienkārši ļaut norādīt e-pasta nosūtīšanas laiku. Tas nevar ļaut programmai Outlook automātiski sūtīt periodiskus e-pasta ziņojumus, piemēram, 3rd Katra mēneša pirmdiena utt. Tāpēc, ja vēlaties regulāri sūtīt konkrētu e-pastu, jums ir jāpieliek papildu pūles. Šeit ir ātrā metode, kas prasīs jums izveidot atkārtotu uzdevuma vienumu un kopēt tālāk norādītos VBA kodus projektā ThisOutlookSession.

Periodiski automātiski nosūtiet atkārtotu e-pasta ziņojumu

  1. Pirmkārt, palaidiet programmu Outlook un pēc tam pārslēdzieties uz uzdevumu rūti.
  2. Pēc tam lentē noklikšķiniet uz pogas “Jauns uzdevums”.
  3. Nākamajā logā “Jauns uzdevums” ir jāizveido periodisks uzdevums:
  • Pirmkārt, uzdevuma tēmas rindiņā ierakstiet “periodiski sūtīt e-pastu”.
  • Pēc tam cilnē “Uzdevums” noklikšķiniet uz pogas “Atkārtošanās”,
  • Pēc tam iestatiet uzdevuma atkārtošanos atbilstoši savām vajadzībām.
  • Pēc tam noklikšķiniet uz “OK”, lai saglabātu atkārtošanos.
  • Visbeidzot iestatiet atgādinājuma laiku un noklikšķiniet uz pogas Saglabāt un aizvērt.Izveidojiet atkārtota uzdevuma vienumu
  1. Pēc tam atveriet cilni “Izstrādātājs” un nospiediet pogu “Visual Basic”, lai piekļūtu VBA redaktora logam.
  2. Vēlāk jums vajadzētu kopēt šādus VBA kodus projektā ThisOutlookSession.
Private Sub Application_Reminder(ByVal Item As Object)
    Dim objPeriodicalMail As MailItem
 
    If Item.Class = olTask Then
       If InStr(LCase(Item.Subject), "send an email periodically") Then
          Set objPeriodicalMail = Outlook.Application.CreateItem(olMailItem)
          'Change the following email information as per your actual needs
          With objPeriodicalMail
               .Subject = "Test"
               .To = "boss@datanumen.com"
               .HTMLBody = "<HTML><BODY>type body here</HTML></BODY>"
               .Attachments.Add ("C:\Attachments\DataNumen.docx")
               .Importance = olImportanceHigh
               .ReadReceiptRequested = True
               .Send
          End With
       End If
    End If
End Sub

VBA kodi — nosūtiet e-pasta ziņojumu, kad tiek parādīts atgādinājums par uzdevuma vienumu

  1. Pēc tam jums jāparaksta šis kods un jāmaina makro iestatījumi, lai atļautu ciparparakstu.
  2. Turpmāk katru reizi, kad tiek parādīts atgādinājums par jauno periodisko uzdevumu, programma Outlook automātiski izveidos un nosūtīs e-pasta ziņojumu.

Piezīme: Pēc atkārtotā e-pasta nosūtīšanas atcerieties atzīmēt pašreizējo uzdevuma vienumu kā pabeigtu.

Taktiski risiniet Outlook problēmas

Tā kā Outlook ir neaizsargāta pret dažādiem faktoriem, jums visu laiku ir jāsagatavojas sliktākajam. Piemēram, jums vajadzētu saglabāt cienījamu un labi pierādītu Outlook atkopšana lietderība tuvumā, piemēram, DataNumen Outlook Repair. Tādējādi, pat ja saskaraties ar PST datu bojājumiem, varat atgūt apdraudētos datus, izmantojot utm.ost vieglums.

Autora ievads:

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

Kopīgot tūlīt:

Komentāri ir slēgti.