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
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? 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 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ů / 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.