Gå til hovedindhold

Sådan kopieres alle vedhæftede filer fra flere e-mails til en ny e-mail i Outlook

Generelt er det let at kopiere vedhæftede filer fra en e-mail til en anden med kopiering og indsættelse i Outlook. Men hvad med at kopiere vedhæftede filer fra flere e-mails til en ny? Denne artikel introducerer løsningerne til dig.

Office-faneblad - Aktiver fanebaseret redigering og browsing i Microsoft Office, hvilket gør arbejdet til en leg
Kutools til Outlook - Boost Outlook med 100+ avancerede funktioner for overlegen effektivitet
Boost din Outlook 2021 - 2010 eller Outlook 365 med disse avancerede funktioner. Nyd en omfattende 60-dages gratis prøveperiode og løft din e-mail-oplevelse!

Kopier alle vedhæftede filer fra flere e-mails til en ny e-mail

Denne artikel introducerer en VBA til hurtigt at kopiere alle vedhæftede filer fra flere e-mails til en ny i Outlook. Gør som følger:

1. Vælg flere e-mails, hvis vedhæftede filer du vil kopiere, og tryk på andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.
Bemærk: Holder Ctrl nøgle, du kan vælge flere ikke-tilstødende e-mails ved at klikke på dem en efter en; holder Flytte nøgle, kan du vælge flere tilstødende e-mails ved at klikke på den første og den sidste.

2. Klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye modulvindue.

VBA: Kopier alle vedhæftede filer fra flere e-mails til en ny

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3. Trykke F5 tasten eller Kør knap for at køre denne VBA.

Nu vil du se, at alle vedhæftede filer er kopieret fra de valgte e-mails og indsat i en ny e-mail.


Kopier alle vedhæftede filer fra en e-mail til den svarende e-mail

Hvis du har Kutools til Outlook installeret, kan du anvende det Svar med vedhæftet fil funktion til nemt at kopiere alle vedhæftede filer fra en e-mail til dens svar-e-mail i Outlook. Gør venligst som følger:

Kutools til Outlook: Ultimativt Outlook-værktøjssæt med over 100 praktiske værktøjer. Prøv det GRATIS i 60 dage, ingen begrænsninger, ingen bekymringer!   Læs mere ...   Start gratis prøveversion nu!

Vælg den e-mail, du vil besvare, og klik Kutools > Svar med vedhæftet fil > Svar med vedhæftet fil. Se skærmbillede:

Nu vil du se, at alle vedhæftede filer automatisk bliver kopieret til svarmailen.


Relaterede artikler


Bedste kontorproduktivitetsværktøjer

Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook

🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...

📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP)  /  Planlæg Send e-mails  /  Auto CC/BCC efter regler ved afsendelse af e-mail  /  Automatisk videresendelse (avancerede regler)   /  Tilføj automatisk hilsen   /  Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...

📨 Email Management: Genkald nemt e-mails  /  Bloker svindel-e-mails af emner og andre  /  Slet duplikerede e-mails  /  Avanceret søgning  /  Konsolider mapper ...

📁 Vedhæftede filer ProBatch Gem  /  Batch adskilles  /  Batch komprimere  /  Automatisk gem   /  Automatisk afmontering  /  Automatisk komprimering ...

🌟 Interface Magic: 😊 Flere smukke og seje emojis   /  Boost din Outlook-produktivitet med fanebaserede visninger  /  Minimer Outlook i stedet for at lukke ...

👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer  /   Anti-phishing e-mails  /  🕘Vis afsenderens tidszone ...

👩🏼‍🤝‍👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails  /  Opdel en kontaktgruppe til individuelle grupper  /  Fjern fødselsdagspåmindelser ...

Over 100 Features Afvent din udforskning! Klik her for at finde mere.

Læs mere       Gratis download      Køb
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations