我正在尝试让 Outlook 根据传入电子邮件的主题行自动创建约会。例如,如果我收到一封主题为“已下载演示”的电子邮件,我希望它为此电子邮件创建一个约会,将邮件正文显示为约会上的“注释”。另外,我希望约会时间在电子邮件发送给我的日期后 2 小时。因此,如果我在东部时间下午 1 点收到电子邮件,我希望自动将约会设置为东部时间下午 3 点。
我知道我需要使用 VBA 并让 Outlook 运行一个脚本,我知道如何执行所有这些操作。但是,我目前所知道的只是如何根据所选电子邮件而不是已收到的电子邮件手动创建约会。另外我不知道如何让它自动设置时间或任何类似的东西......
这就是我目前所拥有的一切......
Sub CreateTask(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
.Save
End With
Set objTask = Nothing
End Sub