![](/img/trans.png)
[英]Excel VBA code to send emails from a specific shared email Account from Outlook not working (.sentonbehalfof)
[英]Sending from a shared mailbox without using sentOnBehalfOf
我目前正在使用outlook.application
從共享郵箱發送郵件。
我需要一種發送這些消息的方法,而我的電子郵件地址不會出現在“發件人”列表中。 它應該只是共享郵箱出現。 目前我正在使用.sentOnBehalfOf
,我還應該使用其他東西嗎?
申請代理發送權限。
您應該可以在電子郵件的“發件人”字段中選擇共享帳戶。
使用.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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.