วิธีการรวมจดหมายจาก Excel ไปยัง Outlook พร้อมไฟล์แนบ (2 ตัวอย่าง)

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

2 ตัวอย่างที่เหมาะสมในการรวมจดหมายจาก Excel ไปยัง Outlook พร้อมไฟล์แนบ

เราจะใช้สองวิธีที่มีประสิทธิภาพและยุ่งยากในการส่งจดหมายเวียนจาก Excel ไปยัง Outlook พร้อมไฟล์แนบ ส่วนนี้ให้รายละเอียดมากมายเกี่ยวกับสองวิธี คุณสามารถใช้อันใดอันหนึ่งเพื่อจุดประสงค์ของคุณ พวกมันมีความยืดหยุ่นมากมายในการปรับแต่ง คุณควรเรียนรู้และประยุกต์ใช้สิ่งเหล่านี้ เนื่องจากจะช่วยปรับปรุงความสามารถในการคิดและความรู้ของ Excel เราใช้ Microsoft Office 365 เวอร์ชันที่นี่ แต่คุณสามารถใช้เวอร์ชันอื่นได้ตามต้องการ

1. จดหมายเวียนจาก Excel ไปยัง Outlook พร้อมไฟล์แนบเดียว

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

คุณสามารถใช้ Visual Basic For Applications (VBA) เพื่อส่งจดหมายเวียนจาก Excel ไปยัง Outlook โดยมีสิ่งที่แนบมาเพียงไฟล์เดียว ในการดำเนินการนี้ คุณต้องมีแท็บนักพัฒนาซอฟต์แวร์ เพื่อแสดงบนริบบิ้นของคุณ หลังจากนั้น คุณต้องทำตามขั้นตอนต่อไปนี้เพื่อส่งจดหมายเวียนจาก Excel ไปยัง Outlook

📌 ขั้นตอน:

• ขั้นแรก จากริบบิ้น ไปที่ นักพัฒนา แท็บ
• จากนั้น เลือก Visual Basic จาก รหัส กลุ่ม
• หรือต้องกด Alt+F11 เพื่อเปิดตัวแก้ไข VBA

• ในหน้าต่าง VBA ให้ไปที่ แทรก แล้วเลือก โมดูล .

• ถัดไป คุณต้องพิมพ์รหัสต่อไปนี้

Sub Single_attachment()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
mailto = mailto & Cells(2, 2) & ";"
source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3)
Email.attachments.Add source
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub

• หลังจากนั้น ปิดหน้าต่าง Visual Basic แล้วกด Alt+F8
• เมื่อ มาโคร กล่องโต้ตอบเปิดขึ้น เลือก Single_attachment ใน ชื่อมาโคร . คลิกที่ เรียกใช้ .

• ด้วยเหตุนี้ หน้าต่าง Outlook จะปรากฏขึ้น และคุณจะเห็นไฟล์แนบที่ต้องการ

🔎 คำอธิบายโค้ด VBA

Sub Single_attachment()

ก่อนอื่น ให้ตั้งชื่อสำหรับขั้นตอนย่อยของมาโคร

Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String

ถัดไป ประกาศตัวแปรที่จำเป็นสำหรับมาโคร

Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)

ที่นี่ คำหลักที่ตั้งไว้ใช้เพื่อสร้างวัตถุใหม่ที่ชื่อว่า appOutlook และอีเมล

mailto = mailto & Cells(2, 2) & ";"

ตัวแปรนี้จะมีบุคคลที่จะส่งจดหมาย

source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3)

ตัวแปรนี้จะมี ID อีเมลของบุคคลจากโฟลเดอร์ที่ระบุ

ThisWorkbook.Save

การบันทึกทั่วไปจะบันทึกเวิร์กบุ๊ก

source = ThisWorkbook.FullName

ตัวแปรนี้จะมีชื่อเวิร์กบุ๊กนี้

Email.attachments.Add source

วิธีการเพิ่มนี้จะเพิ่มแหล่งที่มาให้กับวัตถุคอลเลกชัน

Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."

ตัวแปรนี้จะส่งคืนข้อความ "แผ่นงานสำคัญ" เป็นหัวเรื่องอีเมลและข้อความ "สวัสดีทุกคน โปรดอ่านแผ่นงานในส่วนเนื้อหาของอีเมล

Email.Display

วิธีการแสดงนี้จะแสดงอีเมล

End Sub

สุดท้าย สิ้นสุดขั้นตอนย่อยของมาโคร

หมายเหตุ:

คุณต้องบันทึกไฟล์ Excel และไฟล์เอกสารไว้ในโฟลเดอร์เดียว มิฉะนั้น วิธีนี้จะใช้ไม่ได้ผล

อ่านเพิ่มเติม: Mail Merge ใน Excel โดยไม่ต้องใช้ Word (2 วิธีที่เหมาะสม)

2. จดหมายเวียนจาก Excel ไปยัง Outlook พร้อมไฟล์แนบหลายไฟล์

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

คุณสามารถใช้ Visual Basic For Applications (VBA) เพื่อส่งจดหมายเวียนจาก Excel ไปยัง Outlook พร้อมไฟล์แนบหลายรายการ ในการดำเนินการนี้ คุณต้องมีแท็บนักพัฒนาซอฟต์แวร์ เพื่อแสดงบนริบบิ้นของคุณ หลังจากนั้น คุณต้องทำตามขั้นตอนต่อไปนี้เพื่อส่งจดหมายเวียนจาก Excel

📌 ขั้นตอน:

• ขั้นแรก จากริบบิ้น ไปที่ นักพัฒนา แท็บ
• จากนั้น เลือก ภาพ พื้นฐาน จาก รหัส กลุ่ม
• หรือต้องกด Alt+F11 เพื่อเปิดตัวแก้ไข VBA

• ในหน้าต่าง VBA ให้ไปที่ แทรก แล้วเลือก โมดูล .

• ถัดไป คุณต้องพิมพ์รหัสต่อไปนี้

Sub attachments()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
    source = "F:\SOFTEKO\61-0055\New folder\" & Cells(j, 3)
    Email.attachments.Add source
Next
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub

• หลังจากนั้น ปิดหน้าต่าง Visual Basic แล้วกด Alt+F8
• เมื่อ มาโคร เปิดกล่องโต้ตอบ เลือก ไฟล์แนบ ใน ชื่อมาโคร . คลิกที่ เรียกใช้ .

• ด้วยเหตุนี้ หน้าต่าง Outlook จะปรากฏขึ้น และคุณจะเห็นไฟล์แนบที่ต้องการ

🔎 คำอธิบายโค้ด VBA

Sub attachments()

ก่อนอื่น ให้ตั้งชื่อสำหรับขั้นตอนย่อยของมาโคร

Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer

ถัดไป ประกาศตัวแปรที่จำเป็นสำหรับมาโคร

Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)

ที่นี่ คำหลักที่ตั้งไว้ใช้เพื่อสร้างวัตถุใหม่ที่ชื่อว่า appOutlook และอีเมล

For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
    source = "F:\SOFTEKO\61-0055\New folder\" & Cells(j, 3)

หลังจากนั้นเริ่ม For Loop mailto ตัวแปรจะมีบุคคลที่ส่ง ตัวแปรต้นทางจะมีรหัสอีเมลของบุคคลจากโฟลเดอร์ที่ระบุ

Next

จากนั้น คุณต้องดำเนินการวนซ้ำของ For Loop แต่ละครั้ง

ThisWorkbook.Save

คำสั่งบันทึกนี้จะบันทึกเวิร์กบุ๊ก

source = ThisWorkbook.FullName

ตัวแปรนี้จะมีชื่อเวิร์กบุ๊กนี้

Email.attachments.Add source

วิธีการเพิ่มนี้จะเพิ่มแหล่งที่มาให้กับวัตถุคอลเลกชัน

Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."

ตัวแปรนี้จะส่งคืนข้อความ "แผ่นงานสำคัญ" เป็นหัวเรื่องอีเมลและข้อความ "สวัสดีทุกคน โปรดอ่านแผ่นงานในส่วนเนื้อหาของอีเมล

Email.Display

วิธีการแสดงนี้จะแสดงอีเมล

End Sub

สุดท้าย สิ้นสุดขั้นตอนย่อยของมาโคร

หมายเหตุ:

คุณต้องบันทึกไฟล์ Excel และไฟล์เอกสารไว้ในโฟลเดอร์เดียว มิฉะนั้น วิธีนี้จะใช้ไม่ได้ผล

อ่านเพิ่มเติม: มาโครเพื่อเติมเอกสารจดหมายเวียนจาก Excel

บทสรุป

นั่นคือจุดสิ้นสุดของเซสชั่นของวันนี้ ฉันเชื่ออย่างยิ่งว่าต่อจากนี้ คุณอาจส่งจดหมายเวียนจาก Excel ไปยัง Outlook พร้อมไฟล์แนบได้ หากคุณมีคำถามหรือคำแนะนำใด ๆ โปรดแบ่งปันในส่วนความคิดเห็นด้านล่าง

อย่าลืมตรวจสอบเว็บไซต์ของเรา Exceldemy.com สำหรับปัญหาและแนวทางแก้ไขต่างๆ ที่เกี่ยวข้องกับ Excel เรียนรู้วิธีใหม่ๆ และเติบโตต่อไป!

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

• วิธีการผสานไฟล์ Excel เข้ากับป้ายกำกับการส่งจดหมาย (ด้วยขั้นตอนง่ายๆ)
• วิธีการส่งจดหมายเวียนรูปภาพจาก Excel ไปยัง Word (2 วิธีง่ายๆ)
• จดหมายผสานจาก Excel ไปยัง Word Envelopes (2 วิธีง่ายๆ)
• วิธีการเปลี่ยนรูปแบบวันที่ในจดหมายเวียนของ Excel (พร้อมขั้นตอนด่วน)