vba - 如何将 DeferredDeliveryTime 应用于 oulook 中的约会邀请

Question

我借用了一些代码来延迟从 Outlook 发送电子邮件，但是当我生成约会邀请时，此代码不适用，并且生成的邮件项目停留在发件箱中。

我欢迎任何建议！西蒙

这是我到目前为止的代码：

Private Sub Application_ItemSend(ByVal olItem As Object, Cancel As Boolean)
Dim response As Integer
response = MsgBox("WHOA - delay sending?", vbYesNo + vbQuestion)
If response = vbYes Then
olItem.DeferredDeliveryTime = DateAdd("n", 10, Now)
Else: MsgBoxResult = vbNo
olItem.DeferredDeliveryTime = DateAdd("n", 2, Now)
End If
End Sub

标签： vbaoutlook

Answer 1

MeetingItem.DeferredDeliveryTime属性允许设置一个日期，该日期指示要传递邮件消息的日期和时间。但它不会阻止物品发送。该项目将被放入发件箱文件夹并在预定时发送出去。