วิธีแบทช์ส่งไฟล์ทั้งหมดในโฟลเดอร์ Windows ผ่านอีเมล Outlook แยก

โซลูชัน Outlook September 29, 2025

หากคุณต้องการส่งไฟล์ทั้งหมดในโฟลเดอร์ Windows ผ่านอีเมล Outlook แต่ละฉบับให้กับบุคคลอื่น คุณสามารถใช้วิธีการที่แนะนำในบทความนี้ มันกำลังใช้รหัส VBA ซึ่งค่อนข้างมีประสิทธิภาพ

หลังจากอ่านบทความก่อนหน้านี้ – “3 วิธีด่วนในการแนบไฟล์ทั้งหมดในโฟลเดอร์ภายในเครื่องกับอีเมล Outlook” ผู้ใช้บางคนต้องการส่งไฟล์ทั้งหมดในโฟลเดอร์ในเครื่องผ่านอีเมลแยกต่างหาก ตามรูปแบบมาตรฐาน คุณควรสร้างอีเมลและแนบไฟล์ทีละไฟล์ มันค่อนข้างลำบาก ดังนั้น ต่อไปนี้ เราจะแนะนำวิธีที่มีประสิทธิภาพมากขึ้นให้กับคุณ

ชุดส่งไฟล์ทั้งหมดในโฟลเดอร์ Windows ผ่านอีเมลแยกต่างหาก

ขั้นแรก ให้เปิดโปรแกรม Outlook ของคุณ
จากนั้นใน Outlook ให้เข้าถึงตัวแก้ไข VBA โดยอ้างอิงถึงบทความ - "วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
ถัดไป คัดลอกและวางรหัส VBA ต่อไปนี้ในโครงการหรือโมดูล

Sub SendAllFilesInSeparateEmails()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim objFile As Object
    Dim strWindowsFolder As String
    Dim objFileSystem As Object
    Dim objMail As Outlook.MailItem
 
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       Set objWindowsFolder = objFileSystem.GetFolder(strWindowsFolder)
 
       'Send each file in an email
       For Each objFile In objWindowsFolder.Files
 
           'Create a new mail
           Set objMail = Outlook.Application.CreateItem(olMailItem)
           'Change the details as per your needs
           With objMail
                .Subject = Left(objFile.Name, Len(objFile.Name) - (Len(objFileSystem.GetExtensionName(objFile.Name)) + 1))
                .Attachments.Add objFile.Path
                .Recipients.Add ("someone@datanumen.com")
                .Recipients.ResolveAll
                .Send
          End With
       Next
 
       'Prompt you when completing sending
       MsgBox "All done!", vbOKOnly + vbExclamation
    End If
End Sub

หลังจากนั้น คุณสามารถเรียกใช้แมโครนี้พร้อมกัน เพียงกดปุ่มคีย์ “F5”
จากนั้น คุณจะต้องเลือกโฟลเดอร์ Windows ต้นทางในกล่องโต้ตอบป๊อปอัป
ในที่สุด Outlook จะแนบไฟล์ทั้งหมดในโฟลเดอร์ Windows นี้เพื่อแยกอีเมลและส่งเมลไปยังผู้รับที่กำหนดไว้ล่วงหน้า
เมื่อเสร็จสิ้น คุณจะได้รับข้อความแจ้งว่า “เสร็จสิ้นทั้งหมด!”

จับตาดูสุขภาพของ Outlook

แม้ว่า Outlook จะได้รับการยกย่องว่าเป็นโปรแกรมอีเมลที่ได้รับความนิยมมากที่สุดในตลาด แต่ก็ยังมีจุดอ่อนสำคัญ นั่นคือความเปราะบาง กล่าวคือ Outlook มีแนวโน้มที่จะเกิดข้อผิดพลาดและความเสียหายต่างๆ ดังนั้นคุณต้องให้ความสำคัญอย่างยิ่งต่อสุขภาพของ Outlook ของคุณและปกป้องมันจากความเสียหาย นอกจากนี้ คุณต้องสำรองข้อมูลไฟล์ Outlook ของคุณเป็นประจำ และขอแนะนำให้ใช้เครื่องมือแก้ไขไฟล์ PST เช่น DataNumen Outlook Repair. มันสามารถ ซ่อมแซม Outlook ปัญหาโดยไม่ต้องยุ่งยากใดๆ

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.