By default, in Microsoft Office Outlook 2013 I can define a delegate from the GAL (Global Address List). Is there a way to choose an entity from my contacts like can be done when sending an email?
thanks.
您似乎对 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
您是通过 Exchange 或 SMTP 帐户发送吗?在前一种情况下,如果您有足够的权限,Exchange 只会让您作为主要用户或代理用户发送。
如果您需要作为代理 Exchange 地址之一发送,则无法使用 Outlook UI、对象模型或 MAPI 执行此操作。您可以尝试为此使用ProxyManager(它使用 SMTP 通过您的 Exchange 服务器发送)。