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

¿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 en el capítulo respecto a la Panel de exploracióny luego cree una nueva cita haciendo clic en Nueva cita bajo Inicio .

3. En el Cita diálogo debajo 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 el 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.

Nota:: 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 Cita cuadro de diálogo, haga clic en Clasificar por categorías > Todas las Categorías en el capítulo respecto a la Etiquetas grupo bajo Cita .

2. Cuando el Categorías de colores cuadro de diálogo emergente, haga clic en Nueva 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

Parte 3: Establecer la recurrencia

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

1. Hacer clic en Reaparición en el capítulo respecto a la Opciones grupo bajo 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 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 a Salvar

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

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 en el capítulo respecto a la 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:

Nota:: 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 el rango de recurrencia para el correo electrónico y luego haga clic en el OK

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 Un nuevo 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. Descarga ahora!


Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

  • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
  • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
  • Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
  • Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
  • Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 
Comentarios (171)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
El método ayudó. Funcionó para la cita inicial creada cuando lo estaba probando. Pero luego dejó de funcionar más tarde.
Este comentario fue minimizado por el moderador en el sitio
Tuve el mismo problema, he repetido los pasos varias veces y ahora no funciona en absoluto, no se envían correos electrónicos ni nada ¿Has podido solucionarlo?
Este comentario fue minimizado por el moderador en el sitio
Hola, pude configurar un correo electrónico recurrente siguiendo los pasos anteriores, pero cuando creé un hipervínculo en el cuerpo de una cita, cuando se activó el evento y recibí un correo electrónico, el hipervínculo se convirtió en un enlace sin procesar. Cualquier ayuda es apreciada, gracias.
Este comentario fue minimizado por el moderador en el sitio
¡Gracias! Esto funcionó. ¿Hay alguna manera de incluir un archivo adjunto en el correo electrónico que se envía? Intenté una prueba agregando el archivo adjunto al evento del calendario, pero no aparece en el correo electrónico.
Este comentario fue minimizado por el moderador en el sitio
¿Alguna vez obtuviste una respuesta sobre cómo agregar un archivo adjunto? ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Conseguí que esto funcionara para el correo electrónico de prueba, pero ahora ya no hace nada, y eliminé todo y repetí los pasos, ¿hay algo más en esto? Yo también estoy en Outlook 2013
Este comentario fue minimizado por el moderador en el sitio
He tenido el mismo problema. Esto funcionó la primera vez, pero el recordatorio de cita recurrente no parece haber activado el correo electrónico. ¿Ha encontrado alguien una solución a este problema?
Este comentario fue minimizado por el moderador en el sitio
[quote] Conseguí que esto funcionara para el correo electrónico de prueba, pero ahora ya no hace nada, y eliminé todo y repetí los pasos, ¿hay algo más en esto? Yo también estoy en Outlook 2013por maravilloso[/quote] ¿Alguna vez resolviste esto? Acabo de configurar esto y veo lo mismo que tú. Funcionó muy bien la primera vez y luego nada.
Este comentario fue minimizado por el moderador en el sitio
Eventualmente resolví esto habilitando macros en Outlook, que por defecto está desactivada. El único problema que tengo ahora es que el texto en el correo electrónico es solo texto sin formato, no se ven cambios en negrita, tamaño de fuente o color, etc. ¿Hay alguna forma de cambiar el código anterior para que tenga texto RTF o HTML en el correo electrónico?
Este comentario fue minimizado por el moderador en el sitio
Hola solucionaste esto. Tengo el mismo problema Probé esto, pero no funciona. 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, _ Nada, correo, nuevo objeto() {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" Luego salga de Sub If Item .Categorías "Enviar correo electrónico recurrente programado" Luego salir de Sub MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Nothing End Sub
Este comentario fue minimizado por el moderador en el sitio
[cita] Eventualmente resolví esto al habilitar las macros en Outlook, que por defecto está desactivada. El único problema que tengo ahora es que el texto en el correo electrónico es solo texto sin formato, no se ven cambios en negrita, tamaño de fuente o color, etc. ¿Hay alguna forma de cambiar el código anterior para que tenga texto RTF o HTML en el correo electrónico?Por Kyle[/quote] Hola ¿Encontraste una solución para esto? Lo necesito :) Kim
Este comentario fue minimizado por el moderador en el sitio
También podría considerar usar el Programador de tareas de Windows para algo como esto. Es fácil de usar e incluso puede manejar archivos adjuntos.
Este comentario fue minimizado por el moderador en el sitio
Probé con la tarea pero no gano nada ya que el archivo adjunto no va al cuerpo del correo electrónico. Por favor, indique cómo lo ha hecho.
Este comentario fue minimizado por el moderador en el sitio
¿Qué código estás usando? No adjuntó al correo electrónico los archivos adjuntos.
Este comentario fue minimizado por el moderador en el sitio
como lo apagas
Este comentario fue minimizado por el moderador en el sitio
En mi opinión, para dejar de enviar el correo electrónico recurrente, puede: 1. Eliminar la cita por completo. 2. Cambie o elimine la categoría establecida. 3. Aplique una fecha de finalización a la recurrencia de la cita.
Este comentario fue minimizado por el moderador en el sitio
¿Necesita tener Outlook abierto/ejecutándose para enviar el correo recurrente?
Este comentario fue minimizado por el moderador en el sitio
¿Funciona este código con Office 365 - Outlook 2013? He seguido los pasos varias veces, también habilité las macros. Recibo el recordatorio y presiono descartar, pero los correos electrónicos nunca se envían.
Este comentario fue minimizado por el moderador en el sitio
Echa un vistazo a esto. Creo que te encantará esta función. No más plantillas de correo electrónico semanales.
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna forma de enviar a la lista de distribución en los contactos?
Este comentario fue minimizado por el moderador en el sitio
Sí, Aaron, necesitaba hacerlo yo mismo. Intenté agregar una lista de distribución (Grupo de contacto de Outlook) llamada 'Grupo de especificaciones'. Esto no envió. Sin embargo, cambié el nombre de la lista a 'Spec@Group' (para que parezca una dirección de correo electrónico real) y funcionó perfectamente. Debe necesitar la '@' para ser recogido. ¡Conjetura afortunada! :lol:
Este comentario fue minimizado por el moderador en el sitio
Esto funcionó bien. Ahora necesito el mismo correo electrónico para ir a varios grupos. ¿Alguien puede ayudar? 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" Luego Salir de Sub If Item.Categories "Recurrent GDL Recert Email" Luego Salir de Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Enviar Establecer MItem = Nada End Sub
Este comentario fue minimizado por el moderador en el sitio
Cree otra lista de distribución que contenga/apunte a las otras listas de distribución que ya tiene configuradas y que desea incluir.
Este comentario fue minimizado por el moderador en el sitio
¿Es posible programar que se envíe un correo electrónico en Outlook cuando la computadora no esté? Por ejemplo, me gustaría enviar un recordatorio de una cita el domingo para una reunión el lunes, pero no estoy en el trabajo los domingos, entonces, ¿cómo obtengo ese correo electrónico para salir el domingo cuando no estoy en el trabajo y mi computadora está ¿apagado? ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
El código VBA no apareció cuando presioné ALT y F11. Pude abrir Microsoft Visual Basic para aplicaciones, pero no había ningún código. ¿Puede aconsejarme? Gracias, raj
Este comentario fue minimizado por el moderador en el sitio
Hola Raj, no debería estar presente ningún código VBA. Si sigue la guía anterior, cuando hace doble clic en "ThisOutlookSession" se supone que está vacío. Debe copiar y pegar el código que se muestra en la guía en la ventana "ThisOutlookSession" y luego guardarlo. Espero que esto ayude.
Este comentario fue minimizado por el moderador en el sitio
Hola, cuando sigo todos los pasos y guardo y voy a hacer otro correo electrónico, el código todavía está allí desde la última vez. ¿El código está adjunto a la categoría seleccionada, por lo que no es necesario agregar el código para cada correo electrónico?
Este comentario fue minimizado por el moderador en el sitio
Hola Bonnie, el código VBA solo debe agregarse una vez (para el primer correo electrónico recurrente). Si configura más de un correo electrónico recurrente, omita ese paso.
Este comentario fue minimizado por el moderador en el sitio
Tengo office 2016 y probé esto, siguiendo exactamente tus instrucciones. ¡¡Funcionó!! Muchas gracias. Tuve que cambiar mi configuración de seguridad de macros en Outlook 2016 y el editor de VBA para que funcionara, pero una vez que lo hice, las instrucciones fluyeron fácilmente.
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿cómo cambiaste la configuración de seguridad de macros en Outlook y a qué la cambiaste?
Este comentario fue minimizado por el moderador en el sitio
Entonces, dos cosas, una, no aparece de la forma en que lo escribí, es decir, no hay caracteres en negrita, y dos, ¿cómo agrego una firma? porque aparece como un hipervínculo en lugar de mi firma habitual. Gracias por la ayuda.
Este comentario fue minimizado por el moderador en el sitio
Alex Mine aparece con el formato eliminado también. ¿Cómo lo mantenemos?
Este comentario fue minimizado por el moderador en el sitio
Se envió bien, pero eliminó todo el formato elegante que tengo en el cuerpo de mi correo electrónico. ¿Cómo hago para que mantenga este formato?
Este comentario fue minimizado por el moderador en el sitio
Necesito saber cómo \ si puede adjuntar una hoja de cálculo de Excel.
Este comentario fue minimizado por el moderador en el sitio
Hola, chicos. Este código funciona muy bien, pero tengo un pequeño problema. El correo electrónico que estoy tratando de enviar es parte de dos categorías: Enviar mensaje (los usos de la macro) y PROGRAMARI RED-TEAM. La macro funciona bien cuando solo agrego la categoría Enviar mensaje, pero tan pronto como se agrega cualquier otra categoría, la macro deja de enviar correos electrónicos. Aquí está el código hasta ahora. Por favor ayuda :P Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) 'IPM.TaskItem para ver recordatorios de tareas If Item.MessageClass "IPM.Appointment" Luego salir 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." & vbNuevaLínea & vbNuevaLínea & _ "Va multumim pentru increderea acordata." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta este un mesaj automat." objMsg.Send Set objMsg = Nada End Sub
Este comentario fue minimizado por el moderador en el sitio
se detiene debido a la línea.... Si Item.Categories <> "Send Schedule Recurrenting Email" Then Exit Sub
cuando agrega la otra categoría, está provocando el sub de salida ... tal vez use if instr (1, item.categories, "Send Schedule Recurring Email") = 0 luego salga del sub o algo así ...
No hay comentarios publicados aquí todavía
Ver más
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL