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

Normalmente, puede aplicar la función de Entrega diferida para enviar un mensaje en un momento específico en lugar de ahora. Pero, a veces, desea retrasar el envío de una invitación a una reunión como un correo electrónico. ¿Cómo podría enviar una invitación a una reunión en el momento deseado como lo necesita en Outlook?

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

---

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

Puede ser que no haya una forma directa de retrasar una invitación a una reunión en Outlook, pero el siguiente código de VBA puede hacerle un favor, haga lo siguiente:

1. Primero, debe crear una nueva tarea. En el nuevo Tarea ventana:

(1.) Especifique el tema, fecha de inicio, fecha de finalización de la reunión;

(2.) Establezca una fecha y hora de recordatorio cuando desee enviar la invitación a la reunión;

(3.) Escriba el mensaje de la reunión que necesite.

2. Después de crear la tarea, haga clic en Guardar cerrar opción para cerrar esta ventana.

3. Luego, mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

4. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook de Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.

Código VBA: retrasa el envío de una invitación a una 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: Prueba de reunión es el asunto que creó para la reunión en el paso 1; y debe cambiar la información de direcciones de destinatarios, lugar de reunión, hora de inicio y duración de la reunión a la tuya.

5. Guarde y cierre el código, luego reinicie Outlook para que este código surta efecto.

6. A partir de ahora, cuando aparezca el recordatorio del elemento de la tarea a la hora específica que establezca, Outlook enviará la invitación a la reunión automáticamente.