วิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้ Excel VBA

คุณต้องส่งอีเมลจำนวนมากที่เป็นส่วนตัวถึงลูกค้า ลูกค้า เพื่อน หรือผู้ติดต่ออื่น ๆ หรือไม่? คุณต้องการทำเช่นนั้นด้วยการคลิกเพียงครั้งเดียวหรือไม่? เป็นไปได้! มีเครื่องมือมหัศจรรย์ในMicrosoft Excelที่ทำทั้งหมดเหล่านี้ เป็น Visual Basic สำหรับแอปพลิเคชันหรือที่รู้จักในชื่อ Excel VBA

อ่านต่อเพื่อทราบวิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้Excel VBA ยังมีอีก! คุณสามารถฝึกฝนได้โดยทำตามขั้นตอนง่าย ๆ ที่กล่าวถึงในบทช่วยสอนด้านล่าง มาขุดกันเถอะ!

วิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้ Excel VBA

วิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้ Excel VBA

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

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

เมื่อคุณพร้อมใช้ไฟล์ Excel และแอป Outlook แล้ว ให้ทำตามขั้นตอนเหล่านี้:

  • จัดระเบียบแผ่นงานอีเมลจำนวนมากเป็น 6 คอลัมน์
  • พิมพ์ส่วนหัวของคอลัมน์ในแถว A1: Email To (A); อีเมล CC (B); หัวเรื่องอีเมล (C); เนื้อหาอีเมล (D), ไฟล์แนบ (E), สถานะ (F)
  • เพิ่ม "ถึงที่อยู่" ทั้งหมดภายใต้หัวข้อคอลัมน์A คุณสามารถเพิ่มอีเมลได้หลายพันฉบับหากต้องการ
  • ในทำนองเดียวกัน พิมพ์ "ที่อยู่ CC" ใต้ส่วนหัวของ คอลัมน์ B
  • ได้เวลาปรับแต่งบรรทัดหัวเรื่องอีเมลในแบบของคุณแล้ว คุณสามารถเพิ่มหัวเรื่องอีเมลที่กำหนดเองสำหรับผู้ติดต่อแต่ละคนภายใต้หัวข้อ คอลัมน์ C
  • เช่นเดียวกับเนื้อหาเนื้อหาอีเมล คัดลอกและวางเนื้อหาอีเมลในแถวใต้ส่วนหัว ของคอลัมน์ D
  • คัดลอกและวางตำแหน่งไฟล์แนบด้านล่างส่วนหัว ของคอลัมน์ E
  • ในการรับตำแหน่งไฟล์แนบ ให้กดShiftแล้วเลือกไฟล์เป้าหมายบนคอมพิวเตอร์ของคุณ
  • ตอนนี้คลิกขวาและเลือกคัดลอกเป็นเส้นทางเพื่อคัดลอกที่อยู่ไฟล์ในคลิปบอร์ดของพีซี
  • ตอนนี้คุณสามารถวางที่อยู่ลงในแถวของคอลัมน์ E ได้โดยตรง
  • ปล่อย คอลัมน์ Fว่างไว้เนื่องจากรหัส VBA จะเติมสถานะโดยอัตโนมัติ

วิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้ Excel VBA

  • บันทึกแผ่นงาน Excel เป็นไฟล์ที่เปิดใช้งานมาโคร
  • ตอนนี้ กดAlt+F11เพื่อเรียกโปรแกรมแก้ไขโค้ด VBA ขึ้นมา
  • คลิกที่เครื่องมือในเมนูด้านบน จากนั้นเลือกการอ้างอิง
  • ค้นหาMicrosoft Office 16.0 Object Libraryในรายการที่ตามมา และทำเครื่องหมายในช่อง
  • คลิกตกลงเพื่อบันทึก Outlook เป็นวัตถุสำหรับ VBA

วิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้ Excel VBA

  • ตอนนี้คลิกแทรกแล้วเลือกโมดูลเพื่อเปิดตัวแก้ไขโค้ด
  • คัดลอกและ วางรหัสที่กล่าวถึงด้านล่างในโมดูล

Sub Send_Bulk_Mails() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Worksheet_Name") Dim i As Integer Dim OA As Object Dim msg As Object Set OA = CreateObject("outlook.application") Dim last_row As Integer last_row = Application. CountA(sh.Range("A:A")) For i = 2 To last_row Set msg = OA.createitem(0) msg.to = sh.Range("A" & i).Value msg.cc = sh. Range("B" & i).Value msg.Subject = sh.Range("C" & i).Value msg.body = sh.Range("D" & i).Value If sh.Range("E" & i).Value <> "" จากนั้น msg.attachments.Add sh.Range("E" & i).Value End ถ้า msg.send sh.Range("F" & i).Value = "Sent" Next i MsgBox "ส่งอีเมลทั้งหมดแล้ว" End Sub

  • ป้อนชื่อเวิร์กชีตปัจจุบันโดยคั่นด้วยขีดล่างในโค้ดบรรทัดที่ 3 ซึ่งมีข้อความว่า (“ Worksheet_Name “)
  • คลิกบันทึกจากเมนูเพื่อบันทึกสคริปต์
  • คุณสามารถกดF5เพื่อเรียกใช้แมโครและ Excel จะส่งอีเมลผ่าน Outlook โดยอัตโนมัติ

วิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้ Excel VBA

  • คุณยังสามารถเข้าถึงแมโครนี้ได้ในภายหลังจาก แท็บ นักพัฒนาของเมนู Ribbon ของ Excel

บทสรุป

ตอนนี้คุณได้ติดตามวิธีการส่งอีเมลจำนวนมากจาก Outlook โดยใช้บทช่วยสอน Excel VBA แล้ว คุณสามารถส่งอีเมลจำนวนมากได้อย่างง่ายดายโดยไม่ต้องเสียเวลากับการส่งอีเมลด้วยตนเอง

ต้องการเรียนรู้เคล็ดลับ VBA อื่นสำหรับ Excel หรือไม่ อ่านบทช่วยสอนนี้เพื่อเรียนรู้วิธีตรวจสอบการสะกดอัตโนมัติใน Excelโดยใช้ VBA

Leave a Comment

การวิเคราะห์การถดถอยของ Excel 2010

การวิเคราะห์การถดถอยของ Excel 2010

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

เทคนิคการแบ่งปันเอกสาร Word 2010

เทคนิคการแบ่งปันเอกสาร Word 2010

คลิกปุ่ม Office Backstage (ปุ่มไฟล์) และกดแชร์ คุณจะพบรายการวิธีต่างๆ ที่คุณสามารถแชร์เอกสารของคุณได้ ส่งโดยใช้อีเมลนี้

ไม่สามารถเริ่ม Outlook 2010 ได้ใช่ไหม? ให้ใช้โหมดปลอดภัย

ไม่สามารถเริ่ม Outlook 2010 ได้ใช่ไหม? ให้ใช้โหมดปลอดภัย

หาก Outlook 2010 ของคุณหยุดทำงานเนื่องจาก Add-in ที่เป็นอันตราย วิธีเดียวที่เป็นไปได้คือการเริ่มต้นใช้งานในเซฟโหมดและลบ Add-in นั้นออก นอกจากนี้

ตัวจัดการ Add-In ของ Office Outlook 2010

ตัวจัดการ Add-In ของ Office Outlook 2010

ช่วงนี้เราเล่น Outlook 2010 กันบ่อยมาก คุณสามารถอ่านโพสต์ก่อนหน้าเกี่ยวกับการใช้งานในโหมดออฟไลน์ การรันใน Safe Mode และการเพิ่มความเร็วได้

สร้างและเพิ่มลายน้ำในไดอะแกรม Visio 2010

สร้างและเพิ่มลายน้ำในไดอะแกรม Visio 2010

น่าเสียดายที่ Visio 2010 ไม่รองรับไดอะแกรมลายน้ำโดยตรง อย่างไรก็ตาม ก่อนการเผยแพร่หรือแจกจ่าย คุณยังสามารถสร้างลายน้ำได้

นำเข้าและเชื่อมโยงแผ่นข้อมูล HTML ใน Access 2010

นำเข้าและเชื่อมโยงแผ่นข้อมูล HTML ใน Access 2010

Access 2010 ช่วยให้ผู้ใช้นำเข้าข้อมูลแผ่นงานบนเว็บ ซึ่งมีประโยชน์มาก โดยเฉพาะอย่างยิ่งเมื่อคุณต้องจัดการกับตารางข้อมูลที่บันทึกในรูปแบบ HTML

ฟังก์ชัน VLOOKUP ใน Excel 2010

ฟังก์ชัน VLOOKUP ใน Excel 2010

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

Excel 2010: การใช้สูตรอาร์เรย์

Excel 2010: การใช้สูตรอาร์เรย์

Excel มีวิธีจัดการกับอาร์เรย์ บางครั้งอาจต้องใช้สูตรหรือดำเนินการอื่นๆ ด้วยอาร์เรย์อย่างเร่งด่วน การใช้อาร์เรย์

วิธีการจัดทำดัชนีข้อความในเอกสาร Word 2010

วิธีการจัดทำดัชนีข้อความในเอกสาร Word 2010

Microsoft Word มีฟีเจอร์ที่มีประโยชน์มาก ซึ่งช่วยให้คุณค้นหาข้อความ คำสำคัญ และคำศัพท์ได้ทันที ด้วยระบบ Word Indexing การค้นหา

Excel 2010: วิธีการลด/เพิ่มตำแหน่งทศนิยม

Excel 2010: วิธีการลด/เพิ่มตำแหน่งทศนิยม

ใน Excel 2010 คุณสามารถตั้งค่าตำแหน่งทศนิยม (เพิ่ม/ลด) ตามรูปแบบสเปรดชีตที่ต้องการได้ โดยมีสองวิธีให้คุณเลือก