Outlook’ta toplantıları kabul ettikten sonra bu toplantılara otomatik olarak renk kategorisi nasıl atanır?

Günlük işleriniz sırasında Outlook’ta birden fazla toplantı davetiyesi alabilirsiniz. Bazen, toplantılar kabul edildiğinde bunlara otomatik olarak belirli bir renk kategorisi atamak isteyebilirsiniz. Bunları normalde manuel olarak atayabilirsiniz; ancak her birini tek tek ayarlamak oldukça zahmetlidir. Bu makalede, bu işlemi Outlook’ta nasıl otomatikleştirebileceğinizi adım adım anlatacağım.

Toplantılar kabul edildikten sonra VBA koduyla otomatik olarak renk kategorisi atama

---

Toplantılar kabul edildikten sonra VBA koduyla otomatik olarak renk kategorisi atama

1. "Microsoft Visual Basic for Applications" penceresini açmak için **ALT + F11** tuşlarına basın.

2. "Microsoft Visual Basic for Applications" penceresinde, "Project1 (VbaProject.OTM)" bölmesinde yer alan "ThisOutlookSession" öğesine çift tıklayarak modülü açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Toplantılar kabul edildikten sonra otomatik olarak renk kategorisi atama

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

Not: Yukarıdaki kodda "Red Category" (Kırmızı Kategori) ifadesini istediğiniz renk kategorisinin adına göre değiştirebilirsiniz.

3. Ardından, bu makroyu etkinleştirmek için Outlook’u yeniden başlatın.

4. Bundan sonra toplantı davetiyelerini kabul edip "Yanıtı Şimdi Gönder" seçeneğine tıkladığınızda, belirtilen renk kategorisi kabul ettiğiniz toplantıya hemen atanacaktır. Ekran görüntüsüne bakın:

Not: Bu kod yalnızca varsayılan veri hesabınızda geçerlidir.