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.
Kopier alle vedhæftede filer fra flere e-mails til en ny e-mail
Kopier alle vedhæftede filer fra en e-mail til den svarende e-mail
- Automatiser e-mail med Auto CC / BCC, Automatisk videresendelse ved regler; sende Auto svar (Ikke til stede) uden at kræve en udvekslingsserver...
- Få påmindelser som BCC Advarsel når du svarer til alle, mens du er på BCC-listen, og Påmind, når du mangler vedhæftede filer for glemte vedhæftede filer...
- Forbedre e-mail-effektiviteten med Svar (alle) med vedhæftede filer, Tilføj automatisk hilsen eller dato og tid til signatur eller emne, Besvar flere e-mails...
- Strømline e-mail med Genkald e-mails, Vedhæftningsværktøjer (Komprimer alle, Gem alt automatisk...), Fjern duplikaterog Hurtig rapport...
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 Pro: Batch 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.