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

Normalmente, você pode aplicar o recurso Atrasar entrega para enviar uma mensagem em um horário específico, em vez de agora. Mas, às vezes, você deseja atrasar o envio de um convite de reunião, como um e-mail. Como você poderia enviar um convite de reunião no horário desejado, conforme necessário no Outlook?

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

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

Pode ser, não há uma maneira direta de atrasar um convite de reunião no Outlook, mas o código VBA abaixo pode lhe fazer um favor, faça o seguinte:

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

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

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

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

doc atraso envio reunião 1

2. Depois de criar a tarefa, por favor clique Salvar fechar opção para fechar esta janela.

3. Então, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

4. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook do Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir 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(",,", ",")
    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

doc atraso envio reunião 2

Note: No código acima: Teste de reunião é o assunto que você criou para a reunião na etapa 1; e, você deve alterar as informações de endereços de destinatários, local da reunião, Hora de início e duração da reunião para o seu próprio.

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

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