Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrace  \/ 
x

or

Jak odeslat plán opakující se e-mail v aplikaci Outlook?

V aplikaci Microsoft Outlook můžete snadno odeslat plán opakované schůzky, schůzky nebo úkolu ostatním. Pokud ale chcete poslat opakující se e-mail s plánem bez schůzky, schůzky nebo úkolu, jak to můžete udělat? Aplikace Outlook bohužel neposkytuje žádnou funkci pro odesílání opakujících se e-mailů podle plánu, ale v našem tutoriálu vám ukážeme, jak odeslat opakující se e-mail podle plánu v aplikaci Outlook.

Odeslat plán opakující se e-mail v aplikaci Outlook s kódem VBA

Snadno odesílejte plánované opakující se e -maily v aplikaci Outlook pomocí úžasného nástroje


Odeslat plán opakující se e-mail v aplikaci Outlook s kódem VBA

Tento výukový program je rozdělen do čtyř částí, po dokončení těchto částí se vám podaří poslat opakující se e-mail s plánem. Postupujte prosím následovně.

Část 1: Vytvořte novou schůzku

1. Přejděte na Kalendář zobrazit kliknutím Kalendář v Navigační podoknoa poté vytvořte novou schůzku kliknutím Nová událost pod Domovská stránka Karta.

3. V Jmenování dialog pod Jmenování záložka. Musíš:

Odpověď: Zadejte Předmět B: Zadejte e-mailové adresy příjemců do pole Sídlo
C: Nakonfigurujte Začátek a Čas ukončení D: Vyberte připomenutí pod Připomínka rozbalovací seznam.
Vyberete-li 15 minut, znamená to, že vám bude při odeslání e-mailu připomenout o 15 minut dříve.
E: Vytvořte své tělo schůzky.

Poznámka: Předmět schůzky se stane opakujícím se předmětem e-mailu; a Subjekt jmenování jakmile příjemci obdrží e-mail, stanou se tělem opakovaného e-mailu.

Část 2: Vytvořte novou kategorii

Nyní musíte vytvořit novou kategorii s názvem „Odeslat plán opakovaného e-mailu" jak následuje:

1. V Jmenování dialogové okno, klikněte prosím Kategorizujte > Všechny kategorie v Tagy skupina pod Jmenování Karta.

2. Když Barevné kategorie vyskočí dialogové okno, klikněte prosím Nový tlačítko. V Přidat novou kategorii dialogové okno, zadejte „Odeslat plán opakovaného e-mailu"V Jméno a Příjmení pole; a poté vyberte barvu v Barva rozbalovací seznam. Pak klikněte na tlačítko OK.

3. Potom uvidíte „Odeslat plán opakovaného e-mailu“Kategorie je uvedena, zaškrtněte políčko a poté klikněte OK tlačítko.

Část 3: Nastavte opakování

Nyní je čas nastavit opakování schůzky.

1. cvaknutí Opakování v možnosti skupina pod Jmenování záložka. Viz snímek obrazovky:

2. V Opakování schůzky nakonfigurujte svůj Opakování vzor. Pokud potřebujete čas ukončení, nakonfigurujte jej pod Rozsah opakování. A pak klikněte na tlačítko OK.

3. Když se vrátí do Jmenování dialogové okno, klikněte prosím Uložit a zavřít knoflík. Viz screenshot:

Část 4: Použijte kód VBA k odeslání plánu opakovaného e -mailu

1. Stiskněte Další + F11 k otevření Microsoft Visual Basic pro aplikace dialog.

2. Dvakrát klikněte na Project1 > Objekt Microsoft Outlook > ThisOutlookSession v levém podokně. Viz screenshot:

3. Zkopírujte a vložte následující kód VBA do editoru VBA. A pak klikněte Uložit tlačítko.

VBA: zasílání opakujících se e-mailů podle plánu

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. cvaknutí Tools > Reference k otevření Reference - Projekt dialog. V dialogovém okně zaškrtněte Objektová knihovna Microsoft Word a klepněte na tlačítko OK tlačítko.

5. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

Když Připomínka po vyskakování se e-mail automaticky odešle příjemcům, které jste zadali do pole Umístění v první části. Poté klikněte Propustit v Připomínka dialog. E-mail bude v této době zasílán opakovaně každý den. Viz screenshot:

Poznámka: Kód VBA byl úspěšně otestován v aplikaci Outlook 2010 a novějších verzích.


Snadno odesílejte plánované opakující se e -maily v aplikaci Outlook pomocí úžasného nástroje

Pro mnoho uživatelů aplikace Outlook je výše uvedená metoda příliš únavná na to, aby byla zpracována správně. Zde velmi doporučujeme Naplánovat automatické odesílání vlastnost Kutools pro aplikaci Outlook. S touto funkcí můžete snadno vytvářet více opakujících se e -mailů a naplánovat jejich pravidelné odesílání v denních, týdenních, měsíčních nebo ročních intervalech, jak potřebujete. Chcete -li to provést, postupujte následovně.

Jít do stáhněte si Kutools pro aplikaci Outlook a vyzkoušet.

1. cvaknutí Kutools > Naplánovat automatické odesílání > Vytvořit plán automatického odesílání.

2. Poté se otevře okno se zprávou a potřebujete:

2.1) Vyberte příjemce e -mailu v Komu, Cc or Bcc pole, jak potřebujete, a poté vyplňte e -mail předmět;
2.2) Vytvořte tělo e -mailu;
2.3) Klepněte na tlačítko Opakování pod Opakující se Kutools záložka. Viz snímek obrazovky:

3. Nyní Opakování e -mailů objeví se dialogové okno, musíte zadat opakující se čas, opakující se vzor a rozsah opakování pro e -mail a poté klikněte na OK tlačítko.

4. Nyní se vrátí do okna zprávy, klikněte Uložit a zavřít tlačítko pro uložení opakujících se nastavení a zavření okna.

Tip: Výše uvedené kroky 1 až 4 můžete opakovat a vytvořit tak více opakujících se e -mailů, jak potřebujete.

5. Nyní funkci zapněte kliknutím Kutools > Naplánovat automatické odesílání > Umožnit.

6. V otvoru Kutools pro aplikaci Outlook , klepněte na tlačítko OK OK.

Po dokončení výše uvedených nastavení budou opakované e -maily automaticky odesílány, jakmile dosáhne zadaného data a času.

Poznámka: Opakující se e -maily můžete snadno spravovat následujícím způsobem.

1. cvaknutí Kutools > Naplánovat automatické odesílání > Spravujte plán automatického odesílání.

2. V Upravit plán automatického odesílání okno, můžete vytvořit nový opakující se e -mail, upravovat, mazat, zapnout or off existující opakující se e -mail podle potřeby. Nebo můžete kliknout na Log ikonu pro zobrazení historie odesílání opakujících se e -mailů.

Klepnutím získáte další informace o této funkci.

  Kutools pro aplikaci Outlook obsahuje více než 100 výkonných funkcí pro Microsoft Outlook. Zdarma k vyzkoušení bez omezení za 60 dní. stáhnout nyní!


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Chowa · 3 years ago
    Hi,
    Thank you so much. It works for Outlook 2016, the version we use at our company.
    I have a question. What do I need to add to the VBA so that it will also grab pictures? I included picture/graphics in my Body. The email grabbed text only.

    Please help.
    Ann
  • To post as a guest, your comment is unpublished.
    Guy · 3 years ago
    For those it's not working - You need to enable Macro commands on Outlook first
  • To post as a guest, your comment is unpublished.
    Laurie · 3 years ago
    Is it necessary to attach a reminder to trigger the email?
  • To post as a guest, your comment is unpublished.
    tallgingerone · 3 years ago
    Hi there, my appointment did not send. I am unsure if there is an issue with the code I am using. I want to send the email to 6 addresses and have separated them with semi colons; do I need to put the actual email addresses in to the code? Here is the code I used:



    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.Categories <> "Send Schedule Recurring Email" Then Exit Sub
    MItem.To = "single or multiple emails separated by semi colon ";" "
    MItem.CC = "single or multiple emails separated by semi colon ";" "

    MItem.Subject = Item.Subject
    MItem.Body = Item.Body
    With MItem
    .Attachments.Add "network path of the file to be attached. eg: \\abc\def\ghi.doc"
    .Display

    End With
    MItem.Send
    Set MItem = Nothing
    End Sub



    Can anyone advise? Thank you
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      God Day,
      Any question about Outlook, please don’t hesitate to post in our forum: https://www.extendoffice.com/forum.html.
      You will get more supports about Outlook from our Outlook professional.
  • To post as a guest, your comment is unpublished.
    Anonymouse · 3 years ago
    It didnt work for me
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Good Day,
      The code has been updated in the post. Please try it again.
  • To post as a guest, your comment is unpublished.
    Chris · 3 years ago
    Same here, Office 2010 and 2016. Works great when setting up the First occurance, does not work when the next recurring reminder triggers the next week.
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Good Day,
      The code has been updated in the post. Please try it again.
  • To post as a guest, your comment is unpublished.
    tmas · 3 years ago
    The first automatic one of the series worked but no more have
  • To post as a guest, your comment is unpublished.
    Malcolm · 3 years ago
    I mean "dismiss"
  • To post as a guest, your comment is unpublished.
    Malcolm · 3 years ago
    Nothing is happening after I click submit.
  • To post as a guest, your comment is unpublished.
    AndrewR · 3 years ago
    Very useful, thank you for taking the time to create this.
  • To post as a guest, your comment is unpublished.
    CLAYTON · 3 years ago
    I do not receive an email after I hit DISMISS ... I did use <> in the location field - is that correct?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Good Day,
      The <> does not effect the sending. Actually there is something wrong with the VBA code, and the code now is updated in the post. Please try again. Thank you!
  • To post as a guest, your comment is unpublished.
    engyaogoh@gmail.com · 3 years ago
    Hi All,


    I have added code to dismiss reminder once it was fired, so that we would not accidentally click snooze and cause the email to be resend. Also, code was added so that the full formatted email body is copied (including picture and attachment). Hope the code below will resolve all your issues.


    Code as below:


    Dim WithEvents objReminders As Outlook.Reminders
    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.Categories <> "Send Schedule Recurring Email" Then Exit Sub
    MItem.To = Item.Location
    MItem.CC = ""
    MItem.BCC = ""
    MItem.Subject = Item.Subject
    MItem.BodyFormat = olFormatHTML
    Item.GetInspector().WordEditor.Range.Copy
    MItem.GetInspector().WordEditor.Range.Paste
    MItem.Display
    MItem.Send
    Set MItem = Nothing
    End Sub

    Private Sub Application_Startup()
    Set objReminders = Application.Reminders
    End Sub
    Private Sub objReminders_ReminderFire(ByVal ReminderOBject As Reminder)

    If ReminderOBject.Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub

    ReminderOBject.Dismiss

    End Sub


    Regards,
    Engyaogoh
  • To post as a guest, your comment is unpublished.
    Newt · 3 years ago
    <HELP>

    hi I found out one.
    The first test of the code, it works properly.
    But I found out the next day to test, I found out it is not working anymore. (not sending the mail to the destination)


    I have tried the macro setting, remove categories, seem not working too.
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hey,
      The code is now updated in the post, please try again! Thank you!
  • To post as a guest, your comment is unpublished.
    GP · 3 years ago
    A lot of people have asked about CC and adding an attachment and sending the mail to multiple people. Please use the VBA code below in place of the one provided in the VBA code step above.



    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.Categories <> "Send Schedule Recurring Email" Then Exit Sub
    MItem.To = "single or multiple emails separated by semi colon ";" "
    MItem.CC = "single or multiple emails separated by semi colon ";" "

    MItem.Subject = Item.Subject
    MItem.Body = Item.Body
    With MItem
    .Attachments.Add "network path of the file to be attached. eg: \\abc\def\ghi.doc"
    .Display

    End With
    MItem.Send
    Set MItem = Nothing
    End Sub
    • To post as a guest, your comment is unpublished.
      Vinodh Kumar · 1 years ago
      Hi,

      I am getting syntax error. Help me pls.
  • To post as a guest, your comment is unpublished.
    PAP · 3 years ago
    Works well for Outlook 365! Thank you for sharing the code!
  • To post as a guest, your comment is unpublished.
    Mani · 4 years ago
    It is not working in Outlook 2013. Any help?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Dear Nani,
      The code has been updated to be compatible with Outlook 2013.
  • To post as a guest, your comment is unpublished.
    Gandhiyappan · 4 years ago
    if my outlook is closed then mail is not sent. Is there any way to make it even when my outlook is closed
  • To post as a guest, your comment is unpublished.
    Sara · 4 years ago
    What Happens if I want to CC people?
  • To post as a guest, your comment is unpublished.
    Marc · 4 years ago
    Getting "Syntax Error " in VBA window. Using Outlook 2016 on Windows8
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Dear Mac,
      The code has been updated to be compatible with Outlook 2016.
  • To post as a guest, your comment is unpublished.
    Ajmal · 4 years ago
    I've setup multiple emails in outlook, how would it know to send it from?
  • To post as a guest, your comment is unpublished.
    Krystin · 4 years ago
    It will not let me add the amount of people I need to send too ?
    • To post as a guest, your comment is unpublished.
      Kyle · 4 years ago
      Asked and answered above. You add a distribution list (Outlook Contact Group) and use @ in the group name i.e. 'Spec@Group'. Put all the people you like in that group.
      • To post as a guest, your comment is unpublished.
        Brian · 4 years ago
        Sorry - I'm not fully understanding "Spec@Group" - If I create a group called "NetworkMeeting" and add all the people in that, would the address be NetworkMeeting@MyDomain.com?
  • To post as a guest, your comment is unpublished.
    Andrei Buldus · 4 years ago
    Hey guys. This code works great but i have a little problem . The email i am trying to send is part of two categories : Send Message(the macro uses) and PROGRAMARI RED-TEAM. The macro works fine when i only add the Send Message category, but as soon as any other category is added the macro stops sending emails. Here is the code so far. Please help :P

    Private Sub Application_Reminder(ByVal Item As Object)
    Dim objMsg As MailItem
    Set objMsg = Application.CreateItem(olMailItem)

    'IPM.TaskItem to watch for Task Reminders
    If Item.MessageClass "IPM.Appointment" Then
    Exit Sub
    End If

    If 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 nostra 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 S.R.L." & vbNewLine & vbNewLine & vbNewLine & _
    "Acesta este un mesaj automat."

    objMsg.Send

    Set objMsg = Nothing
    End Sub
    • To post as a guest, your comment is unpublished.
      victor · 4 years ago
      it's stopping because of the line.... If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
      when you add the other category it is cuasing the exit sub.... maybe use if instr(1,item.categories,"Send Schedule Recurring Email") =0 then exit sub or something like that...
  • To post as a guest, your comment is unpublished.
    Duane Cowperthwait · 4 years ago
    I need to know how\if you can attached an excel spreed sheet?
  • To post as a guest, your comment is unpublished.
    Tracy · 4 years ago
    It sent fine, but it dropped all of the fancy formatting I have in my email body. How do I get it to keep this formatting???
  • To post as a guest, your comment is unpublished.
    alex · 4 years ago
    So two things, one it doesn't show up the way I have written it I.E. there is no bold characters and two how do I add a signature? because it shows up as a hyper link instead of my regular signature. Thanks for the help.
    • To post as a guest, your comment is unpublished.
      Tracy · 4 years ago
      Alex

      Mine shows up with the formatting stripped out too. How do we keep it?
  • To post as a guest, your comment is unpublished.
    William · 4 years ago
    I have office 2016 and I tried this, following your instructions exactly. It worked!! Thank you so much.

    I did have to change my macro security settings in Outlook 2016 and VBA editor to get it to work, but once that was done the instructions flowed easily.
    • To post as a guest, your comment is unpublished.
      Ahmad · 4 years ago
      Hi, How did you change the macro security settings in outlook and what did you change it to?
  • To post as a guest, your comment is unpublished.
    bonnie · 5 years ago
    Hi
    when i follow all steps and save and go do make another email- the code is still there from last time.
    Is the code attached to the category selected so no need to add the code for each email?
    • To post as a guest, your comment is unpublished.
      Kyle · 5 years ago
      Hi Bonnie, the VBA code only needs to be added once (for the first recurring e-mail). If setting up more than one recurring e-mail just miss out that step.
  • To post as a guest, your comment is unpublished.
    RD · 5 years ago
    The VBA code did not appear when I pressed ALT & F11. I was able to pull up the Microsoft Visual Basic for Applications, but no code was present. Can you please advise?

    Thank you,
    Raj
    • To post as a guest, your comment is unpublished.
      KYLE · 5 years ago
      Hi Raj, no VBA code should be present. If you follow the guide above, when you double click on "ThisOutlookSession" it is supposed to be empty. You have to copy and paste the code shown in the guide into the "ThisOutlookSession" window and then save it. Hope this helps.
  • To post as a guest, your comment is unpublished.
    Ashley · 6 years ago
    Is it possible to schedule an email to be sent in outlook when the computer is gone. For example, I would like to send an appointment reminder on Sunday for a meeting on Monday, but I am not at work on Sundays, so how do I get that email to go out on Sunday when I am not at work and my computer is off?

    Thanks!
  • To post as a guest, your comment is unpublished.
    Kyle · 6 years ago
    Yes Aaron, I needed to do this myself. I tried adding a distribution list (Outlook Contact Group) called 'Spec Group'. This did not send. However, I changed the list name to 'Spec@Group' (to make it look like an actual e-mail address) and this worked perfectly. It must need the '@' to get picked up. Lucky guess! :lol:
    • To post as a guest, your comment is unpublished.
      Tracy · 4 years ago
      This worked well. Now I need the same email to go to multiple groups. Can anyone help?

      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" Then Exit Sub
      If Item.Categories "Recurring GDL Recert Email" Then Exit Sub
      MItem.To = DLI
      MItem.Subject = Item.Subject
      MItem.Body = Item.Body
      MItem.Send
      Set MItem = Nothing

      End Sub
      • To post as a guest, your comment is unpublished.
        Kristal · 3 years ago
        Make another Distribution list that contains/points to the other Distribution Lists that you already have setup that you want to include.
  • To post as a guest, your comment is unpublished.
    Aaron · 6 years ago
    Is there a way to send to distribution list in contacts?
  • To post as a guest, your comment is unpublished.
    Donna · 6 years ago
    Hey, check this out - I think you'll absolutely love this feature.. No more weekly template emails
  • To post as a guest, your comment is unpublished.
    Tammy · 6 years ago
    Does this code work with Office 365 - Outlook 2013? I have followed the steps several times, enabled the macros, too. I get the reminder and press dismiss but the emails never send.
  • To post as a guest, your comment is unpublished.
    Patrick · 6 years ago
    do you need to have outlook open / running to send the recurring mail ?
  • To post as a guest, your comment is unpublished.
    bububububbb · 6 years ago
    how do you turn it off?
    • To post as a guest, your comment is unpublished.
      Kyle · 6 years ago
      Off the top of my head, to stop sending the recurring e-mail you could either:
      1. Delete the appointment altogether.
      2. Change or Remove the set Category.
      3. Apply an 'End By' Date to the Appointment Recurrence.
  • To post as a guest, your comment is unpublished.
    Pete · 6 years ago
    You might also consider using Windows Task Scheduler for something like this. It is easy to use and can even handle attachments.
    • To post as a guest, your comment is unpublished.
      israel · 5 years ago
      Which code are you using? It didn't attach to the email the attachments.
    • To post as a guest, your comment is unpublished.
      israel · 5 years ago
      I tried with task but i don't gain anything since the attachment does not go to the body of the email. Please advise how you have done it.
  • To post as a guest, your comment is unpublished.
    Kyle · 7 years ago
    I sorted this out eventually by enabling macros in Outlook which by default is switched off.

    Only problem I have now is that the text in the e-mail is plain text only, no bold, font size or colour changes etc. come across. Is there any way to change the code above so you have RTF or HTML text in the e-mail?
    • To post as a guest, your comment is unpublished.
      Kim Broendberg · 5 years ago
      [quote name="Kyle"]I sorted this out eventually by enabling macros in Outlook which by default is switched off.

      Only problem I have now is that the text in the e-mail is plain text only, no bold, font size or colour changes etc. come across. Is there any way to change the code above so you have RTF or HTML text in the e-mail?[/quote]
      Hi
      Did you find a solution for this.
      I need it to :)

      Kim
    • To post as a guest, your comment is unpublished.
      Kim Broendberg · 5 years ago
      Hi
      Did you solve this.
      I have the same problem
      Tried this, but not working.
      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))
      'OlBodyFormat.olFormatUnspecified = 0
      'OlBodyFormat.olFormatPlain = 1
      'OlBodyFormat.olFormatHTML = 2
      'OlBodyFormat.olFormatRichText = 3
      If (mailFormat = 1) Then mailFormat = 2
      mail.GetType().InvokeMember("BodyFormat", _
      Reflection.BindingFlags.SetProperty, _
      Nothing, 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" Then Exit Sub
      If Item.Categories "Send Schedule Recurring Email" Then Exit Sub
      MItem.To = Item.Location
      MItem.Subject = Item.Subject
      MItem.Body = Item.Body
      MItem.Send
      Set MItem = Nothing
      End Sub
  • To post as a guest, your comment is unpublished.
    Wonderful · 7 years ago
    I got this to work for the test email, but now it no longer does anything, and I've deleted everything and repeated steps, is there more to this?

    I am on outlook 2013 as well
    • To post as a guest, your comment is unpublished.
      Ann · 6 years ago
      [quote name="Wonderful"]I got this to work for the test email, but now it no longer does anything, and I've deleted everything and repeated steps, is there more to this?

      I am on outlook 2013 as well[/quote]

      Did you ever resolve this? I just set this up and am seeing the same thing you did. Worked great the first time then nothing.
    • To post as a guest, your comment is unpublished.
      bonbon · 7 years ago
      I've had the same problem. This worked the very first time but the recurring appointment reminder doesn't seem to have triggered the email. Has anyone found a solution to this problem?
  • To post as a guest, your comment is unpublished.
    Sally · 7 years ago
    Thank you! This worked. Is there a way to include an attachment in the email that is sent out? I tried a test with adding the attachment to the calendar event but it doesn't come through in the email.
    • To post as a guest, your comment is unpublished.
      michelle · 4 years ago
      did you ever get an answer on how to add an attachment? Thanks!
  • To post as a guest, your comment is unpublished.
    Harshavrath · 7 years ago
    Hi i was able set up an recurring email by following the above steps, but when i created an Hyperlink in the body of an Appointment, when the event was triggered and i got an mail in the mail the Hyperlink was converted to an Raw link.
    Any Help is Appreciated,
    Thanks.
  • To post as a guest, your comment is unpublished.
    Pandurang · 7 years ago
    The method did help. It worked for the initial one appointment created when I was testing it out. But then it stopped working later.
    • To post as a guest, your comment is unpublished.
      Wonderful · 7 years ago
      I had the same issue, I have repeated the steps multiple times and now it isn't working at all, no emails being sent or anything

      Have you been able to fix it?