Hoe slaat u Outlook-e-mails automatisch op naar de harde schijf?

Voor back-up, werkdocumentatie of andere doeleinden wilt u Outlook-e-mails mogelijk opslaan op uw harde schijf. Enkele e-mails handmatig vanuit Outlook naar de schijf slepen is eenvoudig — maar weet u ook hoe u elke inkomende e-mail automatisch kunt opslaan? In dit artikel introduceren we een VBA-macro die dit voor u regelt in Outlook.

Outlook-e-mails automatisch opslaan naar de harde schijf/schijf

---

Outlook-e-mails automatisch opslaan naar de harde schijf/schijf

Deze methode maakt gebruik van een VBA-macro om elke inkomende e-mail in Outlook automatisch op te slaan als een afzonderlijk HTML-bestand op de opgegeven schijf. Volg deze stappen:

1. Druk op de toetsencombinatie Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Vouw Project1 uit, dubbelklik op „ThisOutlookSession" om het te openen en plak de onderstaande VBA-code in het ThisOutlookSession-venster. Zie screenshot:

VBA: Outlook-e-mails automatisch opslaan als HTML-bestand op schijf

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. Sla de VBA-code op en start Microsoft Outlook opnieuw.

Vanaf nu wordt elke inkomende e-mail automatisch opgeslagen als een afzonderlijk HTML-bestand in de map „MyEmails”.

Opmerkingen:
(1) Deze VBA-macro maakt een map met de naam „MyEmails” aan in de Documenten-map. U vindt de automatisch opgeslagen e-mails via het volgende bestandspad: C:\Users\uw_gebruikersnaam\Documents\MyEmails
(2) Deze VBA-macro werkt met ontvangen e-mails in de map Postvak IN van het standaard e-mailaccount.

---

Gerelateerde artikelen

Hoe exporteer je meerdere of geselecteerde e-mails in Outlook naar een Excel-, tekst- of PST-bestand?