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

如何在Outlook中延迟发送会议邀请? 

通常,您可以应用“延迟传递”功能在特定时间(而不是现在)发送消息。 但是,有时您想延迟发送会议邀请(如电子邮件)。 如何根据需要在Outlook中按需要的时间发送会议邀请?

使用VBA代码在Outlook中延迟发送会议邀请


使用VBA代码在Outlook中延迟发送会议邀请

可能是没有直接的方法可以在Outlook中延迟会议邀请,但是下面的VBA代码可以帮您一个忙,请这样做:

1。 首先,您应该创建一个新任务。 在新 任务 窗口:

(1.)指定会议的主题,开始日期,结束日期;

(2.)设置要发送会议邀请的提醒日期和时间;

(3.)根据需要键入会议消息。

doc延迟发送会议1

2。 创建任务后,请单击 保存并关闭 关闭此窗口的选项。

3。 然后,按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

4。 在 Microsoft Visual Basic应用程序 窗口,双击 本次展望会议 来自 Project1(VbaProject.OTM) 窗格以打开模式,然后将以下代码复制并粘贴到空白模块中。

VBA代码:延迟发送会议邀请:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

doc延迟发送会议2

备注:在上面的代码中: 会议测试 是您在步骤1中为会议创建的主题; 并且,您应该更改以下信息 收件人地址, 会议地点, 开始时间会议时间 对你自己。

5。 保存并关闭代码,然后重新启动Outlook,以使此代码生效。

6。 从现在开始,当您在设置的特定时间弹出任务项目提醒时,Outlook将自动发送会议邀请。


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

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

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护