วิธีกำหนดประเภทสีให้กับการประชุมโดยอัตโนมัติหลังจากยอมรับใน Outlook

ในการทำงานประจำวันของคุณคุณอาจได้รับอีเมลการประชุมหลายฉบับใน Outlook บางครั้งคุณต้องการกำหนดประเภทสีเฉพาะให้กับการประชุมโดยอัตโนมัติเมื่อได้รับการยอมรับ โดยปกติคุณสามารถกำหนดได้ด้วยตนเอง แต่การตั้งค่าทีละรายการจะยุ่งยาก ในบทความนี้ฉันจะพูดถึงวิธีทำให้สำเร็จโดยอัตโนมัติใน Outlook

กำหนดประเภทสีให้กับการประชุมโดยอัตโนมัติหลังจากยอมรับด้วยรหัส VBA

กำหนดประเภทสีให้กับการประชุมโดยอัตโนมัติหลังจากยอมรับด้วยรหัส VBA

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก นี้OutlookSession จาก โครงการ 1 (VbaProject.O ™) บานหน้าต่างเพื่อเปิดโหมดจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า

รหัส VBA: กำหนดหมวดหมู่สีให้กับการประชุมโดยอัตโนมัติหลังจากยอมรับแล้ว

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 จัดหมวดหมู่การประชุมอัตโนมัติ 1