Como encaminhar automaticamente convites de reunião para uma pessoa específica no Outlook?
No Outlook, você pode encaminhar um convite de reunião para uma pessoa específica diretamente usando o recurso Encaminhar manualmente. No entanto, às vezes, pode ser necessário encaminhar os convites de reunião para uma pessoa específica automaticamente ao aceitar a reunião. Neste artigo, vou explicar como encaminhar automaticamente um convite de reunião para uma pessoa tão rapidamente quanto possível.
Encaminhe convites de reunião para uma pessoa específica automaticamente no Outlook com código VBA
Encaminhe convites de reunião para uma pessoa específica automaticamente no Outlook com código VBA
Aqui está um código VBA útil que pode ajudá-lo a encaminhar automaticamente o convite de reunião para uma pessoa específica após aceitá-lo; por favor, siga estas instruções:
1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes 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: Encaminhar automaticamente convites de reunião para uma pessoa específica:
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
Set xMeetingItem = Item
Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
xMeetingResponse.Send
Set xForwardMeeting = xMeetingItem.Forward
With xForwardMeeting
With .Recipients
.Add "skyyang@addin88.com" 'change address to your own
.ResolveAll
End With
.Send
End With
End If
End Sub
Observação: No código acima, você deve alterar o endereço do destinatário para o seu próprio.
3. Em seguida, salve o código e reinicie o Outlook para que o código tenha efeito.
4. Agora, quando você receber um convite de reunião, a reunião será aceita automaticamente e, ao mesmo tempo, essa reunião será encaminhada automaticamente para a pessoa específica imediatamente.
Observação: Este código só está disponível para a conta padrão.
Melhores Ferramentas de Produtividade para Office
Notícia Urgente: 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 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 vários 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 divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...
👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir 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...
Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
