跳到主要內容

如何自動從Outlook中的特定人員接受會議請求?

新增一名作者 最後修改時間:2020-11-06

在Outlook中接收會議邀請時,您需要手動接受會議請求並將響應發送給發件人。 有沒有簡單的方法可以自動從Outlook中的特定人員接受它? 本文中的方法將幫您一個忙。

使用VBA代碼自動接受特定人員的會議請求


使用VBA代碼自動接受特定人員的會議請求

下面的VBA代碼可以幫助您自動接受Outlook中特定人員發送的會議請求。 請執行以下操作。

1。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口,雙擊 本次展望會議 在左窗格中打開“代碼”窗口,然後將VBA代碼下面的內容複製到該窗口中。 看截圖:

VBA代碼:自動接受Outlook中特定人員的會議請求

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

備註:在代碼中,請替換“發件人名稱”以及發件人的顯示名稱。

3.保存代碼,然後按 其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

4.重新啟動Outlook以使此代碼生效。

從現在開始,當接收到您在代碼中指定的人發送的會議請求時,會議將被自動接受,發件人也將收到一封回復電子郵件。

備註:接收會議請求的電子郵件帳戶應該是Outlook中的默認帳戶。


相關文章:


最佳辦公生產力工具

突發新聞:Kutools for Outlook 發布 免費版本!

體驗全新的Kutools for Outlook 免費版本擁有 70 多個令人難以置信的功能,您可以永遠使用! 點擊立即下載!

🤖 Kutools人工智慧 : 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……

📧 電子郵件自動化: 自動回覆(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 撤回電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  當重要電子郵件到來時提醒您  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

只需單擊即可立即解鎖 Kutools for Outlook -永久免費。別等了, 立即下載並提高您的效率!

Outlook 的 kutools 功能1 Outlook 的 kutools 功能2
 

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This works for me in latest Outlook 365 but the deletion step never occurs. "rRequest.Delete" seems pretty straightforward -- but maybe something has changed in recent releases?
This comment was minimized by the moderator on the site
for me the xMtResponse object isn't being set and the macro errors out. Any updates for Outlook 2016?
This comment was minimized by the moderator on the site
Doesnt work, my appointments still need confirmation
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations