Phương pháp này sẽ giới thiệu một VBA để tự động lưu mọi email đến trong Outlook dưới dạng tệp HTML riêng lẻ vào đĩa cụ thể. Vui lòng làm như sau:

1. nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Mở rộng Project1 và nhấp đúp vào ĐâyOutlookSession để mở nó, rồi dán mã VBA bên dưới vào cửa sổ ThisOutlookSession. Xem ảnh chụp màn hình:

VBA: Tự động lưu email Outlook dưới dạng tệp HTML vào đĩa

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. Lưu mã VBA và khởi động lại Microsoft Outlook của bạn.

Từ bây giờ, mỗi email đến sẽ được lưu dưới dạng tệp HTML riêng lẻ vào thư mục “MyEmails”.

Chú ý:
(1) VBA này sẽ tạo một thư mục có tên là “MyEmails” trong thư mục Documents. Bạn có thể tìm ra các email được lưu tự động bằng đường dẫn thư mục này: C: \ Users \ your_user_name \ Documents \ MyEmails
(2) VBA này sẽ hoạt động với các email nhận được trong thư mục Hộp thư đến của tài khoản email mặc định.

Làm cách nào để xuất hàng loạt email / đã chọn sang tệp Excel / Văn bản / PST trong Outlook?