如何在Outlook中自动安排宏？

Question

我想知道如何自动安排Outlook的宏。 我创建了一个宏，它从电子邮件中提取附件，并将其存储在一个文件夹中。 当我通过单击宏“执行”执行它时，此宏工作得非常好。

但是我希望这个宏每天自动执行，例如在08:30来到我的办公室之前。

谢谢

Answer 1

一种方法是使用：

1. 用于自动化Outlook的vbs。我添加了样本vbscript，用于保存下面Outlook收件箱中第一个项目的附件。从Excel等应用程序自动化的vbscript和等效vba之间的主要区别在于，在vbscript中，您无法明确声明类型（即VBA的Dim strTest As String为Dim StrTest在vbscript

2. 使用Windows任务计划程序安排每日执行。 scheduling a vbs with task scheduler这里有一个很好的教程

3. 您可能需要Click Yes来取消Outlook安全消息。

   Dim objApp
   Dim olNs
   Dim olInbox
   Dim olMsg
   Dim olAtt
   On Error Resume Next
   Set objApp = CreateObject("Outlook.application")
   Set olNs = objApp.GetNamespace("MAPI")
   Set olInbox = olNs.getdefaultfolder(6)
   Set olMsg = olInbox.items(1)
   If olMsg.attachments.Count > 0 Then
       Set olAtt = olMsg.attachments(1)
       olAtt.SaveAsFile "c:\temp\" & olAtt.Filename
   End If
   objApp.Quit
   Set objApp = Nothing