如果您正在按顏色類別對 Outlook 會議進行分類,並希望為不同顏色類別的會議設置不同的提醒時間,您可以參考這篇文章。 下面教大家用Outlook VBA來實現。
例如,您將會議分為兩組。 一個是“非現場”顏色類別,因為會議地點太遠,另一個是“現場”顏色類別,因為地點就在這裡。 現在,您希望 Outlook 可以自動將“異地”會議的提醒時間設置為 s 前 1 小時tart 和“現場”會議為 s 前 15 分鐘tar噸。 看這個需求,下面分享一個快速的方法。

自動為不同顏色類別的會議設置不同的提醒
- 首先,啟動Outlook應用程序。
- 然後,按“Alt + F11”鍵按鈕訪問 VBA 編輯器窗口。
- 接下來,在隨後的窗口中,將下面的 VBA 代碼複製並粘貼到“ThisOutlookSession”項目中。
Public WithEvents objCalendar As Outlook.Folder
Public WithEvents objCalendarItems As Outlook.Items
Private Sub Application_Startup()
Set objCalendar = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar)
Set objCalendarItems = objCalendar.Items
End Sub
Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
Call SetReminder_BasedOnCategories(Item)
End Sub
Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
Call SetReminder_BasedOnCategories(Item)
End Sub
Private Sub SetReminder_BasedOnCategories(ByVal objCalendarItem As Object)
Dim objMeeting As Outlook.AppointmentItem
Dim strCategories As String
If objCalendarItem.Class = olAppointment Then
'Check if the item is a meeting
If objCalendarItem.MeetingStatus = olMeeting Then
Set objMeeting = objCalendarItem
strCategories = objMeeting.Categories
'Set Reminder as 60 min before start for offsite appointments
If InStr(strCategories, "Offsite") > 0 Then
With objMeeting
.ReminderSet = True
.ReminderMinutesBeforeStart = 60
.Save
End With
'Set Reminder as 15 min before start for onsite appointments
ElseIf InStr(strCategories, "Onsite") > 0 Then
With objMeeting
.ReminderSet = True
.ReminderMinutesBeforeStart = 15
.Save
End With
End If
End If
End If
End Sub
- 稍後,您需要點擊進入“Application_Startup”子程序並按“F5”鍵來運行這個宏。
- 此後,每次將新會議添加到默認日曆或更改現有會議時,Outlook 都會自動檢查會議類別並自動設置不同的提醒時間。
消除Outlook錯誤
Outlook 可能會不時出現各種問題。 因此,用戶學習如何處理 Outlook 問題非常重要。 對於作為tart、您最好定期進行Outlook 數據備份。 此外,如果負擔得起,建議保留一個有效的 Outlook修復 附近的工具,例如 DataNumen Outlook Repair. 它可以掃描您的 PST 文件以找出 Outlook 問題,然後輕鬆解決它們。
作者簡介:
Shirley Zhang是的數據恢復專家 DataNumen,Inc.是數據恢復技術的全球領導者,包括 sql恢復 和Outlook修復軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM

