Выбор учетной записи при отправки сообщения Outlook

[rar_xxx]

Возник вопрос как при отправлении указать с какой учетной записи хочешь отправить.
Можно конеш и CDO поюзать... но первый вопрос мучает ))) при возникновении вопросов хочется найти ответ )

[Денис]

Вот так выводится имя первой по списку учетной записи. Дальше сам давай.

Код: Выделить всё

Sub test()

    Dim A1 As Account

    Set A1 = ThisOutlookSession.Session.Accounts(1)

    Debug.Print A1.DisplayName

    Set A1 = Nothing

End Sub

[rar_xxx]

вот же нашел уже давно SendUsingAccount, только не поставил Set перед ним, теперь рад 0))

Код: Выделить всё

Set SM.SendUsingAccount = ThisOutlookSession.Session.Accounts(i)

спасибо помог !

[Денис]

Да пожалуйста.
Только пара советов на будущее:

• У нас на форуме любят тэги в целом и тэг [Code] в частности.
• У нас на форуме любят кнопку "Правка".
• У нас на форуме не любят дублирование одного и того же во все разделы (выбери один, если что - перенесут)

[Viper]

rar_xxx, пользуйся кнопкой Правка, если тебе вдруг пришла свежая мысль, а не пиши два сообщения подряд. Да и тэги CODE никому еще не мешали. По первости получай устное замечание.