Как настроить автоматическое перенаправление вложений в Outlook только по определённым критериям?

Обычно при пересылке письма вместе с ним отправляются и текст исходного сообщения, и вложения. Однако иногда требуется переслать только вложения без текста сообщения определённому человеку на основе заданных критериев. Как выполнить такую задачу в Outlook?

Автоматическая пересылка только вложений по определённым критериям конкретному лицу с помощью кода VBA

---

Автоматическая пересылка только вложений по определённым критериям конкретному лицу с помощью кода VBA

Например, если вы получите письмо с темой, содержащей текст «kto feature», все вложения из этого письма будут автоматически пересланы указанному адресату без тела сообщения. Следующие шаги помогут вам настроить это — выполняйте их по порядку:

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений дважды щёлкните элемент ThisOutlookSession в области Project1 (VbaProject.OTM), чтобы открыть модуль, а затем скопируйте и вставьте приведённый ниже код в пустой модуль.

Код VBA: Автоматическое перенаправление письмо без текста сообщения, но с вложениями:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Примечание: В приведённом выше коде замените тему письма и адрес получателя на свои собственные.

3. Сохраните код и перезапустите Outlook, чтобы изменения вступили в силу.

4. Начиная с этого момента Outlook будет автоматически пересылать вложение любого нового письма, в теме которого содержится заданный текст, указанному адресату — без текста самого сообщения.

Примечание: Данный код работает только с учетной записью по умолчанию.