วิธีบันทึกอีเมล Outlook ลงในฮาร์ดไดรฟ์ / ดิสก์โดยอัตโนมัติ
สำหรับการสำรองข้อมูลหลักฐานการทำงานหรือวัตถุประสงค์อื่น ๆ คุณอาจต้องการบันทึกอีเมล 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 - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ
🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...
📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...
เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม