Como atribuir automaticamente a categoria de cores às reuniões depois de aceitá-las no Outlook?

Em seu trabalho diário, você pode receber vários e-mails de reuniões no Outlook. Às vezes, você deseja atribuir uma categoria de cor específica às reuniões automaticamente quando elas são aceitas. Normalmente, você pode atribuí-los manualmente, mas será difícil configurá-los um por um. Neste artigo, falarei sobre como realizá-lo automaticamente no Outlook.

Atribua automaticamente a categoria de cores às reuniões após aceitá-las com o código VBA

Atribua automaticamente a categoria de cores às reuniões após aceitá-las com o código VBA

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook do Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: atribuir categoria de cor automaticamente às reuniões depois de 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

doc categorizar reuniões automaticamente 1

Note: No código acima, você pode alterar Categoria Vermelha para o nome da categoria de cor desejada.

3. Em seguida, reinicie o Outlook para acionar essa macro.

4. Depois de aceitar o e-mail da reunião, clique em Envie a resposta agora opção, a categoria de cor específica será atribuída à reunião aceita de uma vez. Veja a imagem:

doc categorizar reuniões automaticamente 2