ไปยังเนื้อหาหลัก

วิธีบันทึกอีเมล Outlook ลงในฮาร์ดไดรฟ์ / ดิสก์โดยอัตโนมัติ

ผู้เขียน: เคลลี่ แก้ไขล่าสุด: 2020-12-23

สำหรับการสำรองข้อมูลหลักฐานการทำงานหรือวัตถุประสงค์อื่น ๆ คุณอาจต้องการบันทึกอีเมล Outlook ลงในฮาร์ดไดรฟ์ ง่ายต่อการบันทึกอีเมลหลายฉบับลงในดิสก์ด้วยการลากจาก Outlook ไปยังดิสก์ด้วยตนเอง อย่างไรก็ตามคุณรู้วิธีบันทึกอีเมลขาเข้าแต่ละฉบับลงในดิสก์โดยอัตโนมัติหรือไม่? บทความนี้จะแนะนำ VBA เพื่อจัดการกับมันใน Outlook

บันทึกอีเมล Outlook ลงในฮาร์ดไดรฟ์ / ดิสก์โดยอัตโนมัติ


บันทึกอีเมล Outlook ลงในฮาร์ดไดรฟ์ / ดิสก์โดยอัตโนมัติ

วิธีนี้จะแนะนำ VBA เพื่อบันทึกอีเมลขาเข้าทั้งหมดใน Outlook เป็นไฟล์ HTML แต่ละไฟล์ไปยังดิสก์เฉพาะโดยอัตโนมัติ โปรดดำเนินการดังนี้:

1. กด อื่น ๆ + F11 ปุ่มเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2. ขยาย Project1 และดับเบิลคลิก นี้OutlookSession เพื่อเปิดจากนั้นวางโค้ด VBA ด้านล่างลงในหน้าต่าง ThisOutlookSession ดูภาพหน้าจอ:

VBA: บันทึกอีเมล Outlook เป็นไฟล์ HTML ลงในดิสก์โดยอัตโนมัติ

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. บันทึกรหัส VBA และรีสตาร์ท Microsoft Outlook ของคุณ

จากนี้ไป อีเมลขาเข้าแต่ละฉบับจะถูกบันทึกเป็นไฟล์ HTML แต่ละไฟล์ลงในโฟลเดอร์ "MyEmails"

หมายเหตุ : :
(1) VBA นี้จะสร้างโฟลเดอร์ชื่อ "MyEmails" ใต้โฟลเดอร์ Documents คุณสามารถค้นหาอีเมลที่บันทึกโดยอัตโนมัติด้วยเส้นทางโฟลเดอร์นี้: C:\Users\your_user_name\Documents\MyEmails
(2) VBA นี้จะทำงานร่วมกับอีเมลที่ได้รับในโฟลเดอร์กล่องขาเข้าของบัญชีอีเมลเริ่มต้น


บทความที่เกี่ยวข้อง


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!

สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!

🤖 Kutools AI : ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมล  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เตือนคุณเมื่อมีอีเมลสำคัญมาถึง  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

ปลดล็อค Kutools for Outlook ทันทีด้วยการคลิกเพียงครั้งเดียว—ฟรีอย่างถาวร- อย่ารอช้า ดาวน์โหลดตอนนี้และเพิ่มประสิทธิภาพของคุณ!

 

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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!!!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Could you advise how to change this to another folder, not the Inbox?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
How can I add the sender's email address to the file name?
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations