Como reenviar rapidamente o convite de reunião para aqueles que não responderam no Outlook

Muitos usuários esperam reenviar rapidamente o convite para a reunião aos participantes que não responderam. Este artigo mostrará como alcançá-lo.

No meu artigo anterior – “Como enviar rapidamente um e-mail de notificação para os participantes da reunião que não responderam”, você pode aprender como enviar um e-mail de notificação para os destinatários da reunião que não responderam. Semelhante a ele, muitos usuários gostariam de reenviar diretamente este convite de reunião em vez de um e-mail de notificação. Assim, a seguir, iremos expor um pedaço de código VBA, que pode ajudá-lo a realizá-lo em um instante.

Reenvie o convite da reunião para aqueles que não responderam

1. Para% start com, inicie seu aplicativo Outlook.
2. Em seguida, na janela principal do Outlook, pressione as teclas “Alt + F11” para acessar o editor VBA.
3. Em seguida, você deve abrir um módulo não utilizado ou simplesmente inserir um novo.
4. Posteriormente, copie e cole o código VBA abaixo neste módulo.

Sub ResendMeetingInvitationToAttendeesNotRespond()
    Dim objMeeting As AppointmentItem
    Dim objAttendees As Recipients
    Dim objAttendee As recipient
    Dim AttendeesNotRespond As String
    Dim objCopiedMeeting As AppointmentItem
    Dim objRecipient As recipient
    Dim objItem As Object
 
    Set objMeeting = ActiveExplorer.Selection.Item(1)
    'Create a copy of the source meeting
    Set objCopiedMeeting = objMeeting.Copy
 
    'Remove all the original recipients
    For i = objCopiedMeeting.Recipients.Count To 1 Step -1
        objCopiedMeeting.Recipients.Item(i).Delete
    Next
 
    Set objAttendees = objMeeting.Recipients
    For Each objAttendee In objAttendees
        If (objAttendee.Type <> olOrganizer) And (objAttendee.MeetingResponseStatus = olResponseNone) Then
           'Add the recipients who haven't responded to this meeting
           objCopiedMeeting.Recipients.Add (objAttendee.Address)
        End If
    Next
 
    'Send this copied meeting
    objCopiedMeeting.Recipients.ResolveAll
    objCopiedMeeting.Send
 
    'Permanently delete the copied meeting
    objCopiedMeeting.UserProperties.Add ("Clear"), olText
    objCopiedMeeting.Save
    objCopiedMeeting.Delete
    For Each objItem In Application.Session.GetDefaultFolder(olFolderDeletedItems).Items
        If TypeName(objItem.UserProperties.Find("Clear")) <> "Nothing" Then
           objItem.Delete
        End If
    Next
End Sub

5. Depois disso, para acesso conveniente posterior, é melhor adicionar este novo projeto VBA à Barra de Ferramentas de Acesso Rápido como de costume.
6. Além disso, acesse as configurações de macro para garantir que as macros sejam permitidas.
7. Finalmente, você pode tirar uma foto:

• Em primeiro lugar, você precisa selecionar a reunião de origem em seu calendário do Outlook.
• Em seguida, pressione o botão macro na Barra de Ferramentas de Acesso Rápido.
• Imediatamente, esta reunião será reenviada para os participantes que não responderam.

Resolver vários problemas do Outlook

Quando você utiliza o Outlook, todos os tipos de problemas podem ocorrer inesperadamente, como “Sem resposta” abrupto, mensagens de erro pop-up, travamentos e assim por diante. Geralmente, é essencial que você corrija os pequenos problemas com o utilitário de reparo interno. No entanto, se os problemas forem muito sérios para serem resolvidos pelo Scanpst.exe, você não tem escolha a não ser usar uma ferramenta de correção muito mais potente e confiável, como DataNumen Outlook Repair. É bem versado em Reparação de PST, superando assim 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 sql corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com