Saltar al contenido principal

¿Cómo enviar un correo electrónico recurrente programado en Outlook?

En Microsoft Outlook, puede enviar fácilmente una cita, reunión o tarea periódica programada a otras personas. Pero si solo desea enviar un correo electrónico recurrente programado sin ninguna cita, reunión o tarea, ¿cómo puede hacerlo? Desafortunadamente, Outlook no ofrece ninguna función para enviar correos electrónicos recurrentes programados, pero en nuestro tutorial, le mostraremos cómo enviar un correo electrónico recurrente programado en Outlook.

Envíe un correo electrónico recurrente programado en Outlook con código VBA

Envíe fácilmente correos electrónicos periódicos periódicos en Outlook con una herramienta increíble


Envíe un correo electrónico recurrente programado en Outlook con código VBA

Este tutorial está dividido en cuatro partes, tendrá éxito en enviar un correo electrónico recurrente programado después de terminar estas partes. Haz lo siguiente.

Parte 1: crear una nueva cita

1. Navegue hasta el Calendario ver haciendo clic en Calendario existentes Panel de exploracióny luego cree una nueva cita haciendo clic en Nueva cita bajo Inicio .

3. En el Haga una cita diálogo debajo Haga una cita lengüeta. Necesitas:

A: Escriba el Asunto B: Ingrese las direcciones de correo electrónico de los destinatarios en el Ubicación
C: Configure el Hora de inicio y Hora de finalización D: Seleccione el recordatorio debajo de recordatorio la lista desplegable.
Si elige 15 minutos, significa que le recordará 15 minutos antes cuando se envíe el correo electrónico.
E: Redacte su cuerpo de nombramiento.

Note: Los Asunto de la cita se convertirá en el asunto recurrente del correo electrónico; y el Organismo de nombramiento se convertirá en el cuerpo del correo electrónico recurrente cuando los destinatarios reciban el correo electrónico.

Parte 2: crear una nueva categoría

Ahora necesita crear una nueva categoría llamada "Enviar correo electrónico periódico de programación" como sigue:

1. En el Haga una cita cuadro de diálogo, haga clic en Clasificar por categorías > Todas las categorías existentes Etiquetas grupo bajo Haga una cita .

2. Cuando el Categorías de colores cuadro de diálogo emergente, haga clic en Nuevo botón. En el Añadir Nueva Categoría diálogo, escriba "Enviar correo electrónico periódico de programación"En el Nombre campo; y luego elija un color en el Color la lista desplegable. Luego haga clic OK.

3. Luego verá el "Enviar correo electrónico periódico de programación”Aparece en la lista, marque la casilla y luego haga clic en OK del botón.

Parte 3: Establecer la recurrencia

Ahora es el momento de establecer la recurrencia de la cita.

1. Hacer clic en Reaparición existentes Opciones grupo bajo Haga una cita lengüeta. Ver captura de pantalla:

2. En el Recurrencia de citas diálogo, configure su Reaparición patrón. Si necesita una hora de finalización, configúrela en Rango de recurrencia. Y luego haz clic OK.

3. Cuando vuelva a la Haga una cita cuadro de diálogo, haga clic en Guardar cerrar botón. Ver captura de pantalla:

Parte 4: use el código VBA para enviar el correo electrónico recurrente de programación

1. Por favor presione otro + F11 para abrir el Microsoft Visual Basic para aplicaciones diálogo.

2. Haga doble clic en Proyecto1 > Objeto de Microsoft Outlook > Esta sesión de Outlook en el panel izquierdo. Ver captura de pantalla:

3. Copie y pegue el siguiente código VBA en el editor VBA. Y luego haga clic en Guardar del botón.

VBA: envío de correo electrónico recurrente programado

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. Hacer clic en Herramientas > Referencias para abrir el Referencias - proyecto diálogo. En el cuadro de diálogo, marque la Biblioteca de objetos de Microsoft Word opción y haga clic en OK del botón.

5. presione el otro + Q teclas al mismo tiempo para cerrar el Microsoft Visual Basic para aplicaciones ventana.

Cuando el recordatorio apareciendo, el correo electrónico se enviará automáticamente a los destinatarios que haya escrito en el campo Ubicación en la primera parte. Luego haga clic en Descartar existentes recordatorio diálogo. Y el correo electrónico se enviará de forma periódica todos los días durante este tiempo. Ver captura de pantalla:

Note: El código VBA se probó con éxito en Outlook 2010 y versiones posteriores.


Envíe fácilmente correos electrónicos periódicos periódicos en Outlook con una herramienta increíble

Para muchos usuarios de Outlook, el método anterior es demasiado tedioso para manejarse correctamente. Aquí recomiendo encarecidamente el Programar envío automático característica de Kutools para Outlook. Con esta función, puede crear fácilmente varios correos electrónicos recurrentes y programar estos correos electrónicos para que se envíen regularmente a intervalos diarios, semanales, mensuales o anuales, según lo necesite. Haga lo siguiente para hacerlo.

Ve a descargar Kutools para Outlook y probarlo

1. Hacer clic en Kutools > Programar envío automático > Crear programa de envío automático.

2. Entonces se abre una ventana de mensaje y debe:

2.1) Seleccione los destinatarios del correo electrónico en el Para, Cc or CCO campos que necesite, y luego complete el correo electrónico sujeto;
2.2) Redactar el cuerpo del correo electrónico;
2.3) Click Reaparición bajo el Kutools recurrente lengüeta. Ver captura de pantalla:

3. Ahora el Recurrencia de correos electrónicos aparece el cuadro de diálogo, debe especificar el tiempo recurrente, patrón recurrente y rango de recurrencia para el correo electrónico y luego haga clic en el OK del botón.

4. Ahora vuelve a la ventana del mensaje, haga clic en Guardar cerrar para guardar la configuración recurrente y cerrar la ventana.

Consejos: Puede repetir los pasos 1 a 4 anteriores para crear varios correos electrónicos recurrentes según lo necesite.

5. Ahora active la función haciendo clic en Kutools > Programar envío automático > Habilitar.

6. En la apertura Kutools para Outlook cuadro de diálogo, haga clic en DE ACUERDO.

Después de finalizar la configuración anterior, los correos electrónicos recurrentes se enviarán automáticamente cuando llegue la fecha y hora especificadas.

Nota: Puede administrar fácilmente sus correos electrónicos recurrentes de la siguiente manera.

1. Hacer clic en Kutools > Programar envío automático > Administrar la programación de envío automático.

2. En el Administrar programación de envío automático ventana, puedes crear nueva correo electrónico recurrente, editar Borrar, encender or off un correo electrónico recurrente existente según lo necesite. O puede hacer clic en el Log icono para ver el historial de envío de los correos electrónicos recurrentes.

Haga clic para saber más sobre esta función.

  Kutools para Outlook incluye más de 100 potentes funciones para Microsoft Outlook. Prueba gratis sin límite en 60 días. Descargar ahora!


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

 

 

Comments (171)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,
J'utilise outlook depuis peu, et j'ai découvert cette manipulation pour envoyer un mail récurrent. Cela a très bien fonctionné la première fois, mais je ne comprends pas, ça ne fonctionne plus. Cela a peut-être de l'importance, mais comme je travaille sur 2 ordinateurs différents, le code VBA a aussi été intégré sur ma deuxième session outlook. Auriez-vous une explication je vous prie ?
Merci d'avance
This comment was minimized by the moderator on the site
Hi Pink,
Which Outlook version are you using? Is there a reminder dialog box popping up afterwards?
This comment was minimized by the moderator on the site
This feature does not work for me no matter what I do and from the above thread, it doesn't look like they are attempting to fix it much less address it--I don't see any responses from the developer.

It's too bad because everything else with this product works very well.
This comment was minimized by the moderator on the site
Hi Rhonda Corn,
Can you provide the emails under the following folder path?
You can compress it and send it to
C:\Users\User Name\AppData\Roaming\ExtendOffice\OutlookKutools\KTORecurringEmail
This comment was minimized by the moderator on the site
How do I get this to run 2 different scheduled emails?
This comment was minimized by the moderator on the site
Hi, 
When I put recipients names into "location" it changes "appointment" to "meeting" invite, is this working as intended? It doesn't allow me to "save and close", but rather "send" the invite now which is not what I want to do.
This comment was minimized by the moderator on the site
Hi,Appointments are not changed to meetings when entering content into the Location field. 
This comment was minimized by the moderator on the site
I scheduled the reoccurring email however instead of sending email on the 30th it sent it today. I checked the settings and is set to send email on 30th at 10 am. Instead it sent the email on the 17th at 5:45 PM
This comment was minimized by the moderator on the site
Hi Leah,Sorry for the trouble, the problem you described cannot be reproduced. Here suggest using the relevant function of KTO to send a schedule recurring email.
This comment was minimized by the moderator on the site
I’m trying to set up a recurring email to be sent. However, it’s not working for some reason. It acts like it’s trying, but I get this error message:
This comment was minimized by the moderator on the site
Hi,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
It is enabled
This comment was minimized by the moderator on the site
It is enabled already
This comment was minimized by the moderator on the site
I had the same problem.  I had a look in the available references list and found a second Microsoft Word 16.0 Object Library that was not enabled. Once I enabled that one, it solved the problem for me!
This comment was minimized by the moderator on the site
Hello, 
Several errors to easily solve if the mail stays in "draft" : 
-> Add .Save juste before .Send
-> Don't close everything too fast or the script wouldn't have the time to send the mail that it has been cleaned... so find a way to delay those 2 rows 
Set xMailItem = Nothing
VBA.Kill xFldPath
Maybe with a thread sleep/wait ? Is the killing mandatory ? wouldn't this be killed when outlook is closed ? For my usecase, it was ok to remove them
This comment was minimized by the moderator on the site
I followed the instruction in this article "How to send a schedule recurring email in Outlook" multiple times, to no avail. I get the popup reminder box but, the e-mail is never sent. I've tried with Kutools for Outlook installed and uninstalled. Still no success in sending a scheduled recurring email in Outlook.

Thanx,
RLB
This comment was minimized by the moderator on the site
I have had the same situation. It was working fine for almost a year and then suddenly stopped working. I've tried recopying the code, delete it completely and start over. Same results- popup reminder box happens, I click ok, and the email is never sent.
This comment was minimized by the moderator on the site
Hi tarnold,Make sure that the category name you created in step 2 is the same as the name specified in the code.
Can you try the VBA below and give me feedback on error you encountered later? Because this problem needs to be reproduced in my case. Or you can also try the third party tool mentioned in the post. Sorry for the inconvenience.

<div data-tag="code">Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20220114
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
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
This comment was minimized by the moderator on the site
Crystal,
Sorry for the delay.  I copied your script into VBA.  My category is "Recurring Email", so I made it match in your script.  I set up a recurring email to test it.  The reminder window pops up at the correct time.  I waited a couple of minutes and then clicked 'dismiss'.  The window closes.  No errors.  No email sent.
This comment was minimized by the moderator on the site
Hi Crystal, when using the code above I have this error: 
Erreur de compilation: Type défini par l'utilisateur non défini
it's concerning this lineDim xItemDoc As Word.Document

any ideas?
This comment was minimized by the moderator on the site
Hi Marie-Eve Noel,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
At least yours work for a while. Mine never worked. Contacted Support and was told to post here. I suppose we'll have to wait on the author to respond.
This comment was minimized by the moderator on the site
Hi RodmanB,
Can neither of the two methods described in the article solve the problem?
VBA code and Kutools for Outlook are two different ways to handle the task.I need to know more specific about your issue, such as your Excel version.
This comment was minimized by the moderator on the site
Hi Crystal,
I am using MSOffice 365 for all of the Office products- Outlook, Excel, etc. As I posted 6month ago, it was working fine with my previous MSOffice desktop software.  When I switched to Office 365, it stopped working and I am having the same/similar situation as RodmanB.  The reminder popup occurs, I dismiss it and nothing happens.  The email is not in the draft folder, not in the sent folder, nothing.
This comment was minimized by the moderator on the site
Crystal,   Thanks for help. I replaced the VBCode and made a different test email. It preformed just as the other; reminder pops up, .wav file plays but the email is not sent. I'll install Kutools for Outlook and try that way tomorrow and, will respond with results.
This comment was minimized by the moderator on the site
Crystal,   Unable to install Kutool for outlook, demo license expired. Not willing to buy  just to debug this feature. So, have a great day and thanks for the help.
Thanx,RLB
This comment was minimized by the moderator on the site
Hi have implemented this and there's a couple of issues.1 - if i don't have Outlook opened, the email is not sent --> i guess this is normal, not a big deal anyway.2 - even the appointment appears just once a day and the email sent properly then, i see that the email is sent randomly other extra times during the day. For example, my schedule is daily at 9:00 and this is sent at 9:00 (OK) and also at 17:13 (NOK). I am not being able to identify why, any idea?
thanks.
This comment was minimized by the moderator on the site
What would the VBA code be for this but sending from the recipients of the appointment, not the "location" of the appointment as coded above? I need to send to 20+ people and cannot add enough names as the location fields is limited on characters. Many thanks
This comment was minimized by the moderator on the site
Hi J,You can try the second method "the Schedule auto send feature of Kutools for Outlook" mentioned in the post.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations