Metode ini akan memperkenalkan VBA untuk secara otomatis menyimpan setiap email masuk di Outlook sebagai file HTML individual ke disk tertentu. Harap lakukan sebagai berikut:

1. tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

2. Perluas Project1, dan klik dua kali Sesi Pandangan ini untuk membukanya, lalu tempelkan kode VBA di bawah ini ke jendela ThisOutlookSession. Lihat tangkapan layar:

VBA: Secara otomatis menyimpan email Outlook sebagai file HTML ke disk

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. Simpan kode VBA, dan mulai ulang Microsoft Outlook Anda.

Mulai sekarang, setiap email masuk akan disimpan sebagai file HTML individual ke dalam folder “Email Saya”.

Catatan:
(1) VBA ini akan membuat folder bernama “Email Saya” di bawah folder Dokumen. Anda dapat mengetahui email yang disimpan secara otomatis dengan jalur folder ini: C:\Users\nama_pengguna Anda\Documents\MyEmails
(2) VBA ini akan berfungsi dengan email yang diterima di folder Kotak Masuk akun email default.

Bagaimana cara mengekspor email massal / terpilih ke file Excel / Teks / PST di Outlook?