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í.
Zkopírujte všechny přílohy z více e-mailů do nového e-mailu
Zkopírujte všechny přílohy z e-mailu do jeho e-mailu, který odpovídá
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.
Pozor: 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ě:
Odemkněte maximální efektivitu e-mailu s Kutools pro aplikaci Outlook! Přístup 70 výkonné funkce zcela zdarma, navždy. Stáhněte si bezplatnou verzi nyní!
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
Jak zkopírovat přílohu do jiného e-mailu v aplikaci Outlook?
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (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: Připomenout e-maily / 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 Pro: Dá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ů / Připomeňte si, když přijdou důležité e-maily / 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 ...
