Как запланировать макрос автоматически в Outlook? - PullRequest
Новая
       17

Как запланировать макрос автоматически в Outlook?

4 голосов
/ 13 января 2012

Я хочу знать, как автоматически планировать макрос для внешнего вида. Я создал один макрос, который извлекает прикрепленный файл из электронного письма и сохраняет его в папке. Этот макрос работает очень хорошо, когда я выполняю его, нажимая макрос «выполнить».

Но я хочу, чтобы этот макрос выполнялся автоматически каждый день, например, в 08:30 перед приходом в мой офис.

Спасибо

1 Ответ

1 голос
/ 15 января 2012

Один из способов будет использовать:

  1. A для автоматизации Outlook. Я добавил образец vbscript для сохранения вложения из первого элемента в папке входящих сообщений Outlook ниже. Основное различие между vbscript и эквивалентным vba, автоматизированным из приложения, такого как Excel, состоит в том, что в vbscript вы не можете явно объявлять типы (то есть Dim strTest As String в VBA Dim StrTest в vbscript

  2. Использование планировщика задач Windows для планирования ежедневного выполнения. Есть хорошее руководство по планированию vbs с планировщиком задач здесь

  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
...