Přejít k hlavnímu obsahu

Jak zkopírovat všechny přílohy z více e-mailů do nového e-mailu v aplikaci Outlook?

Obecně je snadné kopírovat přílohy z jednoho e-mailu do druhého pomocí kopírování a vkládání v Outlooku. Ale co takhle zkopírovat přílohy z více e-mailů do nového? Tento článek vám představí řešení.

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou
Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu
Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

Zkopírujte všechny přílohy z více e-mailů do nového e-mailu

Tento článek představí VBA pro rychlé kopírování všech příloh z více e-mailů do nové v aplikaci Outlook. Postupujte prosím následovně:

1. Vyberte více e-mailů, jejichž přílohy zkopírujete, a stiskněte Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.
Poznámka: Držení Ctrl klíč, můžete vybrat více nesousedících e-mailů kliknutím na jeden po druhém; podíl směna můžete vybrat více sousedních e-mailů kliknutím na první a poslední.

2, klikněte Vložit > Modula poté vložte do nového okna modulu pod kód VBA.

VBA: Zkopírujte všechny přílohy z více e-mailů do nového

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. lis F5 nebo klávesu Běh tlačítko pro spuštění tohoto VBA.

Nyní uvidíte, že všechny přílohy jsou zkopírovány z vybraných e-mailů a vloženy do nového e-mailu.


Zkopírujte všechny přílohy z e-mailu do jeho e-mailu, který odpovídá

Pokud máte nainstalovaný program Kutools pro aplikaci Outlook, můžete jej použít Odpovězte s přílohou funkce pro snadné zkopírování všech příloh z e-mailu do odpovědního e-mailu v aplikaci Outlook. Postupujte prosím následovně:

Kutools pro aplikaci Outlook: Ultimate Outlook Toolkit s více než 100 praktickými nástroji. Vyzkoušejte to ZDARMA na 60 dní, bez omezení, bez starostí!   Čtěte více...   Začněte bezplatnou zkušební verzi hned teď!

Vyberte e-mail, na který odpovíte, a klikněte Kutools > Odpovězte s přílohou > Odpovězte přílohou. Viz obrázek:

Nyní uvidíte, že všechny přílohy se automaticky zkopírují do e-mailu s odpovědí.


Související články


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

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