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

Author Xiaoyang Last modified 2025-08-26

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

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

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

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щелкните 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 будет автоматически пересылать его вложения без текста сообщения нужному человеку.

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