Как бързо да препратите имейл само с избрани прикачени файлове само чрез Outlook VBA

Когато препращате имейл на 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

3. След това излезте от редактора на VBA.
4. След това следвайте „Стъпка по избор“ в предишната стрost "Как да стартирате VBA код във вашия Outlook”, За да добавите този макрос към лентата с инструменти за бърз достъп или лентата.
5. В крайна сметка можете да опитате този макрос.

• Първо се уверете, че прозорецът за четене е включен.
• След това изберете имейл и прикачените файлове, които искате да препратите.
• След това щракнете върху бутона за макроси в лентата с инструменти за бърз достъп или лентата.
• Веднага ще се покаже нов имейл. Както можете да видите, това е препращащ имейл само с избрани прикачени файлове.

Коригирайте повредата в данните на Knotty Outlook

Срещали ли сте някога срив на Outlook? И такива сривове доведоха ли до повреда на PST данните? Ако някога сте се сблъсквали с подобни проблеми, може би сте осъзнали колко заплетени и обезпокоителни са те. Обикновено малките проблеми могат да бъдат разрешени с инструмента за поправка на Inbox. Но за сериозни проблеми, като Корупция в Outlook, трябва да използвате по-мощна програма, като напр DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително SQL Server фиксира и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com