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 o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint