如何在Outlook中自動安排宏？

Question

我想知道如何自動安排一個宏的前景。 我創建了一個宏，它從電子郵件中提取附加文件並將其存儲在一個文件夾中。 當我通過點擊宏「執行」來執行它時，這個宏工作得很好。

但我想這個宏每天自動執行，例如在08:30之前來我的辦公室。

謝謝

Answer 1

一種方法是使用：

1. 一個vbs到自動化Outlook。我添加了示例vbscript，用於從下面的Outlook收件箱中的第一項保存附件。在vbscript和等效vba從一個應用程序如Excel自動之間的主要區別是，在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