Как быстро переслать электронное письмо с выбранными вложениями только через Outlook VBA

Перспективные решения 29 сентября, 2025
Поделись сейчас:

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

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

Быстрая пересылка электронной почты только с выбранными вложениями

  1. В самом начале запустите редактор Outlook VBA с помощью сочетания клавиш «Alt + F11».
  2. Затем скопируйте и вставьте следующий код в проект или модуль.
Sub ForwardMailWithSelectedAttachmentsOnly()
    Dim objMail As Outlook.MailItem
    Dim strTempFolder As String
    Dim strFile As String
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objForward As Outlook.MailItem
 
    'Get the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    'Get the selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    If objSelectedAttachments.Count > 0 Then
       'Forward this email
       Set objForward = objMail.Forward
       objForward.Display
 
       'Delete all the forwarded attachments
       Do Until objForward.Attachments.Count = 0
          objForward.Attachments.Item(1).Delete
       Loop
 
       On Error Resume Next
       strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
       MkDir (strTempFolder)
 
       'Re-attach the selected attachments to the forward mail
       For Each objAttachment In objSelectedAttachments
           strFile = strTempFolder & objAttachment.FileName
           objAttachment.SaveAsFile (strFile)
           objForward.Attachments.Add (strFile)
       Next
 
       Kill strFile
    End If
End Sub

Код VBA - быстро переслать электронное письмо только с выбранными вложениями

  1. Затем выйдите из редактора VBA.
  2. После этого выполните «Необязательный шаг» из предыдущего поста.Как запустить код VBA в Outlook», чтобы добавить этот макрос на панель быстрого доступа или на ленту.
  3. В конце концов, вы можете попробовать этот макрос.
  • Во-первых, убедитесь, что панель чтения включена.
  • Затем выберите электронное письмо и вложения, которые вы хотите переслать.
  • Затем нажмите кнопку макроса на панели быстрого доступа или на ленте.Выберите вложения и запустите макрос
  • Сразу же появится новое электронное письмо. Как видите, это электронное письмо для пересылки только с выбранными вложениями.Новое электронное письмо только с выбранными вложениями

Исправить запутанное повреждение данных Outlook

Вы когда-нибудь сталкивались с аварийным завершением работы Outlook? И приводили ли такие сбои к повреждению данных PST? Если вы когда-либо сталкивались с такими проблемами, вы, возможно, поняли, насколько они запутанны и неприятны. Обычно небольшие проблемы можно решить с помощью инструмента восстановления папки «Входящие». Но, для серьезных проблем, как Повреждение Outlook, вы должны использовать более мощную утилиту, такую ​​как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая SQL Server фиксировать и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.