Sådan videresendes hurtigt en e-mail med udvalgte vedhæftede filer kun via Outlook VBA

Når du videresender en Outlook-e-mail, der har vedhæftede filer, kan du til tider måske kun beholde valgte vedhæftede filer i stedet for alle. Nu, i denne artikel, lærer vi dig, hvordan du hurtigt videresender en mail med kun udvalgte vedhæftede filer.

Når du videresender en Outlook-e-mail, sendes alle originale vedhæftede filer som standard. Men til tider ønsker du kun at videresende nogle vedhæftede filer i stedet for alle. Generelt kan du videresende e-mailen som normalt og derefter slette de uønskede vedhæftede filer manuelt. Men det er lidt besværligt. Derfor introducerer vi dig her en meget hurtigere metode til at videresende en e-mail med kun valgte vedhæftede filer.

Videresend hurtigt en e-mail med kun valgte bilag

1. I starten startes Outlook VBA-editor via "Alt + F11" genvej.
2. Kopier og indsæt derefter følgende kode i et projekt eller modul.

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. Gå derefter ud af VBA-editoren.
4. Derefter skal du følge “Valgfrit trin” i forrige sost "Sådan køres VBA-kode i din Outlook”For at tilføje denne makro til værktøjslinjen til hurtig adgang eller båndet.
5. Til sidst kan du prøve denne makro.

• Først skal du sørge for, at læseruden er tændt.
• Vælg derefter en e-mail og de vedhæftede filer, du vil videresende.
• Klik derefter på makroknappen i værktøjslinjen eller adgangsbåndet til hurtig adgang.
• Straks vises en ny e-mail. Som du kan se, er det en videresendelses-e-mail med kun valgte vedhæftede filer.

Løs Knotty Outlook-datakorruption

Har du nogensinde stødt på Outlook-nedbrud? Og har sådanne nedbrud resulteret i PST-datakorruption? Hvis du nogensinde har stødt på sådanne problemer, har du måske indset, hvor knudrede og besværlige de er. Normalt kan små problemer løses med Inbox-reparationsværktøj. Men for de alvorlige problemer, ligesom Outlook korruption, skal du bruge et mere kraftfuldt værktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder SQL Server fastsætte og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com