jueves, 20 de junio de 2019

VBA: Retrasar entrega de email desde Excel

Una acción poco empleada, en mi opinión, dentro de Outlook, es Retrasar la entrega...lo que nos permite programar el momento de envío de un email...

Veremos en este artículo cómo conseguirlo desde la programación en Excel empleando la propiedad .DeferredDeliveryTime

VBA: Retrasar entrega de email desde Excel



Insertamos en la ventana de código del módulo estándar el siguiente código:

Sub RetrasarEnvio()
'OJOOO.. activar referencia/librería Microsoft Outlook 16.0 Object Library o superior !!!
Dim olMailItm As Outlook.MailItem

Set olMailItm = Outlook.CreateItem(olMailItem)
With olMailItm
  .To = "excelforo@gmail.com"
  .Subject = "Retrasar o programar envío email..."
  .Body = "Hola!!" & vbNewLine & "Saludos cordiales"
  .DeferredDeliveryTime = "13/09/2019 13:13:13 PM" 'retrasamos el envío a una fecha concreta
  .Display
  .Send
End With
End Sub



Tras lanzar la macro podemos comprobar en la carpeta de Bandeja de salida el email con la programación de fecha y hora de entrega...

2 comentarios:

  1. Respuestas
    1. Hola Iván,
      qué tal estás?, un placer saludarte.

      Agradecerte el detalle del error que te devuelve...

      ¿Probaste a activar la referencia/biblioteca de Microsoft Outlook???

      Un cordial saludo

      Eliminar

Nota: solo los miembros de este blog pueden publicar comentarios.