请教大神,我需要在我的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
当我回复了此邮件,但对方的回复是在一周以后(根据我的初次回复时间),则执行代码,否则跳过不做。 请教大神帮我想想能否通过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