[求助] 如何判定邮件的回复时间是否超过指定时间？

RayJ

请教大神，我需要在我的outlook里设置一个脚本，当收到新邮件时自动创建一个任务。
当我回复了此邮件，但对方的回复是在一周以后（根据我的初次回复时间），则执行代码，否则跳过不做。 请教大神帮我想想能否通过VBA来判断时间。非常感谢。

Dim newAttachment As Outlook.Attachment

Sub ConvertMailtoTask(Item As Outlook.MailItem)

    Dim objTask As Outlook.TaskItem

    Set objTask = Application.CreateItem(olTaskItem)

（此处加一个判断，若回复时间一周以内跳过不做，超过一周则执行如下代码）

With objTask

    .Subject = Item.Subject

    .StartDate = Item.ReceivedTime

    .Body = Item.Body

Set newAttachment = objTask.Attachments.Add _

     (Item, Outlook.OlAttachmentType.olEmbeddeditem)

.Categories = "Shanghai"

    .Save

End With

    Set objTask = Nothing

End Sub

RayJ

置顶求助。