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. 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.
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
