Questo metodo introdurrà un VBA per salvare automaticamente ogni e-mail in arrivo in Outlook come singolo file HTML sul disco specifico. Si prega di fare quanto segue:

1. stampa altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Espandere il Project1 e fare doppio clic Questa sessione di Outlook per aprirlo, quindi incollare sotto il codice VBA nella finestra ThisOutlookSession. Vedi screenshot:

VBA: salva automaticamente le e-mail di Outlook come file HTML su disco

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. Salva il codice VBA e riavvia Microsoft Outlook.

D'ora in poi, ogni email in arrivo verrà salvata come file HTML individuale nella cartella "MyEmails".

Note:
(1) Questo VBA creerà una cartella denominata "MyEmails" nella cartella Documents. Puoi trovare le e-mail salvate automaticamente con questo percorso di cartella: C: \ Users \ your_user_name \ Documents \ MyEmails
(2) Questo VBA funziona con le e-mail ricevute nella cartella Posta in arrivo dell'account e-mail predefinito.

Come esportare messaggi di posta elettronica in blocco / selezionati in file Excel / testo / PST in Outlook?