使用VBScript

Question

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

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

我想设置要从中发送消息的实际个人资料。

我现有的脚本是：

昏暗objOutlook，objEmail

昏暗的strEmailReceiver，strEmailCc，strEmailBcc，strEmailSubject，strEmailBody，strEmailAttachments

设置objOutlook = CreateObject（“ Outlook.Application”） 设置objEmail = objOutlook.CreateItem（0）

strEmailSubject = InPutBox（“输入您的消息”） 使用objEmail

.To =“ here@there.com”

'.Cc = strEmailCc

'.Bcc = strEmailBcc

.Subject = strEmailSubject

'.Body = strEmailBody

'如果（strEmailAttachments <>“”）然后

'.Attachments.Add strEmailAttachments

'如果结束

。发送

结尾为

'清除内存

设置objOutlook =什么

设置objEmail =什么

我希望使用名为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实例（因为它是单例），