如何在outlook中自动安排宏？

Question

我想知道如何为outlook自动排定一个宏。我已经创建了一个宏，它从电子邮件中提取附件并将其存储在一个文件夹中。当我通过单击宏“执行”来执行它时，这个宏工作得很好。

但我希望这个宏每天自动执行，例如在早上8点半来我的办公室之前。

谢谢

Answer 1

一种方法是使用：

1. 自动化Outlook的vbs。我已经添加了示例vbscript，用于保存下面Outlook收件箱中第一个项目的附件。vbscript和从应用程序自动化的等效vba之间的主要区别是，在vbscript中，您不能显式声明类型(即，VBA的Dim strTest As String在vbscript
2. Use Windows任务计划程序中为Dim StrTest )。要计划每天的execution.
3. You，可能需要使用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)如果olMsg.attachments.Count >0，则Set olAtt = olMsg.attachments(1) olAtt.SaveAsFile "c:\temp\“& olAtt.Filename End If objApp.Quit Set objApp =Nothing