我正在寻找一种不使用 Outlook 互操作来发送 Exchange 任务请求的方法。理想情况下使用 SMTP,但我知道这可能是不可能的。我尝试了很多解决方案,但它们似乎都成功了,但任务请求永远不会到达另一个邮箱。
即使没有抛出错误也不起作用的兑换代码:
Dim rSession As New Redemption.RDOSession
rSession.LogonExchangeMailbox("example@example.com", "exchange.example.com")
Dim Task As Redemption.RDOTaskItem = CType(rSession.GetDefaultFolder(Redemption.rdoDefaultFolders.olFolderTasks).Items.Add, Redemption.RDOTaskItem)
Task.Subject = "Test Redemption Task 22"
Task.Body = "Test Task Body"
Task.StartDate = #5/1/2010#
Task.Assign()
Dim RecipAssign As Redemption.RDORecipient
RecipAssign = Task.Recipients.Add("aaa@example.com")
RecipAssign.Type = 1
Task.To = "aaa@example.com"
Task.Recipients.ResolveAll()
Task.Send()
我对使用脱机 Outlook 发送任务的答案感兴趣,但如果不使用 Outlook 互操作,我似乎无法让任务与 Redemption 一起使用。
在这方面已经花费了几天时间,我正在寻找一个工作代码示例,以便使用 SMTP 或 Redemption(没有 Outlook 互操作)或 Exchange Web 服务(不管是否托管 API)为其他用户生成任务请求。