Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe automatisch Outlook-e-mails op de harde schijf / schijf opslaan?

Voor back-up, werkbewijs of andere doeleinden wilt u misschien Outlook-e-mails op de harde schijf opslaan. Het is gemakkelijk om meerdere e-mails op schijf op te slaan door ze handmatig van Outlook naar schijf te slepen. Weet u echter hoe u elke inkomende e-mail automatisch op schijf kunt opslaan? Dit artikel introduceert een VBA om deze in Outlook af te handelen.

Sla automatisch Outlook-e-mails op de harde schijf / schijf op


Sla automatisch Outlook-e-mails op de harde schijf / schijf op

Deze methode introduceert een VBA om automatisch elke inkomende e-mail in Outlook op te slaan als individueel HTML-bestand op de specifieke schijf. Ga als volgt te werk:

1. pers anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Vouw Project1 uit en dubbelklik DezeOutlookSessie om het te openen en plak vervolgens onder VBA-code in het ThisOutlookSession-venster. Zie screenshot:

VBA: automatisch Outlook-e-mails opslaan als HTML-bestanden 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 uw Microsoft Outlook opnieuw.

Vanaf nu wordt elke inkomende e-mail opgeslagen als individueel HTML-bestand in de map "MyEmails".

Notes:
(1) Deze VBA maakt een map met de naam "MyEmails" onder de map Documenten. U kunt de automatisch opgeslagen e-mails vinden met dit mappad: C: \ Users \ uw_gebruikersnaam \ Documenten \ MyEmails
(2) Deze VBA werkt met e-mails die zijn ontvangen in de map Inbox van het standaard e-mailaccount.


Gerelateerde artikelen


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    lio · 8 months ago
    I need to change the folder for one i created (no need folder inbox), and i need to change the folder to store the msg files, in my case in drive e:., thank!!!

  • To post as a guest, your comment is unpublished.
    WRT · 1 years ago
    Can i have a certain report that is emailed to me each week save to a place on my hard drive? Just this one email. Comes from same email address and has the same title each week.
  • To post as a guest, your comment is unpublished.
    Leslie · 2 years ago
    Could you advise how to change this to another folder, not the Inbox?
  • To post as a guest, your comment is unpublished.
    Olka · 2 years ago
    Dzień doby, robię wszystko tak jak opisane powyżej, mimo to makro nie chce działać. Czy muszę włączyć jakieś opcję albo zmienić coś w kodzie?
    Nie wywala błędu jednak nie tworzy się folder a plik się nie zapisuje.

    Będę bardzo wdzięczna za odpowiedź

    Pozdrawiam serdecznie
  • To post as a guest, your comment is unpublished.
    Matthias · 2 years ago
    How can I add the sender's email address to the file name?
  • To post as a guest, your comment is unpublished.
    DW · 2 years ago
    Buonasera, è possibile modificare questo script con una versione che prevede di spostare i messaggi che arrivano in altra cartella anzichè quella classica della posta in arrivo? In altri termini, vorrei salvare automaticamente le mail che arrivano per esempio in Posta in Arrivo\Cliente1
    grazie per la collaborazione
    max