Como atribuir automaticamente uma categoria de cor às reuniões após aceitá-las no Outlook?

No seu dia a dia, é provável que receba vários convites para reuniões no Outlook. Por vezes, pode querer atribuir automaticamente uma categoria de cor específica assim que aceitar esses convites. Embora seja possível fazê-lo manualmente, configurar cada reunião individualmente torna-se rapidamente incómodo. Neste artigo, mostro-lhe como automatizar este processo no Outlook.

Atribuir automaticamente uma categoria de cor às reuniões após aceitá-las com código VBA

---

Atribuir automaticamente uma categoria de cor às reuniões após aceitá-las com código VBA

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

2. Na janela «Microsoft Visual Basic for Applications», faça duplo clique em «ThisOutlookSession», no painel "Project1 (VbaProject.OTM)", para abrir o módulo e, de seguida, copie e cole o código seguinte no módulo vazio.

Código VBA: Atribuir automaticamente uma categoria de cor às reuniões após aceitá-las

Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
    Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
        Set xMeetingItemAccepted = xMeetingItem
        Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
        With xAppointmentItem
            .Categories = .Categories & "Red Category"
            .Save
        End With
    End If
End If
End Sub

Nota: No código acima, substitua «Red Category» pelo nome da categoria de cor pretendida.

3. De seguida, reinicie o Outlook para ativar esta macro.

4. Depois de aceitar o e-mail de reunião e clicar em «Enviar Resposta Agora», a categoria de cor específica será atribuída imediatamente à reunião aceite. Veja a imagem:

Nota: Este código aplica-se apenas à conta de dados predefinida.