Delegates Microsoft Office Outlook 2013-从我的联系人中定义代理

默认情况下，在Microsoft Office Outlook 2013中，我可以从GAL（全局地址列表）中定义代理。是否有一种方法可以从我的联系人中选择一个实体，例如发送电子邮件时可以选择的实体

---

谢谢。

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

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 

---

您是通过Exchange还是SMTP帐户发送？在前一种情况下，如果您有足够的权限，Exchange只允许您以主用户或代理用户的身份发送

如果需要作为代理交换地址之一发送，则不能使用Outlook UI、对象模型或MAPI。您可以尝试使用（它使用SMTP通过Exchange服务器发送）