วิธีบันทึกอีเมลที่เลือกหลายรายการเป็นไฟล์ MSG จำนวนมากใน Outlook

การบันทึกอีเมลเป็นไฟล์ MSG ใน Outlook ทำได้ง่าย คุณจะบันทึกอีเมลที่เลือกหลายไฟล์เป็นไฟล์ MSG แต่ละไฟล์ใน Outlook ได้อย่างไร บทความนี้จะแสดงวิธีการเพื่อให้บรรลุ

บันทึกอีเมลที่เลือกหลายฉบับเป็นไฟล์ MSG ด้วยรหัส VBA

บันทึกอีเมลที่เลือกหลายฉบับเป็นไฟล์ MSG ด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณบันทึกอีเมลที่เลือกไว้หลายไฟล์เป็นไฟล์ MSG แต่ละไฟล์ใน Outlook กรุณาดำเนินการดังนี้

1. เลือกอีเมลที่คุณต้องการบันทึกเป็นไฟล์ MSG จากนั้นกดปุ่ม Alt + F11 พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2. ในหน้าต่าง Microsoft Visual Basic for Applications ให้คลิกสิ่งที่ใส่เข้าไป> โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: บันทึกอีเมลที่เลือกหลายไฟล์เป็นไฟล์ MSG แต่ละไฟล์ใน Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. กดปุ่ม F5 เพื่อเรียกใช้รหัส

4 ในกล่องโต้ตอบเรียกดูโฟลเดอร์โปรดระบุโฟลเดอร์ที่จะบันทึกไฟล์ MSG จากนั้นคลิกที่ OK ปุ่ม ดูภาพหน้าจอ:

ตอนนี้อีเมลที่เลือกทั้งหมดจะถูกบันทึกเป็นไฟล์ MSG แต่ละไฟล์ตามภาพด้านล่างที่แสดง

---

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

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

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

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

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

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

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

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

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

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

อ่านเพิ่มเติม       ดาวน์โหลดฟรี      การซื้อ