不使用 Outlook Interop 发送 Outlook/Exchange 任务请求

Question

我正在寻找一种在不使用 Outlook Interop 的情况下发送 Exchange 任务请求的方法。理想情况下使用 SMTP，但我知道这可能是不可能的。我尝试了很多解决方案，但它们似乎都成功了，但任务请求从未到达另一个邮箱。

即使不抛出错误，兑换代码也不起作用：

Dim rSession As New Redemption.RDOSession
rSession.LogonExchangeMailbox("[email protected]", "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("[email protected]")
RecipAssign.Type = 1
Task.To = "[email protected]"
Task.Recipients.ResolveAll()
Task.Send()

我对 使用脱机 Outlook 发送任务，但如果不使用 Outlook Interop，我似乎无法让任务与 Redemption 一起使用。

我已经为此花费了几天时间，正在寻找一个工作代码示例，以便使用 SMTP 或 Redemption（没有 Outlook Interop）或 Exchange Web Services（托管 API 或非托管 API）为其他用户生成任务请求。

Answer 1

您可以使用 EWS 托管 API，因为它不依赖于 Outlook Interop 或已安装或正在运行的 Outlook 实例。

如果您通过用户身份验证（可能需要模拟或拥有用户凭据），您可以简单地为他/她创建任务：

var task = new Task(service){Subject = "simple task"};
task.Save(WellKnownFolderNames.Tasks);