Jak szybko przesłać dalej wiadomość e-mail z wybranymi załącznikami tylko przez Outlook VBA

Podczas przesyłania dalej wiadomości e-mail programu Outlook zawierającej załączniki czasami możesz chcieć zachować tylko wybrane załączniki zamiast wszystkich. Teraz w tym artykule nauczymy Cię, jak szybko przesłać dalej wiadomość tylko z wybranymi załącznikami.

W standardowy sposób, gdy przesyłasz dalej wiadomość e-mail programu Outlook, wszystkie oryginalne załączniki zostaną przekazane. Czasami jednak chcesz przesłać dalej tylko niektóre załączniki zamiast wszystkich. Zasadniczo możesz przesłać wiadomość e-mail w zwykły sposób, a następnie ręcznie usunąć niechciane załączniki. Jednak jest to trochę kłopotliwe. Dlatego tutaj przedstawimy Ci znacznie szybszą metodę przesyłania wiadomości e-mail tylko z wybranymi załącznikami.

Szybko przekaż wiadomość e-mail tylko z wybranymi załącznikami

1. Na samym początku uruchom edytor Outlook VBA za pomocą skrótu „Alt + F11”.
2. Następnie skopiuj i wklej następujący kod do projektu lub modułu.

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. Następnie zamknij edytor VBA.
4. Następnie wykonaj „Krok opcjonalny” na poprzedniej stronieost "Jak uruchomić kod VBA w swoim Outlooku”, Aby dodać to makro do paska narzędzi szybkiego dostępu lub wstążki.
5. W końcu możesz wypróbować to makro.

• Po pierwsze, upewnij się, że okienko odczytu jest włączone.
• Następnie wybierz wiadomość e-mail i załączniki, które chcesz przesłać dalej.
• Następnie kliknij przycisk makra na pasku narzędzi szybkiego dostępu lub na wstążce.
• Od razu pojawi się nowy e-mail. Jak widać, jest to wiadomość e-mail przekazująca dalej, zawierająca tylko wybrane załączniki.

Napraw sękate uszkodzenie danych programu Outlook

Czy kiedykolwiek spotkałeś się z awarią programu Outlook? I czy takie awarie spowodowały uszkodzenie danych PST? Jeśli kiedykolwiek napotkałeś takie problemy, być może zdałeś sobie sprawę, jak zawiłe i kłopotliwe są. Zwykle małe problemy można rozwiązać za pomocą narzędzia do naprawy Skrzynki odbiorczej. Ale na poważne kłopoty, jak np Uszkodzenie programu Outlook, musisz użyć potężniejszego narzędzia, takiego jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server stały i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com