Come salvare automaticamente le email di Outlook su disco rigido o disco?

Per il backup, come prova di lavoro o per altri scopi, potrebbe essere utile salvare le email di Outlook sul disco rigido. Salvare manualmente alcuni messaggi è semplice: basta trascinarli direttamente da Outlook nella destinazione desiderata. Ma sapevi che puoi configurare Outlook per salvare automaticamente ogni email in arrivo direttamente sul disco? Questo articolo ti mostra una macro VBA per automatizzare questa operazione.

Salva automaticamente le email di Outlook su disco rigido/disco

---

Salva automaticamente le email di Outlook su disco rigido/disco

Questo metodo sfrutta una macro VBA per salvare automaticamente ogni email in arrivo in Outlook come file HTML separato in una cartella specifica del tuo disco. Segui questi passaggi:

1. Premi i tasti «Alt» + "F11" per aprire la finestra di Microsoft Visual Basic for Applications.

2. Espandi Project1, fai doppio clic su «ThisOutlookSession» per aprirlo, quindi incolla il codice VBA seguente nella finestra di ThisOutlookSession. Vedi screenshot:

VBA: Salva automaticamente le email 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.

Da ora in poi, ogni email in arrivo verrà salvata come file HTML separato nella cartella “MyEmails”.

Nota:
(1) Questa macro VBA creerà una cartella denominata “MyEmails” all’interno della cartella Documenti. Potrai trovare le email salvate automaticamente nel seguente percorso: Percorso del file: C:\Users\nome_utente\Documents\MyEmails
(2) Questa macro VBA funzionerà con le ricevute presenti nella cartella Posta in arrivo dell’account email predefinito.

---

Articoli correlati

Come esportare più email o quelle selezionate in un file Excel, di testo o PST in Outlook?