¿Cómo envío un correo electrónico usando una macro firmada en Outlook?

En el trabajo hay muchos correos electrónicos que hay que enviar con frecuencia, pero el patrón es más o menos el mismo.

Por ejemplo: Daily Mail

El destinatario, el asunto y la firma son básicamente los mismos, solo necesitas cambiar la fecha en el asunto

Otro contenido puede lograrse mediante plantillas.

Simplemente escribe una función VBA para hacerlo.

La práctica descubrió que Outlook no admite la grabación de macros, lo que causó algunos problemas.

Después de buscar en Internet, encontré el siguiente código para enviar correos electrónicos usando programación VBA: New Mail Set OutApp = CreateObject("Outlook.Application") 'Crear un objeto de Outlook

OutApp.Session.Logon 'Iniciar sesión en MAPI

Configurar OutApp. p>

Establecer OutMail = OutApp.CreateItem(olMailItem) 'Crear un nuevo objeto de correo

'Establecer encabezados de correo, destinatarios, etc.

Usar OutMail< / p>

.To = strTo 'To

.CC = strCC 'Cc.

.BCC = ""

.Subject = strSubject'Subject

Entre ellos, el Asunto lee la fecha actual

mDate = Formato ( Ahora, "yyyy-MM-dd")

strSubject = "[Daily]" & mDate

Cuando esta macro se ejecuta de esta manera, se muestra una carta con el encabezado de fecha actual El correo electrónico ha sido generado y esperando ser enviado

.