Como atrasar o envio do convite para uma reunião no Outlook?

Normalmente, pode utilizar a funcionalidade de Entrega Atrasada para enviar uma mensagem numa hora específica, em vez de imediatamente. No entanto, por vezes poderá querer agendar o envio de um convite para reunião — tal como faria com um e-mail. Como pode enviar um convite para reunião na hora pretendida no Outlook?

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

---

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

Embora não exista uma forma direta de atrasar um convite para reunião no Outlook, o código VBA abaixo pode ajudá-lo. Siga estes passos:

1. Em primeiro lugar, crie uma tarefa. Na nova janela de Tarefa:

(1.) Especifique o assunto, Data de Início, Data de término para a reunião;

(2.) Defina uma Data do Lembrete e hora em que pretende enviar o convite para reunião;

(3.) Redija 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. De seguida, prima as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

4. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o seguinte código no módulo em branco.

Código VBA: Atrasar o envio de um convite para 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

Nota: No código acima, Meeting test é o assunto que criou para a reunião no passo 1; deverá atualizar as informações relativas aos endereços dos destinatários, local da reunião, hora de início e duração da reunião com os seus próprios dados.

5. Guarde e feche o código e, em seguida, reinicie o Outlook para que as alterações entrem em vigor.

6. A partir de agora, sempre que a notificação da tarefa surgir à hora específica que definiu, o Outlook enviará automaticamente o convite para a reunião.