Добрый день!
Подскажите, как посредством VBA отправить письмо из Outlook не от адреса пользователя по умолчанию, а от адреса рассылки?
В Outlook аккаунт один- пользователя. Админы Exchange разрешили отправку от адреса рассылки, и при ручной отправке я могу поменять отправителя вручную. Как сделать это через VBA?

Hush_,

Все отбой.
Решение ( https://www.slipstick.com/developer/code-samples/send-email-address-vba/):

Sub CustomMailMessage()

Dim OutApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Recipient
Dim Recipients As Recipients

Set OutApp = CreateObject("Outlook.Application")
Set objOutlookMsg = OutApp.CreateItem(olMailItem)

Set Recipients = objOutlookMsg.Recipients
Set objOutlookRecip = Recipients.Add("alias@domain.com")
objOutlookRecip.Type = 1

objOutlookMsg.SentOnBehalfOfName = "sales@domain.com"

objOutlookMsg.Subject = "Testing this macro"

objOutlookMsg.HTMLBody = "Testing this macro" & vbCrLf & vbCrLf

'Resolve each Recipient's name.
For Each objOutlookRecip In objOutlookMsg.Recipients
objOutlookRecip.Resolve
Next

'objOutlookMsg.Send
objOutlookMsg.Display

Set OutApp = Nothing

End Sub