Создать правило в Outlook для копирования электронной почты в удаленную папку?

Question

На наших компьютерах с Outlook 2013 установлен Windows 7 .

В мой почтовый ящик я буду получать ежедневное электронное письмо, в которое будет входить текст "Продажи Excel на сегодня" и приложение Excel.

Можно ли создать правило для ежедневного запуска, которое будет принимать это электронное письмо и сохранять прикрепленный файл Excel в папку на удаленном компьютере? В моем случае он будет скопирован в \\RemoteServer\c$\Temp , но я также могу при необходимости отобразить его.

Answer 1

Да, но не используйте правило Outlook. Есть много примеров того, как сделать это с помощью макроса VBA. Внутри объекта "ThisOutlookSession" вы можете создавать триггеры событий для обработки почты, как она поступает, как правило Outlook.

В последний раз я отвечал на этот вопрос о StackOverflow здесь:https://stackoverflow.com/questions/51637693/outlook-2016-select-script-window-in-rules-wizard-is-blank/51638058#51638058

Ответ выглядит следующим образом: поместите этот код в ваш объект ThisOutlookSession. Это работает только оттуда.

Option Explicit
Private WithEvents inboxItems As Outlook.Items

' Set up the listener on the Inbox
Private Sub Application_Startup()
    Dim outlookApp As Outlook.Application
    Dim objectNS As Outlook.NameSpace

    Set outlookApp = Outlook.Application
    Set objectNS = outlookApp.GetNamespace("MAPI")
    Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items
End Sub

' Send new mail to the attachment processor
Private Sub inboxItems_ItemAdd(ByVal Item As Object)
    If TypeName(Item) = "MailItem" Then
        Dim EMail As Outlook.MailItem
        Set EMail = Item
        Debug.Print "Incoming Data."
        SaveAttachmentsToDisk EMail
        Set EMail = Nothing
    End If
End Sub

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)  
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "\\RemoteServer\c$\Temp\"

    For Each oAttachment In MItem.Attachments
        oAttachment.SaveAsFile sSaveFolder & oAttachment.FileName
    Next
End Sub