Hoppa till huvudinnehåll

Så här kopierar du alla bilagor från flera e-postmeddelanden till ett nytt e-postmeddelande i Outlook

I allmänhet är det enkelt att kopiera bilagor från ett e-postmeddelande till ett annat med kopiering och klistra in i Outlook. Men vad sägs om att kopiera bilagor från flera e-postmeddelanden till en ny? Den här artikeln presenterar lösningarna för dig.

Office-fliken - Aktivera flikredigering och surfning i Microsoft Office, vilket gör arbetet enkelt
Kutools för Outlook - Boosta Outlook med 100+ avancerade funktioner för överlägsen effektivitet
Förbättra din Outlook 2021 - 2010 eller Outlook 365 med dessa avancerade funktioner. Njut av en omfattande 60-dagars gratis provperiod och höj din e-postupplevelse!

Kopiera alla bilagor från flera e-postmeddelanden till ett nytt e-postmeddelande

Den här artikeln introducerar en VBA för att snabbt kopiera alla bilagor från flera e-postmeddelanden till en ny i Outlook. Gör så här:

1. Välj flera e-postmeddelanden vars bilagor du ska kopiera och tryck på andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.
Anmärkningar: Håller ctrl nyckel kan du välja flera icke-angränsande e-postmeddelanden genom att klicka på dem en efter en; innehav shift kan du välja flera angränsande e-postmeddelanden genom att klicka på den första och den sista.

2. Klicka Insert > Modulernaoch klistra sedan in under VBA-koden i det nya modulfönstret.

VBA: Kopiera alla bilagor från flera e-postmeddelanden till 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. Tryck F5 nyckeln eller Körning för att köra denna VBA.

Nu kommer du att se att alla bilagor är kopierade från de valda e-postmeddelandena och klistrade in i ett nytt e-postmeddelande.


Kopiera alla bilagor från ett e-postmeddelande till dess svarsmeddelande

Om du har Kutools för Outlook installerat kan du använda det Svara med bilaga funktion för att enkelt kopiera alla bilagor från ett e-postmeddelande till dess svarsmeddelande i Outlook. Gör så här:

Kutools för Outlook: Ultimat Outlook-verktygssats med över 100 praktiska verktyg. Prova GRATIS i 60 dagar, inga begränsningar, inga bekymmer!   Läs mer...   Starta gratis provperiod nu!

Välj e-postmeddelandet du ska svara och klicka Kutools > Svara med bilaga > Svara med bilaga. Se skärmdump:

Nu kommer du att se att alla bilagor kopieras till det svarande e-postmeddelandet automatiskt.


Relaterade artiklar


Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor ProBatch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp
 

 

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