Kako povremeno automatski slati ponavljajuću e-poštu pomoću Outlook VBA

Outlook rješenja Septembar 29, 2025
Podijeli sada:

Da li želite da šaljete ponavljajuću e-poštu u fiksnim intervalima, kao što je svaki utorak? Ovaj članak će se baviti ovim problemom i naučiti vas kako ga postići korištenjem zadatka koji se ponavlja i Outlook VBA.

Možda ste znali kako zakazati slanje ponavljajuće e-pošte jer Outlook ima izvornu podršku za odlaganje isporuke. Ali ova funkcija vam može jednostavno omogućiti da odredite vrijeme za slanje e-pošte. Ne može vam dozvoliti da Outlook automatski povremeno šalje ponavljajuću e-poštu, na primjer, 3rd Ponedjeljkom u mjesecu, itd. Stoga, ako želite redovno slati određenu e-poštu, morate uložiti dodatne napore. Evo brze metode koja će zahtijevati da kreirate ponavljajuću stavku zadatka i kopirate sljedeće VBA kodove u projekt “ThisOutlookSession”.

Automatsko povremeno slanje ponavljajuće e-pošte

  1. Prvo pokrenite Outlook, a zatim se prebacite na okno Zadaci.
  2. Zatim kliknite na dugme „Novi zadatak“ na traci.
  3. U sljedećem prozoru "Novi zadatak" morate kreirati zadatak koji se ponavlja:
  • Prvo, upišite „povremeno šaljite e-poštu“ u liniju predmeta zadatka.
  • Zatim kliknite na dugme "Ponavljanje" na kartici "Zadatak",
  • Zatim postavite ponavljanje zadatka prema vašim potrebama.
  • Nakon toga kliknite na “OK” da sačuvate ponavljanje.
  • Na kraju podesite vrijeme podsjetnika i kliknite na dugme “Sačuvaj i zatvori”.Kreirajte stavku zadatka koji se ponavlja
  1. Nakon toga idite na karticu „Developer“ i pritisnite dugme „Visual Basic“ da biste dobili pristup prozoru VBA editora.
  2. Kasnije biste trebali kopirati sljedeće VBA kodove u 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 kodovi - pošaljite e-poštu kada se pojavi podsjetnik na stavku zadatka

  1. Nakon toga, trebali biste potpisati ovaj kod i promijeniti postavke makroa kako biste dozvolili digitalno potpisani makro.
  2. Od sada, svaki put kada se pojavi podsjetnik na novi zadatak koji se ponavlja, Outlook će automatski sastaviti i poslati e-poštu.

Bilješka: Nakon što pošaljete ponavljajuću e-poštu, ne zaboravite označiti trenutnu stavku zadatka kao završenu.

Taktično rješavajte probleme s Outlookom

Budući da je Outlook osjetljiv na različite faktore, morate se stalno pripremati na najgore. Na primjer, trebali biste zadržati reputaciju i dobro dokazanu Outlook oporavak komunalije u blizini, kao npr DataNumen Outlook Repair. Na taj način, čak i ako naiđete na oštećenje PST podataka, možete vratiti ugrožene podatke pomoću utmost lakoća.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Popravak SQL Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.