Question

我创建了一个vbs来从Outlook未读电子邮件中检索附件并将它们存储到一个文件夹中。

GetMail.vbs

Dim SavePath
Dim Subject
Dim FileExtension
Dim k

SavePath = "D:\IN\"
Subject = "'Replication IN'"

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(6) 'Inbox

Set colItems = objFolder.Items
Set colFilteredItems = colItems.Restrict("[Unread]=true")
Set colFilteredItems = colFilteredItems.Restrict("[Subject] = " & Subject)


For k = colFilteredItems.Count to 1 step -1
  set objMessage  = colFilteredItems.Item(k)
  intCount = objMessage.Attachments.Count
    If intCount > 0 Then
        For i = 1 To intCount
                objMessage.Attachments.Item(i).SaveAsFile SavePath &  _
                    objMessage.Attachments.Item(i).FileName
        Next
        objMessage.Unread = False
    End If
Next

现在，我要自动执行此任务，一旦完成，执行另一个程序将处理收到的附件。为此，我创建了一个批处理文件。

MyBatch.bat

cls
@ECHO OFF
ECHO. *  Retrieving emails ... *
"D:\GetMail.vbs"
ECHO. *  Importing data. Please wait ... *
"D:\MyProgram.exe" 
CLS
EXIT

我没有问题，并且在执行.bat文件时一切正常。但是当这个文件由计划任务执行时，脚本无法读取电子邮件，也无法收集附件。

我检查了以下内容：

任务以管理员身份运行
以最高权限运行复选框。
任务的上次执行状态为正确。
事件日志查看器中没有相关错误。

可能是什么原因？

Answer 1

Outlook，就像任何其他Office应用程序一样，不能在服务中使用（这就是任务计划程序）。

您可以使用扩展MAPI（仅限C ++或Delphi）或Redemption等包装器（任何语言，它的RDO对象系列都可用于服务中。）

您可能还想添加对Namepace.Logon的调用：

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
objNamespace.Logon
Set objFolder = objNamespace.GetDefaultFolder(6) 'Inbox

任务调度程序。 VBS脚本未被执行

1 个答案: