使用 VBScript 使用给定的非默认配置文件打开 Outlook 2016

Question

我有一个可以打开 Outlook 2016 并发送消息的 VBScript。

我的问题是我有多个 Outlook 配置文件。

我想设置我希望打开的发送消息的实际配置文件。

我现有的脚本是：

Dim objOutlook, objEmail

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

Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = objOutlook.CreateItem(0)

strEmailSubject=InPutBox("Input your message")
With objEmail

    .To = "here@there.com"
    ' .Cc = strEmailCc
    ' .Bcc = strEmailBcc

    .Subject = strEmailSubject

    ' .Body = strEmailBody

    ' If (strEmailAttachments <> "") Then
    '   .Attachments.Add strEmailAttachments
    ' End If

    .Send

End With


'Clear the memory

Set objOutlook = Nothing
Set objEmail = Nothing

我希望使用名为 CEO 的个人资料

如果 outlook 关闭，我会收到一个消息框，询问要使用哪个配置文件，一旦选择脚本就可以运行。这是我希望避免的步骤。

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 运行实例（因为它是单例）目前使用的任何配置文件

使用 VBScript 使用给定的非默认配置文件打开 Outlook 2016

Open Outlook 2016 with a given non-default profile with VBScript

profile

vbscript

outlook