Como solicitar que os participantes necessários apenas respondam ao seu convite de reunião no Outlook

Alguns usuários desejam apenas solicitar respostas de reunião dos participantes necessários ao enviar um convite de reunião do Outlook. Este artigo ensinará como realizá-lo via Outlook VBA.

Para não solicitar respostas ao enviar convites de reunião, basta clicar no botão “Opções de resposta” e desmarcar a opção “Solicitar respostas”. Mas, desta forma, todos os participantes, independentemente de serem obrigatórios ou opcionais, não serão obrigados a enviar suas respostas à reunião. No entanto, na realidade, most de tempo, o que você deseja é não solicitar respostas de participantes opcionais. Nesse caso, você deve buscar outros métodos, como o seguinte.

Solicitar apenas aos participantes necessários para responder ao seu convite de reunião

1. Em primeiro lugar, inicie seu aplicativo Outlook.
2. Em seguida, pressione os botões de tecla “Alt + F11” na tela principal do Outlook.
3. Em seguida, após obter acesso ao editor VBA do Outlook, você deve encontrar e abrir o projeto “ThisOutlookSession”.
4. Posteriormente, copie o seguinte código VBA para esta janela do projeto.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMeeting As Outlook.MeetingItem
    Dim objCopiedMeeting As Outlook.AppointmentItem
    Dim objOriginalAttendee As Outlook.recipient
    Dim objCopiedAttendee As Outlook.recipient
 
    If TypeOf Item Is MeetingItem Then
       Set objMeeting = Item
 
       For i = objMeeting.Recipients.count To 1 Step -1
           'Remove Optional Attendees from the Original Meeting Invitation
           Set objOriginalAttendee = objMeeting.Recipients.Item(i)
           If objOriginalAttendee.Type = olOptional Then
              objOriginalAttendee.Delete
           End If
       Next
 
      'Copy the Meeting
      Set objCopiedMeeting = objMeeting.GetAssociatedAppointment(True).Copy
      'Disable "Request Response" Feature in the Copied Meeting
      objCopiedMeeting.ResponseRequested = False
 
      For i = objCopiedMeeting.Recipients.count To 1 Step -1
          'Add the Previously Removed Optional Attendees
          Set objCopiedAttendee = objCopiedMeeting.Recipients.Item(i)
          If objCopiedAttendee.Type = olRequired Then
             objCopiedAttendee.Delete
          End If
      Next
 
      'Send out the Copied Meeting
      objCopiedMeeting.Send
      'Delete the Copied Meeting after Sending
      objCopiedMeeting.Delete
    End If
End Sub

5. Depois disso, você deve assinar este projeto VBA.

• Permaneça na macro atual e clique em “Ferramentas” na barra de ferramentas.
• Em seguida, escolha a opção “Assinaturas digitais”.
• Na caixa de diálogo pop-up, siga as instruções na tela para concluí-la.

6. Posteriormente, verifique as configurações de macro do Outlook para garantir que a macro assinada digitalmente esteja habilitada.
7. A partir de agora, quando você enviar um convite de reunião, os participantes opcionais não precisarão responder. Do ponto de vista deles, o convite para a reunião será semelhante à captura de tela a seguir:

Combata vírus e malware no Outlook

O filtro de lixo eletrônico do Outlook desempenha um papel importante para evitar ataques inesperados de vírus e malware. Hoje em dia, os vírus tornam-se cada vez mais sofisticados. Para bloquear a infecção por vírus e o ataque de malware, você não apenas deve bloquear spams a tempo, mas também deve relatar os domínios ou endereços de e-mail suspeitos à Microsoft, ajudando a fortalecer o filtro de lixo eletrônico do Outlook. Além disso, além do filtro de lixo eletrônico embutido, você também precisa manter uma ferramenta de reparo formidável, como DataNumen Outlook Repair. tem um valor bem mais alto Recuperação do Outlook taxa do que seus rivais.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperar sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com