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

Hoe verzend ik een terugkerende e-mail in Outlook?

In Microsoft Outlook kunt u eenvoudig een geplande terugkerende afspraak, vergadering of taak naar anderen sturen. Maar als u gewoon een terugkerende e-mail wilt verzenden zonder afspraak, vergadering of taak, hoe kunt u dat dan doen? Helaas biedt Outlook geen functie voor het verzenden van terugkerende e-mailberichten, maar in onze zelfstudie laten we u zien hoe u een terugkerende e-mail in Outlook verzendt.

Stuur een terugkerende e-mail in Outlook met VBA-code

Verzend eenvoudig terugkerende e-mails in Outlook met een geweldige tool


Stuur een terugkerende e-mail in Outlook met VBA-code

Deze tutorial is verdeeld in vier delen, het lukt je om een ​​terugkerende e-mail te sturen nadat je deze delen hebt voltooid. Ga als volgt te werk.

Deel 1: Maak een nieuwe afspraak

1. Navigeer naar het Kalender bekijken door te klikken Kalender functie in het Navigatiedeelvenster, en maak vervolgens een nieuwe afspraak door op te klikken Nieuwe afspraak voor Home Tab.

3. In de Afspraak dialoogvenster onder Afspraak tabblad. Je moet:

A: Typ het Onderwerp B: Voer de e-mailadressen van de ontvangers in het Locatie
C: Configureer het Begintijd en Eindtijd D: Selecteer de herinnering onder de Herinnering keuzelijst.
Als u 15 minuten kiest, betekent dit dat u 15 minuten eerder wordt herinnerd wanneer de e-mail is verzonden.
E: Stel uw benoemingsorgaan samen.

Opmerking:De Afspraak Onderwerp wordt het terugkerende onderwerp van de e-mail; en de Benoemingsorgaan wordt de terugkerende e-mailtekst wanneer de ontvangers de e-mail hebben ontvangen.

Deel 2: Maak een nieuwe categorie

Nu moet u een nieuwe categorie maken met de naam "Stuur een terugkerende e-mail" als volgt:

1. In de Afspraak dialoogvenster, klik dan categorizeren > Alle categorieën functie in het Tags groep onder Afspraak Tab.

2. Wanneer de Kleurcategorieën dialoogvenster verschijnt, klik dan Nieuw knop. In de Nieuwe categorie toevoegen dialoogvenster, typ “Stuur een terugkerende e-mail" in de Naam veld; en kies vervolgens een kleur in de Kleur keuzelijst. Dan klikken OK.

3. Vervolgens ziet u de "Stuur een terugkerende e-mail”Categorie wordt vermeld, vink het vakje aan en klik vervolgens op OK knop.

Deel 3: Stel de herhaling in

Nu is het tijd om de herhaling voor de afspraak in te stellen.

1. klikken Herhaling functie in het Opties groep onder Afspraak tabblad. Zie screenshot:

2. In de Herhaling van afspraak dialoog, configureer je Herhaling patroon. Als u een eindtijd nodig heeft, configureer deze dan onder Bereik van herhaling. En klik vervolgens op OK.

3. Wanneer het terugkeert naar het Afspraak dialoogvenster, klik dan Opslaan en sluiten knop. Zie screenshot:

Deel 4: Gebruik de VBA-code voor het verzenden van de terugkerende e-mail plannen

1. Druk op anders + F11 om de te openen Microsoft Visual Basic voor toepassingen dialoogvenster.

2. Dubbelklik op Project1 > Microsoft Outlook-object > DezeOutlookSessie in het linkerdeelvenster. Zie screenshot:

3. Kopieer en plak de volgende VBA-code in de VBA-editor. En klik dan Opslaan knop.

VBA: verzendschema terugkerende e-mail

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. klikken Toolbox > Referenties om de te openen Referenties - Projecteren dialoog. Controleer in het dialoogvenster het Microsoft Word-objectbibliotheek optie en klik op de OK knop.

5. druk de anders + Q toetsen tegelijkertijd om de Microsoft Visual Basic voor toepassingen venster.

Wanneer de Herinnering verschijnt, wordt de e-mail automatisch verzonden naar de ontvangers die u hebt getypt in het veld Locatie in het eerste deel. Dan klikken Ontslaan functie in het Herinnering dialoog. En de e-mail wordt in deze tijd elke dag herhaald. Zie screenshot:

Opmerking:: De VBA-code is met succes getest in Outlook 2010 en de latere versies.


Verzend eenvoudig terugkerende e-mails in Outlook met een geweldige tool

Voor veel Outlook-gebruikers is de bovenstaande methode te omslachtig om correct te worden afgehandeld. Hier is het ten zeerste aan te bevelen? Automatisch verzenden plannen kenmerk van Kutools for Outlook. Met deze functie kunt u eenvoudig meerdere terugkerende e-mails maken en deze e-mails plannen om ze regelmatig te verzenden met dagelijkse, wekelijkse, maandelijkse of jaarlijkse intervallen als u dat wilt. Ga als volgt te werk om het voor elkaar te krijgen.

Ga naar download Kutools voor Outlook en probeer het eens.

1. klikken Kutools > Automatisch verzenden plannen > Automatisch verzendschema maken.

2. Dan wordt er een berichtvenster geopend en moet u:

2.1) Selecteer de e-mailontvangers in de Aan CC or bcc velden als je nodig hebt, en vul dan de e-mail in onderwerp;
2.2) Stel de hoofdtekst van de e-mail samen;
2.3) Klik op Herhaling onder de Kutools terugkerend tabblad. Zie screenshot:

3. Nu het Herhaling van e-mails dialoogvenster verschijnt, moet u de . specificeren terugkerende tijd, terugkerend patroon en bereik van herhaling voor de e-mail en klik vervolgens op de OK knop.

4. Nu keert het terug naar het berichtvenster, klik op Opslaan en sluiten om de terugkerende instellingen op te slaan en het venster te sluiten.

Tips: U kunt de bovenstaande stap 1 tot 4 herhalen om meerdere terugkerende e-mails te maken als u dat wilt.

5. Schakel nu de functie in door te klikken op Kutools > Automatisch verzenden plannen > Inschakelen.

6. In de opening Kutools for Outlook dialoogvenster, klik OK.

Nadat de bovenstaande instellingen zijn voltooid, worden de terugkerende e-mails automatisch verzonden wanneer de opgegeven datum en tijd is bereikt.

Opmerking: U kunt uw terugkerende e-mails eenvoudig als volgt beheren.

1. klikken Kutools > Automatisch verzenden plannen > Automatisch verzendschema beheren.

2. In de Automatisch verzendschema beheren venster, kunt u maken nieuwe terugkerende e-mail, bewerken verwijderen, aanzetten or korting een bestaande terugkerende e-mail als je nodig hebt. Of u kunt op de Log pictogram om de verzendgeschiedenis van de terugkerende e-mails te bekijken.

Klik om meer te weten over deze functie.

  Kutools for Outlook bevat 100+ krachtige functies voor Microsoft Outlook. Gratis te proberen zonder beperking in 60 dagen. Download nu!


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Heb je vragen? Stel ze hier. (171)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
De methode heeft geholpen. Het werkte voor de eerste afspraak gemaakt toen ik het uitprobeerde. Maar toen werkte het later niet meer.
Deze opmerking is gemaakt door de moderator op de site
Ik had hetzelfde probleem, ik heb de stappen meerdere keren herhaald en nu werkt het helemaal niet, er worden geen e-mails verzonden of iets dergelijks. Heb je het kunnen repareren?
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik kon een terugkerende e-mail instellen door de bovenstaande stappen te volgen, maar toen ik een hyperlink maakte in de hoofdtekst van een afspraak, toen de gebeurtenis werd geactiveerd en ik een e-mail ontving, werd de hyperlink geconverteerd naar een onbewerkte link. Alle hulp wordt op prijs gesteld, bedankt.
Deze opmerking is gemaakt door de moderator op de site
Dank u! Dit werkte. Is er een manier om een ​​bijlage toe te voegen aan de verzonden e-mail? Ik heb een test geprobeerd met het toevoegen van de bijlage aan de agenda-afspraak, maar deze komt niet door in de e-mail.
Deze opmerking is gemaakt door de moderator op de site
heb je ooit antwoord gekregen over hoe je een bijlage toevoegt? Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Ik heb dit werkend gekregen voor de test-e-mail, maar nu doet het niets meer, en ik heb alles verwijderd en herhaalde stappen, is hier meer aan de hand? Ik heb ook outlook 2013
Deze opmerking is gemaakt door de moderator op de site
Ik heb hetzelfde probleem gehad. Dit werkte de allereerste keer, maar de terugkerende afspraakherinnering lijkt de e-mail niet te hebben geactiveerd. Heeft iemand een oplossing voor dit probleem gevonden?
Deze opmerking is gemaakt door de moderator op de site
[quote]Ik heb dit werkend gekregen voor de test-e-mail, maar nu doet het niets meer, en ik heb alles verwijderd en herhaalde stappen, is hier meer aan de hand? Ik heb ook outlook 2013Door Wonderful[/quote] Heb je dit ooit opgelost? Ik heb dit net ingesteld en zie hetzelfde als wat jij deed. Werkte de eerste keer prima, daarna niets meer.
Deze opmerking is gemaakt door de moderator op de site
Ik heb dit uiteindelijk opgelost door macro's in Outlook in te schakelen die standaard zijn uitgeschakeld. Enige probleem dat ik nu heb is dat de tekst in de e-mail alleen platte tekst is, geen vetgedrukte tekst, lettergrootte of kleurveranderingen etc. overkomt. Is er een manier om de bovenstaande code te wijzigen, zodat je RTF- of HTML-tekst in de e-mail hebt?
Deze opmerking is gemaakt door de moderator op de site
Hoi Heb je dit opgelost. Ik heb hetzelfde probleem Heb dit geprobeerd, maar werkt niet. Sub SetMailFormat_2002_2003_2007_2010(ByRef mail As Object) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32(mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.GetProperty, Nothing, mail, Nothing)) 'OlFormatUnFormatifiedspec.olFormatUnFormatified. = 0 'OlBodyFormat.olFormatPlain = 1 'OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 If (mailFormat = 1) Dan mailFormat = 2 mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.SetProperty, _SetProperty Niets, mail, New Object() {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" Dan Sub afsluiten If Item .Categorieën "Stuur schema terugkerende e-mail" Sluit vervolgens Sub af MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Niets End Sub
Deze opmerking is gemaakt door de moderator op de site
[quote]Ik heb dit uiteindelijk opgelost door macro's in te schakelen in Outlook die standaard is uitgeschakeld. Enige probleem dat ik nu heb is dat de tekst in de e-mail alleen platte tekst is, geen vetgedrukte tekst, lettergrootte of kleurveranderingen etc. overkomt. Is er een manier om de bovenstaande code te wijzigen, zodat je RTF- of HTML-tekst in de e-mail hebt?Door Kyle[/quote] Hoi Heeft u hier een oplossing voor gevonden. Ik heb het nodig :) Kim
Deze opmerking is gemaakt door de moderator op de site
U kunt ook overwegen om voor zoiets als dit Windows Taakplanner te gebruiken. Het is gemakkelijk te gebruiken en kan zelfs bijlagen aan.
Deze opmerking is gemaakt door de moderator op de site
Ik heb het geprobeerd met de taak, maar ik krijg niets omdat de bijlage niet naar de hoofdtekst van de e-mail gaat. Gelieve te adviseren hoe u het hebt gedaan.
Deze opmerking is gemaakt door de moderator op de site
Welke code gebruik je? Het heeft de bijlagen niet bij de e-mail gevoegd.
Deze opmerking is gemaakt door de moderator op de site
hoe zet je het uit?
Deze opmerking is gemaakt door de moderator op de site
Uit mijn hoofd, om te stoppen met het verzenden van de terugkerende e-mail, kun je ofwel: 1. De afspraak helemaal verwijderen. 2. Wijzig of verwijder de ingestelde categorie. 3. Pas een einddatum toe op de afspraakherhaling.
Deze opmerking is gemaakt door de moderator op de site
moet je outlook open / actief hebben om de terugkerende e-mail te verzenden?
Deze opmerking is gemaakt door de moderator op de site
Werkt deze code met Office 365 - Outlook 2013? Ik heb de stappen verschillende keren gevolgd, ook de macro's ingeschakeld. Ik krijg de herinnering en druk op negeren, maar de e-mails worden nooit verzonden.
Deze opmerking is gemaakt door de moderator op de site
Hé, bekijk dit eens - ik denk dat je deze functie absoluut geweldig zult vinden.. Geen wekelijkse sjabloon-e-mails meer
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om naar de distributielijst in contacten te verzenden?
Deze opmerking is gemaakt door de moderator op de site
Ja Aaron, ik moest dit zelf doen. Ik heb geprobeerd een distributielijst (Outlook Contact Group) toe te voegen met de naam 'Spec Group'. Dit is niet verzonden. Ik heb echter de lijstnaam gewijzigd in 'Spec@Group' (zodat het lijkt op een echt e-mailadres) en dit werkte perfect. Het moet de '@' nodig hebben om opgehaald te worden. Gokje! :lol:
Deze opmerking is gemaakt door de moderator op de site
Dit werkte goed. Nu heb ik hetzelfde e-mailadres nodig om naar meerdere groepen te gaan. Kan iemand helpen? 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" Dan Sub afsluiten If Item.Categories "Recurring GDL Recert Email" Sluit dan Sub af MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Verzend Set MItem = Niets Einde Sub
Deze opmerking is gemaakt door de moderator op de site
Maak nog een distributielijst die de andere distributielijsten bevat/wijst die u al hebt ingesteld en die u wilt opnemen.
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om een ​​e-mail te plannen die in Outlook wordt verzonden wanneer de computer weg is. Ik wil bijvoorbeeld op zondag een afspraakherinnering sturen voor een vergadering op maandag, maar ik ben op zondag niet aan het werk, dus hoe krijg ik die e-mail om op zondag uit te gaan als ik niet aan het werk ben en mijn computer is uit? Bedankt!
Deze opmerking is gemaakt door de moderator op de site
De VBA-code verscheen niet toen ik op ALT & F11 drukte. Ik kon de Microsoft Visual Basic for Applications ophalen, maar er was geen code aanwezig. Kunt u alstublieft adviseren? Dank je, Raj
Deze opmerking is gemaakt door de moderator op de site
Hallo Raj, er mag geen VBA-code aanwezig zijn. Als u de bovenstaande handleiding volgt, wordt verondersteld dat deze leeg is wanneer u dubbelklikt op "ThisOutlookSession". U moet de code die in de handleiding wordt weergegeven, kopiëren en plakken in het venster "ThisOutlookSession" en vervolgens opslaan. Ik hoop dat dit helpt.
Deze opmerking is gemaakt door de moderator op de site
Hallo als ik alle stappen volg en opslaan en ga, maak nog een e-mail - de code is er nog steeds van de vorige keer. Is de code gekoppeld aan de geselecteerde categorie, zodat u de code niet voor elke e-mail hoeft toe te voegen?
Deze opmerking is gemaakt door de moderator op de site
Hallo Bonnie, de VBA-code hoeft maar één keer te worden toegevoegd (voor de eerste terugkerende e-mail). Als u meer dan één terugkerende e-mail instelt, hoeft u die stap gewoon over te slaan.
Deze opmerking is gemaakt door de moderator op de site
Ik heb Office 2016 en ik heb dit geprobeerd, precies volgens uw instructies. Het werkte!! Hartelijk bedankt. Ik moest mijn macro-beveiligingsinstellingen in Outlook 2016 en VBA-editor wijzigen om het te laten werken, maar toen dat eenmaal was gebeurd, stroomden de instructies gemakkelijk.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Hoe heb je de macro-beveiligingsinstellingen in Outlook gewijzigd en waarin heb je deze gewijzigd?
Deze opmerking is gemaakt door de moderator op de site
Dus twee dingen, een het wordt niet weergegeven zoals ik het heb geschreven IE er zijn geen vetgedrukte tekens en twee hoe voeg ik een handtekening toe? omdat het verschijnt als een hyperlink in plaats van mijn gewone handtekening. Bedankt voor de hulp.
Deze opmerking is gemaakt door de moderator op de site
Alex Mine verschijnt met de opmaak ook uitgekleed. Hoe houden we het?
Deze opmerking is gemaakt door de moderator op de site
Het stuurde prima, maar het liet alle mooie opmaak die ik in mijn e-mailtekst heb, vallen. Hoe zorg ik ervoor dat deze opmaak behouden blijft ???
Deze opmerking is gemaakt door de moderator op de site
Ik moet weten hoe\of u een Excel-spreadsheet kunt bijvoegen?
Deze opmerking is gemaakt door de moderator op de site
Hallo jongens. Deze code werkt prima, maar ik heb een klein probleem. De e-mail die ik probeer te verzenden, maakt deel uit van twee categorieën: Bericht verzenden (de macro gebruikt) en PROGRAMARI RED-TEAM. De macro werkt prima als ik alleen de categorie Bericht verzenden toevoeg, maar zodra een andere categorie wordt toegevoegd, stopt de macro met het verzenden van e-mails. Hier is de code tot nu toe. Help alstublieft: P Private Sub Application_Reminder (ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem (olMailItem) 'IPM.TaskItem om te letten op taakherinneringen If Item.MessageClass "IPM.Appointment" Sluit vervolgens Sub End If If af Item.Categories "Bericht verzenden" Verlaat vervolgens 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 datum, autorizatia/contractul de service, incheiat intre compania nostra si " + Item.Subject + " urmeaza sa expire in term 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 is een automatische incasso." objMsg.Send Set objMsg = Nothing End Sub
Deze opmerking is gemaakt door de moderator op de site
het stopt vanwege de regel .... Als Item.Categories <> "Stuur schema terugkerende e-mail" dan Sub afsluiten
wanneer u de andere categorie toevoegt, wordt de exit-sub ingeschakeld .... misschien gebruiken if instr (1,item.categories,"Send Schedule Recurring Email") =0 en vervolgens sub afsluiten of iets dergelijks ...
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL