Como aceitar automaticamente convites de reunião de um contacto específico no Outlook?

Ao receber um convite de reunião no Outlook, é necessário aceitar manualmente o pedido e enviar a resposta ao remetente. Existe uma forma fácil de aceitar automaticamente convites provenientes de uma pessoa específica no Outlook? O método descrito neste artigo irá ajudá-lo.

Aceitar automaticamente pedidos de reunião de uma pessoa específica com código VBA

---

Aceitar automaticamente pedidos de reunião de uma pessoa específica com código VBA

O código VBA abaixo permite aceitar automaticamente convites para reuniões enviados por um remetente específico no Outlook. Siga os passos a seguir.

1. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisOutlookSession no painel esquerdo para abrir a janela de código e, em seguida, copie o código VBA abaixo para essa janela. Veja a captura de ecrã:

Código VBA: Aceitar automaticamente pedidos de reunião de uma pessoa específica no Outlook

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

Nota: No código, substitua «Nome do Remetente» pelo nome de apresentação do remetente.

3. Guarde o código e, em seguida, prima as teclas Alt+Q para fechar a janela do Microsoft Visual Basic for Applications.

4. Reinicie o Outlook para que este código entre em vigor.

A partir de agora, os pedidos de reunião enviados pela pessoa especificada no código serão aceites automaticamente, e o remetente receberá igualmente um e-mail de resposta.

Nota: A conta de e-mail que recebe o pedido de reunião tem de ser a conta predefinida no seu Outlook.

；

---

Artigos relacionados:

• Como recusar um convite de reunião mantendo-o na sua agenda no Outlook?
• Como recusar todas as ocorrências futuras de uma reunião no Outlook?