จะส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน 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 = ""
.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หมายเหตุ: โปรดระบุผู้รับอีเมลหัวเรื่องและเนื้อหาของคุณโดยเปลี่ยนรูปแบบใน .ถึง = , . เรื่อง = "ทดสอบ" และ .HTMLBody = "ทดสอบ" บรรทัดในรหัส
6 กด อื่น ๆ + Q เข้าด้วยกันเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
7 คลิก ผู้พัฒนา > โหมดการออกแบบ เพื่อปิดโหมดออกแบบ ดูภาพหน้าจอ:
8. คลิกปุ่ม Command เพื่อเรียกใช้โค้ด ในการโผล่ขึ้นมา หมวดหมู่สินค้า เลือกไฟล์ที่คุณต้องการแนบในอีเมลจากนั้นคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:
9. จากนั้นอีเมลจะถูกสร้างขึ้นโดยมีช่องและไฟล์แนบที่ระบุไว้ในรายการ กรุณาคลิกที่ไฟล์ ส่ง ปุ่มเพื่อส่ง ดูภาพหน้าจอ:
หมายเหตุ: รหัส VBA จะใช้งานได้ก็ต่อเมื่อคุณใช้ Outlook เป็นโปรแกรมอีเมลของคุณ
ส่งอีเมลผ่าน Outlook ได้อย่างง่ายดายตามช่องของรายชื่อผู้รับจดหมายที่สร้างขึ้นใน Excel
พื้นที่ ส่งอีเมลล์ ประโยชน์ของ Kutools สำหรับ Excel ช่วยให้ผู้ใช้ส่งอีเมลผ่าน Outlook ตามรายชื่อผู้รับจดหมายที่สร้างขึ้นใน Excel
ดาวน์โหลดและทดลองใช้ทันที! (เส้นทางฟรี 30 วัน)
บทความที่เกี่ยวข้อง:
- วิธีส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ใน Excel
- วิธีส่งอีเมลด้วยการคัดลอกและวางช่วงที่ระบุลงในเนื้อหาอีเมลใน Excel
- วิธีแทรกลายเซ็นลงในอีเมล Outlook เมื่อส่งโดย vba ใน Excel
- จะส่งอีเมลได้อย่างไรหากตรงตามวันที่ครบกำหนดใน Excel
- วิธีส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
