Outlook 在定义的窗口外转发电子邮件

Question

我在 Outlook 2010 中设置了以下规则...

消息到达后应用此规则
来自某人@email.com
并以报告为主题
并且有附件
并且仅在这台计算机上
运行Project.ThisOutlookSession.MyScript

脚本如下...

Sub methodName(Item As Outlook.MailItem)
    Item.Body = "Please find attached"
    Item.Save

   Dim bolTimeMatch As Boolean

    bolTimeMatch = (Time >= #7:00:00 AM#) Or (Time <= #7:30:00 AM#)
    If bolTimeMatch Then
        Set myForward = Item.Forward
        myForward.Recipients.Add "abc@hotmail.com"

        myForward.Send
    End If

    Set myForward = Nothing

End Sub

我希望这封特定的电子邮件仅在每天定义的窗口（早上 7:00 - 早上 7:30）内发送...但是它在窗口外发送了电子邮件。我如何将代码更改为仅在当时（英国时间）发送。

Answer 1

首先，Outlook 对象模型提供了DeferredDeliveryTime 属性，该属性可用于设置日期，指示邮件消息的发送日期和时间。

改用逻辑与运算符：

 bolTimeMatch = (Time >= #7:00:00 AM#) And (Time <= #7:30:00 AM#)

您也可以尝试使用 TimeValue(Now) 而不是 Time 语句。