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

Author: Xiaoyang Last Modified: 2025-08-06

Normalmente, puedes aplicar la función de Retraso de Entrega para enviar un mensaje en un momento específico en lugar de hacerlo inmediatamente. Pero, a veces, deseas retrasar el envío de una invitación a una reunión como si fuera un correo electrónico. ¿Cómo podrías enviar una invitación a una reunión en el momento deseado que necesitas 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

Quizás no haya una manera directa de retrasar una invitación a una reunión en Outlook, pero el siguiente código VBA puede ayudarte, por favor haz lo siguiente:

1. Primero, debes crear una nueva tarea. En la ventana de Nueva Tarea:

(1.) Especifica el asunto, la fecha de inicio y la fecha de finalización para la reunión;

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

(3.) Escribe el mensaje de la reunión según sea necesario.

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

3. Luego, mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

4. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisOutlookSession desde el panel Project1(VbaProject.OTM) para abrir el modo, y luego copia y pega el siguiente código en el módulo en blanco.

Código VBA: Retrasar 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: Meeting test es el asunto que creaste para la reunión en el paso 1; y deberías cambiar 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 a la tuya propia.

5. Guarda y cierra el código, luego reinicia Outlook para que este código surta efecto.

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