Přejít k hlavnímu obsahu

Jak hromadně uložit více vybraných e-mailů jako soubory MSG v aplikaci Outlook?

Uložení e-mailu jako souboru MSG v aplikaci Outlook je snadné. Jak můžete hromadně uložit více vybraných e-mailů jako jednotlivé soubory MSG v aplikaci Outlook? Tento článek vám ukáže způsob, jak toho dosáhnout.

Uložte více vybraných e-mailů jako soubory MSG s kódem VBA


Uložte více vybraných e-mailů jako soubory MSG s kódem VBA

Následující kód VBA vám pomůže hromadně uložit více vybraných e-mailů jako jednotlivé soubory MSG v aplikaci Outlook. Postupujte prosím následovně.

1. Vyberte e-maily, které chcete uložit jako soubory MSG. Současným stisknutím kláves Alt + F11 otevřete okno Microsoft Visual Basic for Applications.

2. V okně Microsoft Visual Basic pro aplikace klikněte na Vložit> Modul a potom zkopírujte níže uvedený kód VBA do okna Modul.

Kód VBA: Uložte více vybraných e-mailů jako jednotlivé soubory MSG v aplikaci Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Stisknutím klávesy F5 spusťte kód.

4. V dialogovém okně Vyhledat složku určete složku, do které se mají uložit soubory MSG, a klepněte na tlačítko OK. Viz snímek obrazovky:

Nyní jsou všechny vybrané e-maily uloženy jako jednotlivé soubory MSG, jak je uvedeno níže.


Snadno ukládejte vybrané e-maily jako soubory jiného formátu v Outlooku:

S Hromadné uložení užitečnost Kutools pro aplikaci Outlook, můžete snadno uložit více vybraných e-mailů jako individuální soubor formátu HTML, soubor formátu TXT, dokument Word, soubor CSV i soubor PDF v aplikaci Outlook, jak ukazuje následující snímek obrazovky. Stáhněte si a vyzkoušejte to hned! (60denní bezplatná trasa)


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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It doesn't seem to work when emails are displayed in conversation mode or from a Group folder.
This comment was minimized by the moderator on the site
Hi, i am new to macro. i am looking for a macro that allows me to save the filename, not by subject or time. But by the reference # found inside the email body. This macro works well when i save multiple emails into my folder. But as i want each email to be saved using the reference #, would you have a macro for it? The reference # is found on the 6th row of the emails body (REF : WL344ET2), that i received everyday. Appreciate if anyone can help on this and thank you in advance.
This comment was minimized by the moderator on the site
When there is a ":" in the subject, this code cannot copy the whole subject to be the name of the saved message, is there any way to solve this problem?
This comment was minimized by the moderator on the site
change line 21 to xName="". The saved message filname will not include the subject anymore.
This comment was minimized by the moderator on the site
A better way is to always replace ":" with blanks adding this line under xName = xMail.Subject

xName = Replace(xName, ":", "")
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations