Note: The other languages of the website are Google-translated. Back to English

如何在Outlook中自动接受来自特定人员的会议请求?

在Outlook中接收会议邀请时,您需要手动接受会议请求并将响应发送给发件人。 有没有简单的方法可以自动从Outlook中的特定人员接受它? 本文中的方法将帮您一个忙。

使用VBA代码自动接受特定人员的会议请求


使用VBA代码自动接受特定人员的会议请求

下面的VBA代码可以帮助您自动接受Outlook中特定人员发送的会议请求。 请执行以下操作。

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 在里面 Microsoft Visual Basic应用程序 窗口,双击 本次展望会议 在左窗格中打开“代码”窗口,然后将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应用程序 窗口。

4.重新启动Outlook以使此代码生效。

从现在开始,当接收到您在代码中指定的人发送的会议请求时,会议将被自动接受,发件人也将收到一封回复电子邮件。

备注:接收会议请求的电子邮件帐户应该是Outlook中的默认帐户。


相关文章:


Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 
按评论排序
注释 (2)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
不起作用,我的约会仍然需要确认
该评论由网站上的主持人最小化
对我来说,没有设置 xMtResponse 对象并且宏错误。 Outlook 2016 的任何更新?
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0  产品特性
建议地点