以编程方式将Exchange在线邮箱添加到Outlook

Question

赎回支持是否将Exchange Online邮箱添加到Outlook中？我知道可以使用namepace.addstoreex为.pst做这件事，但是赎回可以处理Exchange在线商店吗？

我的目标是关闭Outlook自动化，并根据委派权限编程添加在线邮箱。

谢谢。

Answer 1

是的，赎回公开rdosession.stores.adddelegateexchangemailboxstore - 请注意，它需要能够检索该邮箱的自动发现XML。它需要缓存，或与rdoSession.logonhostedexhangemailbox一起使用（符合明确的凭据）或parent rdosession对象必须在Outlook.exe.exe地址中使用（例如从com addin或Outlook vba） - 这种方式赎回可以拦截Outlook凭据。

Answer 2

听起来您对返回文件夹对象的方法，该对象表示指定用户指定的默认文件夹。此方法用于委派方案，其中一个用户已将其一个或多个默认文件夹授权访问另一个用户（例如，他们的共享calendar或任何其他标准文件夹）。例如：

Sub ResolveName() 
 Dim myNamespace As Outlook.NameSpace 
 Dim myRecipient As Outlook.Recipient 
 Dim CalendarFolder As Outlook.Folder 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myRecipient = myNamespace.CreateRecipient("Dan Wilson") 
 myRecipient.Resolve 
 If myRecipient.Resolved Then 
   Call ShowCalendar(myNamespace, myRecipient) 
 End If 
End Sub 
 
Sub ShowCalendar(myNamespace, myRecipient) 
 Dim CalendarFolder As Outlook.Folder 
 
 Set CalendarFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar) 
 CalendarFolder.Display 
End Sub