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

Question

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

  

邮件到达后应用此规则
  来自someone@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属性，该属性可用于设置指示邮件传递日期和时间的日期。

使用逻辑And运算符：

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

您也可以尝试使用 TimeValue（现在）而不是 Time 语句。