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

วิธีบันทึกอีเมล 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 ของคุณ

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

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

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

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

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

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

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

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
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations