надеюсь, что вы мне поможете.
У меня есть скрипт VBA в Excel, который, помимо прочего, отправляет электронное письмо через Outlook 365. Теперь моя основная учетная запись электронной почты (@ outlook.com) имеетпять псевдонимов. Это не отдельные учетные записи электронной почты, а просто псевдонимы, связанные с этой основной учетной записью (которая сама по себе является одной из полудюжины основных учетных записей). См. Прикрепленное изображение для лучшего объяснения Я бы хотел установить один из этих псевдонимов в качестве адреса От, но это просто не происходит.
Это актуальносниппет;все остальное в Sub, включая создание электронной почты и настройку атрибутов и вложений, прекрасно работает.
Dim emailAlias As String
emailAlias = "f...@outlook.com"
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Subject
.To = Cells(cellRow, 2).Value
.SentOnBehalfOfName = emailAlias 'doesn't work
.SendUsingAccount = emailAlias 'no go either
.HTMLBody = msg
.Attachments.Add fileName
.Display
End With
Что я делаю не так?
Кстати, установка псевдонима в качестве учетной записи по умолчаниюэто можно сделать только онлайн на live.com, так что это не вариант, так как было бы слишком громоздким, чтобы (пере) устанавливать его несколько раз в день, плюс Outlook 365 всегда распознает переключатель.
Итак, есть ли способ указать псевдоним основной учетной записи в качестве адреса электронной почты от?