Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • Excel
  • วิธีส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ใน Excel

วิธีส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ใน Excel

สมมติว่าคุณมีรายการที่อยู่อีเมลและตอนนี้คุณต้องการส่งข้อความอีเมลไปยังที่อยู่อีเมลเหล่านี้เป็นกลุ่มโดยตรงใน Excel จะบรรลุได้อย่างไร? บทความนี้จะแสดงวิธีการส่งอีเมลไปยังที่อยู่อีเมลหลายรายการซึ่งระบุไว้ในเซลล์ใน Excel

ส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ใน Excel ด้วย VBA
ส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ได้อย่างง่ายดายด้วย Kutools for Excel


ส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ใน Excel ด้วย VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณส่งอีเมลไปยังที่อยู่อีเมลที่ระบุใน Excel โปรดปฏิบัติตาม

1. ในแผ่นงานมีที่อยู่อีเมลที่คุณต้องใช้ในการส่งอีเมลให้กดปุ่ม อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

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

4 จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: ส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ใน Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: โปรดระบุหัวเรื่องและเนื้อหาอีเมลของคุณทั้งสองอย่าง . เรื่อง = "ทดสอบ" และ .Body = "เรียน" _ & vbNewLine & vbNewLine & _ "นี่คืออีเมลทดสอบ" & _ "ที่ส่งใน Excel" บรรทัดในรหัส

5 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการเปิด Kutools สำหรับ Excel โปรดเลือกช่วงที่มีที่อยู่อีเมลที่คุณจะส่งอีเมลไปให้จากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

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

หมายเหตุ:

1. หากมีที่อยู่อีเมลสามที่อยู่แยกกันในเซลล์ที่เลือกระบบจะสร้างข้อความอีเมลสามข้อความ
2. รหัส VBA จะใช้งานได้ก็ต่อเมื่อคุณใช้ Outlook เป็นโปรแกรมอีเมลของคุณ

ส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ด้วย Kutools for Excel

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

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1. เลือกที่อยู่อีเมลที่มีเซลล์ส่วนหัวในแผ่นงานของคุณจากนั้นคลิก Kutools พลัส > ส่งอีเมลล์.

2. ในการโผล่ขึ้นมา ส่งอีเมลล์ โปรดทำการกำหนดค่าต่อไปนี้:

2.1) เลือกส่วนหัวของรายการที่อยู่อีเมลในไฟล์ ไปยัง รายการแบบหล่นลง
2.2) ป้อนหัวเรื่องอีเมลในไฟล์ หัวข้อ กล่อง;
2.3) การเขียนเนื้อหาอีเมลของคุณ
2.4) ตรวจสอบไฟล์ ส่งอีเมลผ่าน Outlook กล่อง;
2.5) คลิกปุ่ม ส่ง ปุ่ม. ดูภาพหน้าจอ:

3. จากนั้นก Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นเพื่อแจ้งจำนวนอีเมลที่ส่งไป กรุณาคลิกที่ไฟล์ OK และปิดปุ่ม ส่งอีเมลล์ กล่องโต้ตอบ ดูภาพหน้าจอ:

หมายเหตุ:

1. คุณสามารถไปที่ Outlook's รายการที่ถูกส่ง โฟลเดอร์เพื่อตรวจสอบอีเมลที่ส่ง
2. คุณสามารถใช้เซิร์ฟเวอร์อื่นได้โดยคลิก การตั้งค่าเซิร์ฟเวอร์ขาออก เพื่อตั้งค่าโหมดการส่งเป็นของคุณเอง

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


การสาธิต: ส่งอีเมลไปยังที่อยู่อีเมลที่ระบุในเซลล์ด้วย Kutools for Excel


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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • กว่า
    300
    คุณสมบัติอันทรงพลัง
    . รองรับ Office/Excel
    2007-2019 และ 365
    . รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (4)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
수신인과 마찬가지의 방법으로 참조인을 선택하려면 어떻게 하나요?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ลี
ขออภัย ฉันไม่เข้าใจคำถามของคุณ คุณอาจต้องแนบภาพหน้าจอเพื่ออธิบายปัญหาให้ชัดเจนยิ่งขึ้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hogyan választhatom ki a CC-ket ugyanúgy, mint a címzetteket? Lee ezt kérdezte :D
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเคเค
หากคุณต้องการเพิ่มผู้รับ CC ด้วยที่อยู่อีเมลในเซลล์ที่ระบุ คุณต้องเพิ่มที่อยู่อีเมลด้วยตนเองในบรรทัดถึงในโค้ด จากนั้นจึงเพิ่มบรรทัดสำเนาถึง
สองบรรทัดดังนี้
.ถึง = "xxx@xxx.com"
.Cc = xRgVal
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL