Tato metoda zavede VBA, aby automaticky ukládal každý příchozí e-mail v aplikaci Outlook jako samostatný soubor HTML na konkrétní disk. Postupujte prosím následovně:

1. lis Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2. Rozbalte Project1 a dvakrát klikněte ThisOutlookSession otevřete jej a poté vložte pod kód VBA do okna ThisOutlookSession. Viz snímek obrazovky:

VBA: Automaticky ukládat e-maily aplikace Outlook jako soubory HTML na disk

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
Dim xNameSpace As Outlook.NameSpace
Set xNameSpace = Outlook.Application.Session
Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
Dim FSO
Dim xMailItem As Outlook.MailItem
Dim xFilePath As String
Dim xRegEx
Dim xFileName As String
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
xFilePath = xFilePath & "\MyEmails"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(xFilePath) = False Then
FSO.CreateFolder (xFilePath)
End If
Set xRegEx = CreateObject("vbscript.regexp")
xRegEx.Global = True
xRegEx.IgnoreCase = False
xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
If objItem.Class = olMail Then
Set xMailItem = objItem
xFileName = xRegEx.Replace(xMailItem.Subject, "")
xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
End If
Exit Sub
End Sub

3. Uložte kód VBA a restartujte Microsoft Outlook.

Od této chvíle bude každý příchozí e-mail ukládán jako samostatný soubor HTML do složky „MyEmails“.

Poznámky:
(1) Tento VBA vytvoří složku s názvem „MyEmails“ ve složce Documents. Automaticky uložené e-maily můžete zjistit pomocí této cesty ke složce: C:\Users\vaše_uživatelské_jméno\Documents\MyEmails
(2) Tento VBA bude fungovat s e-maily přijatými ve složce Doručená pošta výchozího e-mailového účtu.

Jak exportovat hromadné / vybrané e-maily do souboru Excel / Text / PST v aplikaci Outlook?