จะส่งอีเมลส่วนบุคคลไปยังรายการจาก Excel ผ่าน Outlook ได้อย่างไร

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

ส่งอีเมลส่วนบุคคลไปยังรายการจาก Excel ด้วยฟังก์ชันจดหมายเวียน

ส่งอีเมลส่วนบุคคลไปยังรายการจาก Excel พร้อมรหัส VBA

ส่งอีเมลส่วนบุคคลไปยังรายการที่มีไฟล์แนบต่าง ๆ โดยใช้ Kutools for Excel

ส่งอีเมลส่วนบุคคลไปยังรายการจาก Excel ด้วยฟังก์ชันจดหมายเวียน

ด้วยคำว่า จดหมายเวียน คุณสามารถทำงานนี้ให้เสร็จได้อย่างรวดเร็วและง่ายดายโปรดทำตามขั้นตอนต่อไปนี้:

1. เปิดใช้งานเอกสาร Word เปล่าใหม่จากนั้นคลิก จดหมาย > เลือกผู้รับ > ใช้รายการที่มีอยู่ดูภาพหน้าจอ:

2. ใน เลือกแหล่งข้อมูล หน้าต่างเลือกสมุดงานที่มีช่วงข้อมูลที่คุณต้องการใช้แล้วคลิก จุดเปิด ปุ่มดูภาพหน้าจอ:

3. ที่กำลังจะมาถึง เลือกตาราง โปรดเลือกแผ่นงานที่มีช่วงข้อมูลที่คุณต้องการจากนั้นคลิก OK ปุ่มดูภาพหน้าจอ:

4. และเอกสารหลักของข้อความอีเมลและรายการที่อยู่ของคุณได้เชื่อมต่อเข้าด้วยกันตอนนี้คุณสามารถแก้ไขข้อความและเพิ่มตัวยึดตำแหน่งที่ระบุตำแหน่งที่ข้อมูลเฉพาะจะปรากฏในแต่ละข้อความ

(1. ) ในการใส่ชื่อทักทายของแต่ละคนให้คลิก จดหมาย > แทรกเขตข้อมูลผสาน > Nameชื่อส่วนบุคคลถูกแทรกลงในข้อความและชื่อฟิลด์ล้อมรอบด้วย «».

(2. ) พิมพ์ข้อความของคุณและใส่ไฟล์ รหัสลงทะเบียน ในสถานที่ที่คุณต้องการดูภาพหน้าจอ:

5. หลังจากเขียนข้อความแล้วคุณสามารถคลิก ดูตัวอย่างผลลัพธ์ ภายใต้ จดหมาย เพื่อดูตัวอย่างข้อความอีเมลและทำการเปลี่ยนแปลงก่อนที่คุณจะทำการผสาน

6. หลังจากแน่ใจว่าไม่มีปัญหาคุณสามารถส่งอีเมลไปยังผู้รับที่แยกจากกันได้โปรดคลิก จดหมาย > เสร็จสิ้นและผสาน > ส่งข้อความอีเมลดูภาพหน้าจอ:

7. จากนั้นในโผล่ออกมา ผสานเข้ากับอีเมล ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:

(1. ) จากไฟล์ ไปยัง รายการแบบเลื่อนลงโปรดเลือก ที่อยู่อีเมล คอลัมน์;

(2. ) คุณสามารถพิมพ์หัวเรื่องลงในไฟล์ หัวข้อ กล่องข้อความบรรทัด

(3. ) จากไฟล์ ส่งบันทึก เลือก ทั้งหมด.

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

ส่งอีเมลส่วนบุคคลไปยังรายการจาก Excel พร้อมรหัส VBA

ยกเว้นฟังก์ชันจดหมายเวียนรหัส VBA ต่อไปนี้สามารถช่วยคุณได้โปรดทำตามนี้:

1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: ส่งอีเมลส่วนบุคคลไปยังรายการจาก Excel:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการใช้ดูภาพหน้าจอ:

4. จากนั้นคลิก OK อีเมลจะถูกส่งไปยังที่อยู่ที่แยกจากกันพร้อมรหัสการลงทะเบียนของแต่ละบุคคลทีละรายการหลังจากส่งอีเมลแล้วคุณสามารถไปที่ Outlook ของคุณเพื่อให้แน่ใจว่าส่งอีเมลเรียบร้อยแล้ว

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนหัวข้อหรือเนื้อหาตามความต้องการของคุณได้

ส่งอีเมลส่วนบุคคลไปยังรายการที่มีไฟล์แนบต่าง ๆ โดยใช้ Kutools for Excel

ถ้าคุณมี Kutools สำหรับ Excelเดียวกันกับที่ ส่งอีเมลล์ คุณลักษณะนี้คุณสามารถส่งอีเมลส่วนตัวไปยังผู้รับหลาย ๆ คนได้อย่างรวดเร็วด้วยไฟล์แนบที่แตกต่างกันตามที่คุณต้องการ

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. คลิก Kutools พลัส > ส่งอีเมลล์ดูภาพหน้าจอ:

2. ใน ส่ง Emials โปรดเลือกช่วงข้อมูลที่คุณต้องการใช้จากนั้นระบุที่อยู่ผู้รับเอกสารแนบและหัวเรื่องตามที่คุณต้องการดูภาพหน้าจอ:

3. ในช่องแก้ไขให้ใส่ชื่อทักทายแต่ละชื่อโปรดเลือก Name จากรายการแบบหล่นลงจากนั้นคลิก แทรกตัวยึดตำแหน่ง เพื่อแทรกชื่อลงในข้อความโปรดดูภาพหน้าจอ:

4. จากนั้นพิมพ์เนื้อหาข้อความของคุณลงในช่องตามที่คุณต้องการดูภาพหน้าจอ:

5. หลังจากเสร็จสิ้นเนื้อหาอีเมลโปรดเลือกโหมดการส่งตามที่คุณต้องการคุณสามารถส่งโดยใช้ Outlook หรือเซิร์ฟเวอร์ที่คุณระบุดู screesnhot:

หมายเหตุ: หากคุณต้องการใช้เซิร์ฟเวอร์อื่นให้คลิก การตั้งค่าเซิร์ฟเวอร์ขาออก หากต้องการตั้งค่าโหมดการส่งเป็นของคุณเองโปรดดูที่ screesnhot:

6. ในที่สุดคลิก ส่ง ปุ่มสำหรับส่งอีเมลหลังจากเสร็จสิ้นกล่องข้อความแจ้งจะปรากฏขึ้นเพื่อเตือนสถานะการส่ง ดู screesnhot:

คลิกดาวน์โหลดและทดลองใช้ฟรี Kutools for Excel ทันที!

การสาธิต: ส่งอีเมลส่วนบุคคลไปยังรายการจาก Excel ผ่าน Outlook

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

จะส่งอีเมลไปยังผู้รับหลายคนในรายการจาก Excel ผ่าน Outlook ได้อย่างไร