Note: The other languages of the website are Google-translated. Back to English

Cum să trimiteți un program de e-mail recurent în Outlook?

În Microsoft Outlook, puteți trimite cu ușurință altora o programare, întâlnire sau sarcină recurentă. Dar dacă doriți doar să trimiteți un e-mail recurent fără programare, întâlnire sau sarcină, cum puteți face? Din păcate, Outlook nu oferă nicio caracteristică pentru trimiterea e-mailurilor recurente, dar în tutorialul nostru vă vom arăta cum să trimiteți un e-mail recurent în Outlook.

Trimiteți un program de e-mail recurent în Outlook cu cod VBA

Trimiteți cu ușurință programarea e-mailurilor recurente în Outlook cu un instrument uimitor


Trimiteți un program de e-mail recurent în Outlook cu cod VBA

Acest tutorial este împărțit în patru părți, veți reuși să trimiteți un e-mail recurent după terminarea acestor părți. Vă rugăm să faceți următoarele.

Partea 1: Creați o nouă întâlnire

1. Vă rugăm să navigați la Calendar vizualizare făcând clic Calendar în Panoul de navigare, apoi creați o nouă întâlnire făcând clic pe Programare noua în Acasa tab.

3. În Numire dialog sub Numire filă. Trebuie să:

A: Introduceți fișierul Subiect B: Introduceți adresele de e-mail ale destinatarilor în Locatie
C: Configurați fișierul Începeți timp si End time D: Selectați memento-ul sub Memento lista verticală.
Dacă alegeți 15 minute, înseamnă că vă va reaminti cu 15 minute mai devreme când e-mailul este trimis.
E: Compuneți-vă corpul de numire.

notițe: Subiectul numirii va deveni subiectul recurent al e-mailului; si Organul de numire va deveni corpul de e-mail recurent atunci când destinatarii au primit e-mailul.

Partea 2: Creați o nouă categorie

Acum trebuie să creați o nouă categorie numită „Trimiteți e-mailuri recurente" după cum urmează:

1. În Numire dialog, vă rugăm să faceți clic pe Clasificați > toate categoriile în Tag-uri grup sub Numire tab.

2. Cand Categorii de culori apare fereastra de dialog, faceți clic pe Nou buton. În Adăugați noi categorie dialog, tastați „Trimiteți e-mailuri recurente" in Nume si Prenume camp; și apoi alegeți o culoare în Culori lista verticală. Apoi apasa OK.

3. Apoi veți vedea „Trimiteți e-mailuri recurente”Este listată, bifați caseta, apoi faceți clic pe OK butonul.

Partea 3: Setați recurența

Acum, este timpul să setați recurența pentru programare.

1. clic Repetare în Opţiuni grup sub Numire filă. Vedeți captura de ecran:

2. În Repetarea numirii dialog, configurați-vă Repetare model. Dacă aveți nevoie de o dată de încheiere, vă rugăm să o configurați în Gama de recurență. Apoi faceți clic pe OK.

3. Când revine la Numire dialog, vă rugăm să faceți clic pe Salvați și închideți buton. Vedeți captura de ecran:

Partea 4: Utilizați codul VBA pentru a trimite e-mailurile recurente programate

1. Vă rugăm să apăsați Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații dialog.

2. Faceți dublu clic pe Project1 > Obiect Microsoft Outlook > Această sesiune Outlook în panoul din stânga. Vedeți captura de ecran:

3. Copiați și lipiți următorul cod VBA în editorul VBA. Și apoi faceți clic pe Economisiți butonul.

VBA: trimiterea e-mailurilor recurente

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. clic unelte > Referinte pentru a deschide Referinte - Proiect dialog. În casetă de dialog, verificați Biblioteca de obiecte Microsoft Word și faceți clic pe OK butonul.

5. apasă pe Alt + Q tastele în același timp pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

Cand Memento popping up, e-mailul va fi trimis automat destinatarilor pe care i-ați introdus în câmpul Locație din prima parte. Apoi apasa destitui în Memento dialog. Și e-mailul va fi trimis în fiecare zi în acest timp. Vedeți captura de ecran:

notițe: Codul VBA a fost testat cu succes în Outlook 2010 și versiunile ulterioare.


Trimiteți cu ușurință programarea e-mailurilor recurente în Outlook cu un instrument uimitor

Pentru mulți utilizatori Outlook, metoda de mai sus este prea obositoare pentru a fi tratată corect. Aici recomandăm cu tărie Programează trimiterea automată caracteristică a Kutools pentru Outlook. Cu această funcție, puteți crea cu ușurință mai multe e-mailuri recurente și puteți programa aceste e-mailuri pentru a le trimite în mod regulat la intervale zilnice, săptămânale, lunare sau anuale, după cum aveți nevoie. Vă rugăm să faceți următoarele pentru a face acest lucru.

Mergi la pagina descărcați Kutools pentru Outlook și încearcă.

1. clic Kutools > Programează trimiterea automată > Creați program de trimitere automată.

2. Apoi se deschide o fereastră de mesaje și trebuie să:

2.1) Selectați destinatarii e-mailului în Către, Cc or Bcc câmpuri după cum aveți nevoie, apoi completați e-mailul subiect;
2.2) Compuneți corpul e-mailului;
2.3) Faceți clic pe Repetare în temeiul Kutools Recurent filă. Vedeți captura de ecran:

3. Acum Recurența e-mailurilor caseta de dialog apare, trebuie să specificați timpul recurent, tipar recurent si intervalul de recurență pentru e-mail, apoi faceți clic pe OK butonul.

4. Acum revine la fereastra mesajului, faceți clic pe Salvați și închideți pentru a salva setările recurente și a închide fereastra.

Sfat: Puteți repeta pașii de la 1 la 4 de mai sus pentru a crea mai multe e-mailuri recurente după cum aveți nevoie.

5. Acum activați caracteristica făcând clic pe Kutools > Programează trimiterea automată > Permite.

6. În deschidere Kutools pentru Outlook casetă de dialog, faceți clic pe OK.

După finalizarea setărilor de mai sus, e-mailurile recurente vor fi trimise automat la data și ora specificate.

Notă: Vă puteți gestiona cu ușurință e-mailurile recurente după cum urmează.

1. clic Kutools > Programează trimiterea automată > Gestionați programul de trimitere automată.

2. În Gestionează programul de trimitere automată fereastră, puteți crea nou e-mail recurent, editați, ștergeți, aprinde or de pe un e-mail recurent existent, după cum aveți nevoie. Sau puteți face clic pe Log pictogramă pentru a vizualiza istoricul trimiterilor de e-mailuri recurente.

Faceți clic pentru a afla mai multe despre această caracteristică.

  Kutools pentru Outlook include peste 100 de caracteristici puternice pentru Microsoft Outlook. Încercare gratuită fără limitări în 60 de zile. Descarcă acum!


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (171)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Metoda a ajutat. A funcționat pentru prima întâlnire creată când o testam. Dar apoi a încetat să funcționeze mai târziu.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am avut aceeași problemă, am repetat pașii de mai multe ori și acum nu funcționează deloc, nu au fost trimise e-mailuri sau ceva. Ați reușit să o remediați?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, am putut configura un e-mail recurent urmând pașii de mai sus, dar când am creat un hyperlink în corpul unei întâlniri, când evenimentul a fost declanșat și am primit un e-mail prin e-mail, hyperlinkul a fost convertit într-un link brut. Orice ajutor este apreciat, mulțumesc.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc! Aceasta a funcționat. Există vreo modalitate de a include un atașament în e-mailul trimis? Am încercat un test cu adăugarea atașamentului la evenimentul din calendar, dar nu apare în e-mail.
Acest comentariu a fost redus la minimum de moderatorul de pe site
ați primit vreodată un răspuns despre cum să adăugați un atașament? Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am făcut ca acest lucru să funcționeze pentru e-mailul de testare, dar acum nu mai face nimic și am șters totul și am repetat pași, există mai multe la asta? Sunt si eu pe Outlook 2013
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am avut aceeasi problema. Acest lucru a funcționat chiar pentru prima dată, dar mementoul recurent privind întâlnirea nu pare să fi declanșat e-mailul. A găsit cineva o soluție la această problemă?
Acest comentariu a fost redus la minimum de moderatorul de pe site
[quote]Am făcut ca acest lucru să funcționeze pentru e-mailul de testare, dar acum nu mai face nimic și am șters totul și am repetat pașii, mai sunt mai multe? Sunt si eu pe Outlook 2013De Minunat[/quote] Ai rezolvat vreodată asta? Tocmai am configurat asta și văd același lucru pe care l-ai făcut și tu. A funcționat grozav prima dată, apoi nimic.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am rezolvat acest lucru în cele din urmă activând macrocomenzi în Outlook, care în mod implicit este dezactivat. Singura problemă pe care o am acum este că textul din e-mail este doar text simplu, nu se întâlnesc caractere aldine, dimensiuni ale fontului sau modificări de culoare etc. Există vreo modalitate de a schimba codul de mai sus, astfel încât să aveți text RTF sau HTML în e-mail?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna ai rezolvat asta? Am aceeași problemă Am încercat asta, dar nu funcționează. Sub SetMailFormat_2002_2003_2007_2010(ByRef mail As Object) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32(mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags, NothingFormatty, NothingFormatty, NothingFormatty, NothingFormatty) = 0 'OlBodyFormat.olFormatPlain = 1 'OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 If (mailFormat = 1) Then mailFormat = 2 mail.GetType().InvokeMember("BodyFormat", _SeindingFlaperty.B) Nimic, mail, obiect nou() {mailFormat}) End Sub Private Sub Application_Reminder(ByVal Item As Object) Dim MItem As MailItem Set MItem = Application.CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Then Exit Sub If Item .Categorii „Trimiteți programul de e-mail recurent” Apoi Ieșiți din sub MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Nothing End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
[citare]Am rezolvat în cele din urmă acest lucru activând macrocomenzi în Outlook, care în mod implicit este dezactivat. Singura problemă pe care o am acum este că textul din e-mail este doar text simplu, nu se întâlnesc caractere aldine, dimensiuni ale fontului sau modificări de culoare etc. Există vreo modalitate de a schimba codul de mai sus, astfel încât să aveți text RTF sau HTML în e-mail?De Kyle[/quote] Bună, Ați găsit o soluție pentru asta. Am nevoie să :) Kim
Acest comentariu a fost redus la minimum de moderatorul de pe site
De asemenea, puteți lua în considerare utilizarea Windows Task Scheduler pentru așa ceva. Este ușor de utilizat și poate gestiona chiar și atașamente.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am încercat cu task, dar nu câștig nimic, deoarece atașamentul nu merge în corpul e-mailului. Vă rugăm să spuneți cum ați procedat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ce cod folosesti? Nu a atașat atașamentele la e-mail.
Acest comentariu a fost redus la minimum de moderatorul de pe site
cum il stingi?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Din punctul meu de vedere, pentru a nu mai trimite e-mailurile recurente, ați putea: 1. Ștergeți cu totul întâlnirea. 2. Schimbați sau eliminați categoria setată. 3. Aplicați o dată de „Sfârșit până” la recurența programării.
Acest comentariu a fost redus la minimum de moderatorul de pe site
trebuie să aveți Outlook deschis / în funcțiune pentru a trimite e-mailurile recurente?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează acest cod cu Office 365 - Outlook 2013? Am urmat pașii de mai multe ori, am activat și macrocomenzile. Primesc memento-ul și apăs pe respingere, dar e-mailurile nu se trimit niciodată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei, uită-te la asta - cred că o să-ți placă absolut această funcție.. Gata cu șablonul de e-mail săptămânal
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a trimite la lista de distribuție în contacte?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Da, Aaron, trebuia să fac asta eu. Am încercat să adaug o listă de distribuție (Outlook Contact Group) numită „Spec Group”. Aceasta nu a trimis. Totuși, am schimbat numele listei în „Spec@Group” (pentru a-l face să pară o adresă de e-mail reală) și aceasta a funcționat perfect. Trebuie să aibă nevoie de „@” pentru a fi ridicat. Ghici norocos! :laugh out loud:
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru a funcționat bine. Acum am nevoie de același e-mail pentru a merge la mai multe grupuri. Poate cineva să ajute? Private Sub Application_Reminder(ByVal Item As Object) Dim CF As Folder Set CF = Application.Session.GetDefaultFolder(olFolderContacts) Dim DLI As DistListItem Set DLI = CF.Items("GDL Group 1") Dim MItem As MailItem Set MItem = Application. CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Apoi Exit Sub If Item.Categories "Recurring GDL Recert Email" Apoi Ieșire Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Send Set MItem = Nothing End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Creați o altă listă de distribuție care conține/indică către celelalte liste de distribuție pe care le-ați configurat deja și pe care doriți să le includeți.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să programați un e-mail pentru a fi trimis în Outlook atunci când computerul este dispărut. De exemplu, aș dori să trimit un memento de programare duminica pentru o întâlnire de luni, dar nu sunt la serviciu duminica, deci cum fac ca acel e-mail să iasă duminică când nu sunt la serviciu și computerul meu este oprit? Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Codul VBA nu a apărut când am apăsat ALT & F11. Am reușit să scot Microsoft Visual Basic pentru aplicații, dar nu era prezent niciun cod. Puteti va rog sa sfatuiti? Mulțumesc, Raj
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Raj, nu ar trebui să fie prezent niciun cod VBA. Dacă urmați ghidul de mai sus, atunci când faceți dublu clic pe „ThisOutlookSession”, acesta ar trebui să fie gol. Trebuie să copiați și să lipiți codul afișat în ghid în fereastra „ThisOutlookSession” și apoi să-l salvați. Sper că acest lucru vă ajută.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, când urmez toți pașii și salvez și merg să fac un alt e-mail - codul este încă acolo de data trecută. Este selectat codul atașat categoriei, astfel încât să nu fie nevoie să adăugați codul pentru fiecare e-mail?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Bonnie, codul VBA trebuie adăugat o singură dată (pentru primul e-mail recurent). Dacă configurați mai mult de un e-mail recurent, pierdeți acel pas.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am Office 2016 și am încercat asta, urmând întocmai instrucțiunile tale. A mers!! Mulțumesc foarte mult. A trebuit să-mi schimb setările de securitate macro în Outlook 2016 și editorul VBA pentru a-l face să funcționeze, dar odată ce s-a terminat, instrucțiunile au curs ușor.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Cum ați schimbat setările de securitate macro în Outlook și în ce le-ați schimbat?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Deci două lucruri, unul nu apare așa cum am scris-o, adică nu există caractere aldine și două cum adaug o semnătură? pentru că apare ca un hyperlink în loc de semnătura mea obișnuită. Multumesc pentru ajutor.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Alex Mine apare și cu formatarea eliminată. Cum îl păstrăm?
Acest comentariu a fost redus la minimum de moderatorul de pe site
A trimis bine, dar a renunțat la toate formatările de lux pe care le am în corpul meu de e-mail. Cum îl fac să păstreze această formatare???
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vreau să știu cum\dacă poți atașa o foaie de calcul Excel?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună băieți. Acest cod funcționează excelent, dar am o mică problemă. E-mailul pe care încerc să-l trimit face parte din două categorii: Trimite mesaj (folosește macro) și PROGRAMARI RED-TEAM. Macrofonul funcționează bine atunci când adaug doar categoria Trimite mesaj, dar de îndată ce este adăugată orice altă categorie, macro-ul nu mai trimite e-mailuri. Iată codul de până acum. Vă rugăm să ajutați :P Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) 'IPM.TaskItem pentru a urmări mementouri de activitate Dacă Item.MessageClass "IPM.Appointment" Apoi Ieșire Sub End Dacă Dacă Item.Categories "Send Message" Then Exit Sub End If objMsg.To = Item.Location objMsg.BCC = "andrei.buldus@promotor.ws" objMsg.Subject = "Instiintare expirare Autorizatie/Contract Service" objMsg.Body = "Buna ziua," & vbNewLine & vbNewLine & _ "Conform bazei noastre de date, autorizatia/contractul de service, incheiat intre compania noastra si " + Item.Subject + " urmeaza sa expire in termen de 14 zile." & vbNewLine & _ "Acest lucru este in atentia departamentului nostru Service, si urmeaza sa fiti contactati in cel mai scurt timp posibil pentru a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Va multumim pentru increderea acordata." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta este un mesaj automat." objMsg.Send Set objMsg = Nimic End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
se oprește din cauza liniei.... Dacă Item.Categories <> „Trimiteți programul de e-mail recurent” Apoi Ieșiți din sub.
atunci când adăugați cealaltă categorie, provoacă ieșirea sub... poate folosiți if instr(1,item.categories,"Send Schedule Recurring Email") =0 apoi ieșiți sub sau ceva de genul...
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL