如何在 Outlook 中自动安排宏？

Question

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

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

谢谢

Answer 1

一种方法是使用：

1. 一个用于自动化 Outlook 的vbs。我添加了vbscript用于保存下面 Outlook 收件箱中第一项的附件的示例。vbscript与 Excel 等应用程序自动执行的等效项之间的主要区别vba在于，在 vbscript 中，您无法显式声明类型（即 VBADim strTest As String位于Dim StrTestvbscript

2. 使用 Windows 任务计划程序来安排每日执行。

3. 您可能需要单击“是”来抑制 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