เราจัดเก็บข้อมูลประเภทต่างๆ ใน Excel . ของเรา ใบงาน ตัวอย่างเช่น สามารถมี อีเมล ที่อยู่ของบุคคลสำคัญหรือบริษัทอื่น ขณะทำงานกับ Microsoft Excel บางครั้งเราจำเป็นต้องส่งอีเมล โดยปกติ การส่งอีเมล . เป็นเรื่องง่าย จาก Outlook หรือ Gmail แต่เมื่อคุณต้องการส่ง อีเมล ตามเนื้อหาของเซลล์ คุณสามารถใช้ Microsoft Excel ได้อย่างมีประสิทธิภาพ วันนี้ในบทความนี้ เราจะมาเรียนรู้ สอง วิธีที่รวดเร็วและเหมาะสมในการส่งอีเมลจาก excel โดยอัตโนมัติตามเนื้อหาของเซลล์อย่างมีประสิทธิภาพพร้อมภาพประกอบที่เหมาะสม
2 วิธีที่เหมาะสมในการส่งอีเมลโดยอัตโนมัติจาก Excel ตามเนื้อหาของเซลล์
สมมติว่าเรามี Excel แผ่นงานขนาดใหญ่ที่มีข้อมูลเกี่ยวกับตัวแทนขายหลายคน ของ อาร์มานี่ กรุ๊ป . ชื่อของตัวแทนฝ่ายขาย หมายเลขประจำตัว ประเภทของผลิตภัณฑ์ และ รายได้ที่ได้รับ โดย ตัวแทนขาย กำหนดไว้ในคอลัมน์ B, C, D , และ อี ตามลำดับ เราจะส่งอีเมลจาก Excel ตามเนื้อหาของเซลล์โดยใช้ Mail Merge คำสั่งใน MS Word และ VBA มาโครอีกด้วย นี่คือภาพรวมของ ชุดข้อมูล สำหรับงานวันนี้
1. เรียกใช้รหัส VBA เพื่อส่งอีเมลโดยอัตโนมัติจาก Excel ตามเนื้อหาของเซลล์
ตอนนี้ฉันจะแสดงวิธีส่งอีเมลโดยอัตโนมัติ จาก Excel ตามเนื้อหาของเซลล์โดยใช้ VBA . แบบง่าย รหัส. เป็นประโยชน์สำหรับบางช่วงเวลา จากชุดข้อมูลของเรา เราจะส่งอีเมลโดยอัตโนมัติจาก Excel ตามเนื้อหาของเซลล์ เราจะเขียนรหัสที่จะส่งอีเมลโดยอัตโนมัติหากค่าของเซลล์ในเซลล์ D6 มากกว่า 400 . มาทำตามคำแนะนำด้านล่างเพื่อส่งอีเมลโดยอัตโนมัติจาก Excel ตามเนื้อหาของเซลล์!
ขั้นตอนที่ 1:
- ก่อนอื่น เปิดโมดูล เพื่อทำสิ่งนั้น อันดับแรก จาก นักพัฒนา ของคุณ แท็บ ไปที่
ผู้พัฒนา → Visual Basic
- หลังจากคลิกที่ Visual Basic ribbon หน้าต่างชื่อ Microsoft Visual Basic for Applications จะปรากฏขึ้นต่อหน้าคุณทันที จากหน้าต่างนั้น เราจะแทรกโมดูลสำหรับใช้ โค้ด VBA . ของเรา . โดยไปที่
แทรก → โมดูล
ขั้นตอนที่ 2:
- ดังนั้น ส่งอีเมลจาก Excel โมดูลจะปรากฏขึ้นต่อหน้าคุณ ใน ส่งอีเมลจาก Excel โมดูล เขียน VBA . ด้านล่าง รหัส
Dim R As Range
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set R = Intersect(Range("D6"), Target)
If R Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 400 Then
Call send_mail_outlook
End If
End Sub
Sub send_mail_outlook()
Dim x As Object
Dim y As Object
Dim z As String
Set x = CreateObject("Outlook.Application")
Set y = x.CreateItem(0)
z = "Hello!" & vbNewLine & vbNewLine & _
"Hope you are well" & vbNewLine & _
"Visit our Exceldemy site"
On Error Resume Next
With y
.To = "Address"
.cc = ""
.BCC = ""
.Subject = "send mail based on cell value"
.Body = z
.Display
End With
On Error GoTo 0
Set y = Nothing
Set x = Nothing
End Sub
- ดังนั้น เรียกใช้ VBA โดยไปที่
เรียกใช้ → เรียกใช้ Sub/UserForm
- หลังจากเรียกใช้ รหัส VBA จากนี้ไปเมื่อค่าของเซลล์ในเซลล์ D6> 400 อีเมลใน Outlook จะสร้างโดยอัตโนมัติกับผู้รับเฉพาะ เราต้องคลิกที่ ส่ง ปุ่มเพื่อส่งอีเมลที่ได้รับในภาพหน้าจอด้านล่าง
อ่านเพิ่มเติม: วิธีการส่งอีเมลโดยอัตโนมัติเมื่อตรงตามเงื่อนไขใน Excel
การอ่านที่คล้ายกัน
- ส่งอีเมลเตือนความจำโดยอัตโนมัติจากแผ่นงาน Excel โดยใช้ VBA
- [แก้ไขแล้ว]:แชร์เวิร์กบุ๊กไม่แสดงใน Excel (ด้วยขั้นตอนง่ายๆ)
- วิธีดูว่าใครอยู่ในไฟล์ Excel ที่แชร์ (ด้วยขั้นตอนด่วน)
- ส่งอีเมลจำนวนมากจาก Outlook โดยใช้ Excel (3 วิธี)
- วิธีการใช้มาโครเพื่อส่งอีเมลจาก Excel พร้อมไฟล์แนบ
2. ใช้คำสั่ง Mail Merge ใน Word เพื่อส่งอีเมลโดยอัตโนมัติจาก Excel ตามเนื้อหาของเซลล์
ในวิธีแรก เราจะใช้ MS Word และ คุณลักษณะ Mail Merge ใน Word เพื่อ ส่งอีเมลหลายฉบับ จาก สเปรดชีต Excel . มาทำตามคำแนะนำด้านล่างเพื่อส่งอีเมลกันเถอะ!
ขั้นตอนที่ 1:
- ก่อนอื่น เปิดไฟล์ Word ของคุณและเขียนข้อความที่คุณต้องการ
- ดังนั้น จากการส่งจดหมาย . ของคุณ แท็บ ไปที่
การส่งจดหมาย ➤ เลือกผู้รับ ➤ ใช้รายการที่มีอยู่
- ด้วยเหตุนี้ เลือกแหล่งข้อมูล กล่องโต้ตอบจะปรากฏขึ้น จากนั้นเลือก Excel ไฟล์ที่ อีเมล ที่อยู่จะถูกเก็บไว้ สุดท้ายให้กดปุ่ม เปิด ตัวเลือก
- หลังจากนั้น เลือกตาราง กล่องโต้ตอบจะปรากฏขึ้นต่อหน้าคุณ เลือกแผ่นงานที่คุณต้องการแล้วกด ตกลง .
ขั้นตอนที่ 2:
- ตอนนี้ เลือกคำที่คุณต้องการแทนที่สำหรับอีเมลแต่ละฉบับ ในตัวอย่างนี้ เลือก คาร์ล . ดังนั้น ภายใต้ การส่งจดหมาย แท็บ ไปที่
การส่งจดหมาย → เขียนและแทรกฟิลด์ → แทรกฟิลด์ผสาน → Sales_Rep
- ดังนั้น มันจะส่งคืนข้อความเหมือนที่แสดงด้านล่าง
- นอกจากนี้ ถ้าคุณต้องการดูตัวอย่างจดหมายของคุณจากมุมมองของผู้รับ ให้คลิก ดูตัวอย่างผลลัพธ์ .
- หลังจากนั้น จาก การส่งจดหมาย . ของคุณ แท็บ ไปที่
การส่งจดหมาย → เสร็จสิ้น → เสร็จสิ้น &รวม → ส่งข้อความอีเมล
- ตามนั้น ผสานเข้ากับอีเมล กล่องโต้ตอบจะปรากฏขึ้นต่อหน้าคุณ เลือกส่วนหัว Sales_Rep ใน ถึง และพิมพ์ หัวเรื่อง (สวัสดี ) ตามความจำเป็น. สุดท้าย กด ตกลง และจะส่งอีเมลไปยังผู้รับทั้งหมด
อ่านเพิ่มเติม: วิธีการส่งไฟล์ Excel ไปยังอีเมลโดยอัตโนมัติ (วิธีที่เหมาะสม 3 วิธี)
สิ่งที่ควรจำ
👉 คุณสามารถป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างโดยกด Alt + F11 พร้อมกัน .
👉หากเป็น นักพัฒนา แท็บไม่ปรากฏใน ribbon ของคุณ คุณสามารถทำให้มองเห็นได้ โดยไปที่
ไฟล์ → ตัวเลือก → กำหนด Ribbon เอง
บทสรุป
ฉันหวังว่าวิธีการที่เหมาะสมทั้งหมดที่กล่าวถึงข้างต้นเพื่อ ส่งอีเมลโดยอัตโนมัติจาก Excel ตามเนื้อหาของเซลล์ ด้วย VBA ตอนนี้โค้ดจะกระตุ้นให้คุณนำไปใช้ใน Excel . ของคุณ สเปรดชีตที่มีประสิทธิผลมากขึ้น เรายินดีอย่างยิ่งที่จะแสดงความคิดเห็นหากคุณมีคำถามหรือข้อสงสัยใดๆ
บทความที่เกี่ยวข้อง
- วิธีการส่งอีเมลหากตรงตามเงื่อนไขใน Excel (วิธีง่ายๆ 3 วิธี)
- วิธีการส่งอีเมลจาก Excel ด้วยเนื้อความโดยใช้มาโคร (ด้วยขั้นตอนง่ายๆ)
- มาโคร Excel:ส่งอีเมลไปยังที่อยู่ในเซลล์ (2 วิธีง่ายๆ)
- วิธีการส่งอีเมลโดยอัตโนมัติจาก Excel ตามวันที่
- มาโครเพื่อส่งอีเมลจาก Excel พร้อมเนื้อหา (3 กรณีที่เป็นประโยชน์)
- วิธีการส่งอีเมลจากรายการ Excel (2 วิธีที่มีประสิทธิภาพ)
