Hvordan kopiere alle vedlegg fra flere e-poster til en ny e-post i Outlook？
Å administrere e-postvedlegg effektivt i Outlook kan være utfordrende, spesielt når du trenger å trekke ut vedlegg fra flere e-poster og konsolidere dem til en ny e-post eller kopiere alle vedlegg fra en e-post til et svar. Manuell lagring og vedlegging av filer er ikke bare tidkrevende, men også utsatt for feil. Heldigvis er det to effektive måter å forenkle denne oppgaven på. Du kan bruke VBA å trekke ut og sette inn vedlegg fra flere e-poster i en ny e-post, selv om det krever litt teknisk kunnskap. Men for en raskere og problemfri løsning Kutools for Outlook verktøyet gir et ett-klikks alternativ for å umiddelbart kopiere alle vedlegg fra en e-post til en svar-e-post, noe som gjør det til det mest effektive og brukervennlige valget.
Kopier alle vedlegg fra flere e-poster til en ny e-post ved hjelp av VBA (Manuell og teknisk)
Kopier alle vedlegg fra en e-post til en svar-e-post umiddelbart med et fantastisk verktøy 👍 (Uanstrengt og anbefalt)
Kopier alle vedlegg fra flere e-poster til en ny e-post ved hjelp av VBA
Hvis du foretrekker å bruke VBA for å automatisere prosessen, kan du følge disse trinnene for raskt å trekke ut og kopiere alle vedlegg fra flere e-poster til en ny e-post.
Trinn 1: Velg flere e-poster
I Outlook velger du e-postene som inneholder vedlegg du vil kopiere.
- Hold "Ctrl" for å velge flere ikke-tilstøtende e-poster.
- Hold "Shift" for å velge en rekke tilstøtende e-poster.
Trinn 2: Åpne VBA-editoren
Trykk "Alt" + "F11" for å åpne "Microsoft Visual Basic for Applications"-vinduet.
Trinn 3: Sett inn VBA-koden i en ny modul
Klikk "Sett inn"> "Modul" for å opprette en ny modul. Og lim inn følgende VBA-kode i modulvinduet:
VBA: Kopier alle vedlegg fra flere e-poster til en ny e-post
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
Trinn 4: Kjør VBA-koden
Trykk "F5" eller klikk på Kjør-knappen for å utføre koden. En ny e-post vil åpnes, som inneholder alle vedlegg som er hentet fra de valgte e-postene.
Ulemper:
- ❌ Krever VBA-kunnskap: Ikke nybegynnervennlig og innebærer arbeid med kode.
- ❌ Manuell oppsett kreves: Du må åpne VBA-editoren, sette inn koden og kjøre den hver gang.
- ❌ Potensielle sikkerhetsbegrensninger: Noen Outlook-versjoner blokkerer makroer på grunn av sikkerhetspolicyer.
- ❌ Ingen fleksibilitet: Du må kjøre skriptet på nytt hver gang du trenger å kopiere vedlegg på nytt.
📂 Lagre vedlegg fra flere e-poster enkelt
Lei av å lagre vedlegg én e-post om gangen i Outlook? Strømlinjeform arbeidsflyten med Kutools for Outlook! Den mektige Lagre alle (vedlegg) funksjonen lar deg lagre vedlegg fra flere e-poster eller hele mapper med bare noen få klikk. Si farvel til kjedelige manuelle prosesser og ta kontroll over innboksen din uten problemer.
Kopier alle vedlegg fra en e-post til en svar-e-post umiddelbart med et fantastisk verktøy 👍
For en enklere og raskere løsning kan du bruke funksjonen Svar med originalt vedlegg i "Kutools for Outlook". Denne metoden lar deg kopiere alle vedlegg fra en e-post direkte til en svarende e-post med bare ett klikk – ingen behov for VBA eller manuell kopiering av vedlegg.
Lås opp ultimat e-posteffektivitet med Kutools for Outlook! Adgang 70 kraftige funksjoner helt gratis, for alltid. Last ned gratisversjonen nå!
1. I Mail-visningen velger du e-posten du vil svare på. Klikk deretter "Kutools"> "Svar med originalt vedlegg eller Svar alle med originalt vedlegg".
2. Nå blir alle vedlegg fra den valgte e-posten automatisk kopiert til svar-e-posten.
Fordeler med Kutools for Outlook-metoden:
- ✅ Ingen manuell kopiering eller liming: Fungerer umiddelbart med ett klikk.
- ✅ Ikke behov for VBA-koding: Brukervennlig og problemfri.
- ✅ Tidsbesparende: Reduserer innsats drastisk sammenlignet med manuelle metoder.
- ✅ Kompatibel med alle Outlook-versjoner: Ingen makrobegrensninger eller sikkerhetsadvarsler.
Relaterte artikler
Hvordan kopiere vedlegg til en annen e-post i Outlook?
Beste kontorproduktivitetsverktøy
Nyheter: Kutools for Outlook lanserer gratisversjon!
Opplev den helt nye Kutools for Outlook GRATIS versjonen med 70+ utrolige funksjoner, du kan bruke FOR EVIGT! Klikk for å laste ned nå!
📧 E-postautomatisering: Autosvar (tilgjengelig for POP og IMAP) / Planlegg Send e-poster / Auto CC/BCC etter regler når du sender e-post / Automatisk videresending (avanserte regler) / Legg til hilsen automatisk / Del automatisk e-poster med flere mottakere i individuelle meldinger ...
📨 E-post Ledelse: Tilbakekall e-poster / Blokker svindel-e-poster etter emner og andre / Slett dupliserte e-poster / Avansert søk / Konsolider mapper ...
📁 Vedlegg Pro: Lagre batch / Batch løsne / Batch komprimere / Automatisk lagring / Automatisk frakobling / Automatisk komprimering ...
🌟 Grensesnittmagi: 😊 Flere vakre og kule emojier / Påminn deg når viktige e-poster kommer / Minimer Outlook i stedet for å lukke ...
👍 Ett-klikks Wonders: Svar alle med vedlegg / Anti-phishing-e-poster / 🕘Vis avsenderens tidssone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch-legg til kontakter fra utvalgte e-poster / Del en kontaktgruppe til individuelle grupper / Fjern bursdagspåminnelser ...
Bruk Kutools på ditt foretrukne språk – støtter engelsk, spansk, tysk, fransk, kinesisk og over 40 andre!
