Microsoft Office Outlook 2013 - 从我的联系人定义委托

Question

默认情况下，在Microsoft Office Outlook 2013中，我可以从GAL（全局地址列表）定义委托。有没有办法从我的联系人中选择一个实体，就像发送电子邮件时一样？

感谢。

Answer 1

您似乎对Outlook项目的SendUsingAccount属性感兴趣。它允许设置一个Account对象，该对象表示要在其下发送MailItem的帐户。例如：

Sub SendUsingAccount()  
 Dim oAccount As Outlook.account  
 For Each oAccount In Application.Session.Accounts  
 If oAccount.AccountType = olPop3 Then  
   Dim oMail As Outlook.MailItem  
   Set oMail = Application.CreateItem(olMailItem)  
   oMail.Subject = "Sent using POP3 Account"  
   oMail.Recipients.Add ("someone@example.com")  
   oMail.Recipients.ResolveAll  
   oMail.SendUsingAccount = oAccount  
   oMail.Send  
 End If  
Next  
End Sub 

Answer 2

您是通过Exchange或SMTP帐户发送的吗？在前一种情况下，如果您拥有足够的权限，Exchange将仅允许您作为主要用户或作为委托用户发送。

如果您需要作为代理Exchange地址之一发送，则无法使用Outlook UI，对象模型或MAPI执行此操作。您可以尝试使用ProxyManager（它使用SMTP通过您的Exchange服务器发送）。