Использование VBA для установки псевдонима из учетной записи при отправке писем из Excel в Outlook - PullRequest
1 голос
/ 30 октября 2019

надеюсь, что вы мне поможете.

У меня есть скрипт 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 всегда распознает переключатель.

Итак, есть ли способ указать псевдоним основной учетной записи в качестве адреса электронной почты от?

1 Ответ

0 голосов
/ 30 октября 2019

Outlook (по крайней мере, в его текущей версии) не позволяет отправлять сообщения с использованием одного из SMTP-адресов прокси - сообщение всегда отправляется с использованием SMTP-адреса учетной записи по умолчанию.

Это можно сделать толькоесли вы настраиваете фиктивную учетную запись POP3 / SMTP или используете утилиту, например Proxy Manager - см. https://www.msoutlook.info/question/send-mail-from-additional-exchange-address-or-alias для получения более подробной информации.

...