Ta metoda bo uvedla VBA za samodejno shranjevanje vsakega dohodnega e-poštnega sporočila v Outlooku kot posamezne datoteke HTML na določen disk. Naredite naslednje:

1. Pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.

2. Razširite Project1 in dvokliknite Ta OutlookSession da ga odprete in nato pod okno VBA prilepite v okno ThisOutlookSession. Oglejte si posnetek zaslona:

VBA: Na disk samodejno shrani e-poštna sporočila Outlooka kot datoteke HTML

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. Shranite kodo VBA in znova zaženite Microsoft Outlook.

Od zdaj naprej bo vsako dohodno e-poštno sporočilo shranjeno kot posamezna datoteka HTML v mapo »MyEmails«.

Opombe:
(1) Ta VBA bo ustvaril mapo z imenom »MyEmails« v mapi Documents. Samodejno shranjena e-poštna sporočila najdete s to potjo do mape: C:\Uporabniki\vaše_uporabniško_ime\Documents\MyEmails
(2) Ta VBA bo deloval z e-poštnimi sporočili, prejetimi v mapi »Prejeto« privzetega e-poštnega računa.

Kako izvoziti množična / izbrana e-poštna sporočila v datoteko Excel / Besedilo / PST v programu Outlook?