Como atrasar o envio do convite de reunião no Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

Normalmente, você pode aplicar o recurso Atrasar Entrega para enviar uma mensagem em um horário específico, em vez de agora. No entanto, às vezes, você pode querer atrasar o envio de um convite de reunião como se fosse um e-mail. Como você poderia enviar um convite de reunião no horário desejado que precisa no Outlook?

Atrasar o envio de um convite de reunião no Outlook com código VBA

Atrasar o envio de um convite de reunião no Outlook com código VBA

Pode ser que não haja uma maneira direta de atrasar um convite de reunião no Outlook, mas o código VBA abaixo pode ajudá-lo, por favor, siga estas instruções:

1. Primeiro, você deve criar uma nova tarefa. Na nova janela Tarefa:

(1.) Especifique o assunto, data de início e data de término da reunião;

(2.) Defina uma data e hora de lembrete para quando deseja enviar o convite da reunião;

(3.) Digite a mensagem da reunião conforme necessário.

2. Após criar a tarefa, clique na opção Salvar e Fechar para fechar esta janela.

3. Em seguida, pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

4. Na janela Microsoft Visual Basic for Applications, dê um duplo clique em ThisOutlookSession no painel Project1(VbaProject.OTM) para abrir o modo, e depois copie e cole o seguinte código no módulo em branco.

Código VBA: Atrasar o envio de um convite de reunião:

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

Observação: No código acima: Meeting test é o assunto que você criou para a reunião na etapa 1; além disso, você deve alterar as informações dos endereços dos destinatários, local da reunião, horário de início e duração da reunião para suas próprias informações.

5. Salve e feche o código, depois reinicie o Outlook para que este código tenha efeito.

6. A partir de agora, quando o lembrete do item de tarefa aparecer no horário específico que você definiu, o Outlook enviará automaticamente o convite da reunião.