Hoe Outlook-e-mails automatisch op de harde schijf/opslag te slaan?
Voor back-ups, werkzaamheden of andere doeleinden wilt u mogelijk Outlook-e-mails opslaan op de harde schijf. Het is eenvoudig om enkele e-mails handmatig van Outlook naar de schijf te slepen. Maar weet u hoe u elke binnenkomende e-mail automatisch op de schijf kunt opslaan? Dit artikel introduceert een VBA om dit in Outlook te verwerken.
Outlook-e-mails automatisch opslaan op de harde schijf/opslag
Outlook-e-mails automatisch opslaan op de harde schijf/opslag
Deze methode introduceert een VBA om elke binnenkomende e-mail in Outlook automatisch op te slaan als individueel HTML-bestand op de specifieke schijf. Volg de volgende stappen:
1. Druk op "Alt" + "F11" om het Microsoft Visual Basic for Applications-venster te openen.
2. Vouw Project1 uit en dubbelklik op "ThisOutlookSession" om het te openen, en plak vervolgens onderstaande VBA-code in het ThisOutlookSession-venster. Zie screenshot:
VBA: Outlook-e-mails automatisch opslaan als HTML-bestanden op de 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 herstart uw Microsoft Outlook.
Vanaf nu wordt elke binnenkomende e-mail opgeslagen als individueel HTML-bestand in de map “MyEmails”.
Opmerkingen:
(1) Deze VBA maakt een map genaamd “MyEmails” aan onder de Documentenmap. U kunt de automatisch opgeslagen e-mails vinden met dit mappad: C:\Users\uw_gebruikersnaam\Documents\MyEmails
(2) Deze VBA werkt met e-mails die zijn ontvangen in de Inbox-map van het standaard e-mailaccount.
Gerelateerde artikelen
Hoe bulk/geselecteerde e-mails naar Excel/Tekst/PST-bestand in Outlook exporteren?
Beste productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
