vba - 从共享邮箱发送而不使用 sentOnBehalfOf

Question

我目前正在使用outlook.application从共享邮箱发送邮件。

我需要一种方法来发送这些消息，而我的电子邮件地址不会出现在“发件人”列表中。它应该只是出现的共享邮箱。目前我正在使用.sentOnBehalfOf，还有什么我应该使用的吗？

Answer 1

请求“代理发送”权限。

http://social.technet.microsoft.com/Forums/office/en-US/7fd3e945-092a-461b-afa9-a126b8cc3cdd/configure-outlook-to-send-as-permissions

您应该可以在电子邮件的“发件人”字段中选择共享帐户。

使用 .SendUsingAccount 在 VBA 中指定共享帐户。

http://www.rondebruin.nl/win/s1/outlook/account.htm

Sub Which_Account_Number()
'Don't forget to set a reference to Outlook in the VBA editor
Dim OutApp As Outlook.Application
Dim I As Long

Set OutApp = CreateObject("Outlook.Application")

For I = 1 To OutApp.Session.Accounts.Count
    MsgBox OutApp.Session.Accounts.Item(I) & " : This is account number " & I
Next I
End Sub

共享帐户可能是 2。

With OutMail

    .SendUsingAccount = OutApp.Session.Accounts.Item(2)

End With