Outlook2016通过vba将邮件转化任务的问题

[xchfriend]

我的Outlook中设置了2个邮箱[e-mail]和[e-mail], A为被设置为默认邮箱。

以下代码可以生成宏1，然后把宏1应用到邮箱B的邮件规则里，每次邮箱B收到一个邮件会自动生成一个任务。

目前每次邮箱B收到邮件都能自动生成一个任务，但这个任务归属在邮箱A的任务列表中。

我希望邮箱B通过规则自动产生的任务能归属在邮箱B的任务列表中，请高手指教，谢谢!


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

.Save

End With

Set objTask = Nothing


End Sub