¿Cómo posponer el envío de una invitación a una reunión en Outlook?

Normalmente, puede usar la función de entrega diferida para enviar un mensaje en un momento específico en lugar de hacerlo de inmediato. Sin embargo, a veces querrá retrasar el envío de una invitación a reunión tal como lo haría con un correo electrónico. ¿Cómo puede enviar una invitación a reunión en el momento deseado en Outlook?

Retrasar el envío de una invitación a reunión en Outlook con código VBA

---

Retrasar el envío de una invitación a reunión en Outlook con código VBA

Quizá no exista una forma directa de retrasar una invitación a reunión en Outlook, pero el siguiente código VBA puede ayudarle. Siga estos pasos:

1. En primer lugar, debe crear una tarea. En la nueva ventana de Tarea:

(1.) Especifique el asunto, Fecha de inicio, Fecha de fin para la reunión;

(2.) Establezca una Fecha de recordatorio y una hora en la que desee enviar la invitación a reunión;

(3.) Redacte el mensaje de la reunión según sus necesidades.

2. Tras crear la tarea, haga clic en la opción Guardar y cerrar para cerrar esta ventana.

3. A continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

4. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisOutlookSession del panel Project1 (VbaProject.OTM) para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.

Código VBA: Retrasar el envío de una invitación a reunión:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

Nota: En el código anterior, Meeting test es el asunto que creó para la reunión en el paso 1; además, debe actualizar la información de las direcciones de los destinatarios, la ubicación de la reunión, la hora de inicio y la duración de la reunión según sus propios datos.

5. Guarde y cierre el código y, a continuación, reinicie Outlook para que surta efecto.

6. A partir de ahora, cuando aparezca el recordatorio de la tarea en el momento específico que hayas establecido, Outlook enviará automáticamente la invitación a la reunión.