通过ComObject自动发送邮件

Question

问题:我已经制作了一个通过ComObject发送邮件的脚本，当我将它作为用户使用时，它的工作方式就像一种魅力，但是如果我用任务调度器执行它，它就不会了。

我做了什么？我把ComObjActive改成了ComObjCreate。

代码：

正文是正确的，并包含HTML文本。

Myself = %AUMailAdress%
Recipient := Myself
Subject := Oi
Body := Ci
Recipient5 = Hidden@gmail.com

DocumentLocation = %SourceDir%\Tooloutput\AutoProjectsLog\Faults



olMailItem := 0
MailItem := ComObjCreate("Outlook.Application").CreateItem(olMailItem)
olFormatHTML := 2
MailItem.BodyFormat := olFormatHTML
MailItem.Subject := Subject
MailItem.HTMLBody := Body
Recipient := MailItem.Recipients.Add(Recipient)
Recipient.Type := 1 
Loop, %DocumentLocation%\*.*
MailItem.Attachments.Add(A_LoopFileLongPath)
MailItem.cc := Recipient5
MailItem.Send



ExitApp 
return

问题:当它试图创建一个ComObject时，我会遇到以下错误。

错误: 0x80080005 -服务器执行失败

线：#

-> 674: MailItem：= ComObjCreate ("Outlook.Application")。CreateItem (olMailItem)

继续运行脚本？

Answer 1

我只是挣扎了大约3个小时，尝试了很多事情，包括这个方法：

MSDN方法",512“

最后，我以管理员身份运行Outlook，并使用以下代码开始正常工作：

outlookApp := ComObjCreate("Outlook.Application")
MailItem := outlookApp.CreateItem(0)
MailItem.Display

系统: Windows 10 x64

展望2019年

AHK 1.1.33.02作为管理员运行