Откройте Outlook 2016 с заданным профилем не по умолчанию с VBScript

Question

У меня есть VBScript, который открывает Outlook 2016 и отправляет сообщение.

Проблема в том, что у меня несколько профилей Outlook.

Я хотел бы установить фактический профиль, который я хочу открыть, чтобы отправить сообщение.

Мой существующий скрипт:

Dim objOutlook, objEmail

Dim strEmailReceiver, strEmailCc, strEmailBcc, strEmailSubject, strEmailBody, strEmailAttachments

Set objOutlook = CreateObject ("Outlook.Application") Установите objEmail = objOutlook.CreateItem (0)

strEmailSubject = InPutBox («Введите ваше сообщение») С objEmail

.To = "here@there.com"

'.Cc = strEmailCc

'.Bcc = strEmailBcc

.Subject = strEmailSubject

'.Body = strEmailBody

'If (strEmailAttachments <> "") То

*1027*

'End If

1033 * Пошлите *

Конец с

Очистить память

Set objOutlook = Nothing

Set objEmail = Ничего

Я хочу использовать профиль под названием CEO

Если внешний вид закрыт, я получаю сообщение, спрашивающее, какой профиль использовать, после выбора сценария работает. Этого шага я хочу избежать.

Answer 1

Сразу после создания экземпляра объекта Outlook.Application добавьте код, подобный следующему

Set objOutlook = CreateObject("Outlook.Application") 
set objNS = objOutlook.GetNamespace("MAPI")
objNS.Logon("The Profile name")
Set objEmail = objOutlook.CreateItem(0)

имейте в виду, что если Outlook уже запущен, Namespace.Logon ничего не будет делать, и вы в конечном итоге получите запущенный экземпляр Outlook (так как он является одноэлементным), используя любой профиль, который он использовал в данный момент