จะส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน Excel ได้อย่างไร

บทความนี้พูดถึงการส่งอีเมลผ่าน Outlook พร้อมแนบไฟล์แนบหลายไฟล์ใน Excel

ส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน Excel พร้อมรหัส VBA

ส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน Excel พร้อมรหัส VBA

โปรดทำดังนี้เพื่อส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน Excel

1. กรุณาใส่ปุ่มคำสั่งโดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่ง (ActiveX Control). ดูภาพหน้าจอ:

2. หลังจากใส่ปุ่ม Command แล้วโปรดคลิกขวาและเลือก ดูรหัส จากเมนูบริบท

3. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก เครื่องมือ > อ้างอิง ดังภาพด้านล่างที่แสดง

4 ใน เอกสารอ้างอิง - VBAProject โปรดค้นหาและตรวจสอบไฟล์ ไลบรารีวัตถุของ Microsoft Outlook จากนั้นคลิกตัวเลือก OK ปุ่ม

5. จากนั้นแทนที่รหัสเดิมในหน้าต่างรหัสด้วยรหัส VBA ด้านล่าง

รหัส VBA: ส่งอีเมลพร้อมไฟล์แนบหลายไฟล์ใน Excel

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: โปรดระบุผู้รับอีเมลหัวเรื่องและเนื้อหาของคุณโดยเปลี่ยนรูปแบบใน .ถึง = happy.xuebi@163.com, . เรื่อง = "ทดสอบ" และ .HTMLBody = "ทดสอบ" บรรทัดในรหัส

6 กด อื่น ๆ + Q เข้าด้วยกันเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

7 คลิก ผู้พัฒนา > โหมดการออกแบบ เพื่อปิดโหมดออกแบบ ดูภาพหน้าจอ:

8. คลิกปุ่ม Command เพื่อเรียกใช้โค้ด ในการโผล่ขึ้นมา หมวดหมู่สินค้า เลือกไฟล์ที่คุณต้องการแนบในอีเมลจากนั้นคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

9. จากนั้นอีเมลจะถูกสร้างขึ้นโดยมีช่องและไฟล์แนบที่ระบุไว้ในรายการ กรุณาคลิกที่ไฟล์ ส่ง ปุ่มเพื่อส่ง ดูภาพหน้าจอ:

หมายเหตุ: รหัส VBA จะใช้งานได้ก็ต่อเมื่อคุณใช้ Outlook เป็นโปรแกรมอีเมลของคุณ

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

• วิธีส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ใน Excel
• วิธีส่งอีเมลด้วยการคัดลอกและวางช่วงที่ระบุลงในเนื้อหาอีเมลใน Excel
• วิธีแทรกลายเซ็นลงในอีเมล Outlook เมื่อส่งโดย vba ใน Excel
• จะส่งอีเมลได้อย่างไรหากตรงตามวันที่ครบกำหนดใน Excel
• วิธีส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ใน Excel