Denne metode introducerer en VBA til automatisk at gemme hver indgående e-mail i Outlook som individuel HTML-fil til den specifikke disk. Gør følgende:

1. Trykke andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.

2. Udvid Project1, og dobbeltklik Denne OutlookSession for at åbne den, og indsæt derefter under VBA-kode i vinduet ThisOutlookSession. Se skærmbillede:

VBA: Gem automatisk Outlook-e-mails som HTML-filer på disken

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. Gem VBA-koden, og genstart din Microsoft Outlook.

Fra nu af vil hver indkommende e-mail blive gemt som individuel HTML-fil i mappen "Mine e-mails".

Noter:
(1) Denne VBA vil oprette en mappe med navnet "Mine e-mails" under mappen Dokumenter. Du kan finde ud af de automatisk gemte e-mails med denne mappesti: C:\Brugere\dit_brugernavn\Dokumenter\Mine e-mails
(2) Denne VBA fungerer med e-mails modtaget i mappen Indbakke på standard e-mail-kontoen.

Hvordan eksporteres bulk / valgte e-mails til Excel / Text / PST-fil i Outlook?