Bagaimana cara menetapkan kategori warna ke rapat secara otomatis setelah menerimanya di Outlook?

Dalam pekerjaan sehari-hari Anda, Anda mungkin menerima beberapa email rapat di Outlook. Terkadang, Anda ingin menetapkan kategori warna tertentu ke rapat secara otomatis saat rapat diterima. Biasanya, Anda dapat menetapkannya secara manual, tetapi ini akan merepotkan untuk mengaturnya satu per satu. Pada artikel ini, saya akan berbicara tentang cara melakukannya secara otomatis di Outlook.

Secara otomatis menetapkan kategori warna ke rapat setelah menerimanya dengan kode VBA

Secara otomatis menetapkan kategori warna ke rapat setelah menerimanya dengan kode VBA

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. di Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Sesi Pandangan ini dari Project1 (VbaProject.OTM) panel untuk membuka mode, lalu salin dan tempel kode berikut ke dalam modul kosong.

Kode VBA: Tetapkan kategori warna secara otomatis ke rapat setelah menerimanya

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 mengkategorikan rapat secara otomatis 1

Note: Pada kode di atas, Anda dapat mengubahnya Kategori Merah ke nama kategori warna yang Anda inginkan.

3. Dan kemudian, mulai ulang Outlook Anda untuk memicu makro ini.

4. Kemudian, setelah menerima email rapat, dan klik Kirim Tanggapan Sekarang pilihan, kategori warna tertentu akan ditetapkan ke pertemuan yang diterima sekaligus. Lihat tangkapan layar:

doc mengkategorikan rapat secara otomatis 2