Note: The other languages of the website are Google-translated. Back to English

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

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

doc ส่งอีเมลส่วนตัว 1

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

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

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


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

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

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

doc ส่งอีเมลส่วนตัว 2

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

doc ส่งอีเมลส่วนตัว 3

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

doc ส่งอีเมลส่วนตัว 4

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

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

doc ส่งอีเมลส่วนตัว 5

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

doc ส่งอีเมลส่วนตัว 6

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

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

doc ส่งอีเมลส่วนตัว 7

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

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

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

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

doc ส่งอีเมลส่วนตัว 8

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


ส่งอีเมลส่วนตัวไปยังผู้รับหลายคนพร้อมไฟล์แนบที่แตกต่างกัน:

กับ Kutools สำหรับ Excel's ส่งอีเมลล์ คุณสามารถส่งอีเมลส่วนตัวไปยังผู้รับหลาย ๆ คนได้อย่างรวดเร็วด้วยไฟล์แนบที่แตกต่างกันจาก Excel ผ่าน Outlook ตามที่คุณต้องการ ในขณะเดียวกันคุณสามารถ CC หรือ Bcc ข้อความถึงบุคคลใดบุคคลหนึ่งได้เช่นกัน       ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

doc ส่งอีเมลส่วนตัว 18 1


ลูกศรสีฟ้าฟองขวา ส่งอีเมลส่วนบุคคลไปยังรายการจาก 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 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการใช้ดูภาพหน้าจอ:

doc ส่งอีเมลส่วนตัว 9

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

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


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

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

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. 

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

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

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

doc ส่งอีเมลส่วนตัว 9

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

doc ส่งอีเมลส่วนตัว 9

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

doc ส่งอีเมลส่วนตัว 9

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

doc ส่งอีเมลส่วนตัว 9

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

doc ส่งอีเมลส่วนตัว 9

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

doc ส่งอีเมลส่วนตัว 9

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


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

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

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

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


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

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

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (47)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนี้ใช้งานได้ดีมาก ขอบคุณมาก แต่ฉันมีปัญหาเล็กน้อย ฉันกำลังพยายามเปลี่ยนรหัสเพื่อกำหนดเซลล์ที่ฉันต้องการรับอีเมลและส่งไปล่วงหน้าเนื่องจากวิธีที่ฉันสร้างไฟล์ excel ของฉัน ฉันต้องการเปลี่ยนกล่องการเลือกสำหรับอาร์เรย์ของเซลล์ที่กำหนด ตัวอย่าง: แก้ไขข้อมูลทั้งหมดของฉันจะอยู่ระหว่าง A2:C6 ดังนั้นเมื่อฉันเรียกใช้มาโคร ฉันไม่จำเป็นต้องเลือกมันอีก ขอบคุณมากสำหรับทุกสิ่งที่คุณอธิบายข้างต้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถแก้ไขรหัสเพื่อแนบไฟล์หลายไฟล์ในอีเมลได้หรือไม่ มันจะเป็นความช่วยเหลือที่ดี ขอบคุณล่วงหน้า.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะเพิ่มรหัสเพื่อดึงลายเซ็นอีเมลปกติของฉันด้วย นอกจากนี้ เมื่อเลือกช่วงที่จะส่งอีเมล ฉันได้กรองสเปรดชีต excel ของฉันแล้ว แต่เมื่อฉันเรียกใช้มาโคร มันยังคงดึงแถวที่ซ่อนอยู่ด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันก็อยากรู้เรื่องนี้เหมือนกัน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีเพิ่ม cc ในโค้ดด้านบน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทางที่ดี

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

โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สกายหยาง

ฉันพยายามและพยายามทำให้ลายเซ็นอีเมลปรากฏขึ้น แต่ดูเหมือนจะไม่ถูกต้อง! คุณมีรหัสเล็กน้อยที่ฉันสามารถเพิ่มเพื่อให้สิ่งนี้เกิดขึ้นได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โพสต์บ้าๆ บอๆ นี่มันของปลอม อย่าเชื่อเนื้อหานี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไงเพื่อน,
มันยอดเยี่ยมมาก ต้องการความช่วยเหลืออย่างใดอย่างหนึ่ง ฉันต้องแนบไฟล์ pdf ต่าง ๆ กับอีเมลที่แตกต่างกันในแต่ละครั้ง
ทุกคนสามารถช่วยฉันหน่อยได้ไหม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สกายหยาง
ฉันต้องแนบไฟล์ pdf ที่แตกต่างกันสำหรับแต่ละเมล คุณช่วยได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคุณอาร์วิน
Kutools สามารถช่วยคุณเพิ่มไฟล์แนบหลายไฟล์เมื่อส่งอีเมล
ขั้นแรกคุณควรแทรกเส้นทางของไฟล์แนบลงในเซลล์จากนั้นใช้ Kutools โปรดดูภาพหน้าจอต่อไปนี้:
หวังว่ามันจะช่วยคุณได้ ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สกายหยาง
ฉันใช้รหัสด้านล่างของคุณเพื่อส่งจดหมายและทำงานได้อย่างสมบูรณ์ มีอะไรให้ช่วยแก้ไขในโค้ดสำหรับส่งไฟล์แนบ pdf ไปด้วย
ฉันต้องส่งเมลมากกว่า 100 ฉบับจึงยากที่จะแนบไฟล์ในแต่ละครั้ง Kutools ทำงานตามเส้นทางที่กำหนดและส่งจดหมายโดยอัตโนมัติหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เดี๋ยวก่อน
คุณช่วยฉันด้วยฟังก์ชั่นไฟล์แนบ. ด้วยรหัส VBA ด้านบนของคุณ ฉันต้องส่งไฟล์แนบ
ฉันใช้ Kutools ไม่ได้ :(
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
CC คนในนี้ทำยังไงคะ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จะเป็นอย่างไรถ้าฉันมีข้อมูลสำหรับลูกค้าจำนวนมากและลูกค้าบางรายมีข้อมูลมากกว่า 1 รายการ... และฉันไม่ต้องการส่งอีเมลแยกไปยังลูกค้า แต่อาจส่งในรูปแบบตารางในอีเมล ฉันจะส่งอีเมลถึงลูกค้าเพียง 1 ฉบับได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีสตีเวน คุณพบวิธีที่จะทำสิ่งนี้ให้สำเร็จหรือไม่ เราสามารถช่วยคุณด้วยพอร์ทัลเว็บออนไลน์ง่ายๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคุณแก้ปัญหาหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อยากทราบวิธีทำค่ะ. คุณบอกฉันได้ไหม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ !!

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

ซับ SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = เซลล์(Rows.Count, "A")).End(xlUp).Row
ตั้งค่า Mail_Object = CreateObject("Outlook.Application")
สำหรับฉัน = 2 ถึง lr
ด้วย Mail_Object.CreateItem(o)
.Subject = ช่วง ("B" & i).Value
.To = ช่วง ("A" & i).Value

.Body = Range("C" & i).Value
.attachments.Add (ชีต("Sheet1")).Range("H" & i).Text)
.attachments.Add (ชีต("Sheet1")).Range("I" & i).Text)
.attachments.Add (ชีต("Sheet1")).Range("J" & i).Text)
.attachments.Add (ชีต("Sheet1")).Range("K" & i).Text)
.ส่ง

'.display 'ปิดใช้งานการแสดงผลและเปิดใช้งานการส่งเพื่อส่งโดยอัตโนมัติ
จบด้วย
ต่อไปฉัน
MsgBox "ส่งอีเมลสำเร็จแล้ว", 64
Application.DisplayAlerts = เท็จ
ตั้งค่า Mail_Object = Nothing
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีฮับ
Kutools สำหรับ Excel's ส่งอีเมลสามารถช่วยคุณแก้ปัญหาได้ โปรดกำหนดเงื่อนไขตามภาพหน้าจอต่อไปนี้:
ด้วยคุณสมบัตินี้ คุณยังสามารถใช้คุณสมบัติ CC, BCC และคุณสามารถแทรกไฟล์แนบหลายไฟล์ได้เช่นกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีผู้ดูแลระบบ


apakah metode ini bisa di lakukan pada word 2007 ไฟล์ soalnya saya coba lakukan di pdf nya tdk terkirim .. terimakasih
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ด้วยเหตุผลบางอย่างรหัสนี้มีไว้เพื่อส่งอีเมลอื่น ๆ ในรายการ มีเหตุผลอะไรที่จะไม่ส่งทีละอัน? ฉันคัดลอกรหัสที่อยู่ด้านบนโดยตรงและไม่ได้เปลี่ยนแปลงอะไรเลย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัส VBA ใช้งานได้ดี ขอบคุณ แต่จะเพิ่ม Cc ได้อย่างไร ฉันพยายามแล้วล้มเหลว...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัส VBA ใช้งานได้ดี ขอบคุณ แต่จะเพิ่ม Cc ได้อย่างไร ฉันลองด้วย:


Dim xCc เป็นสตริง
แล้วก็
xCc = xRg.Cells(i, 9) (ที่อยู่ในคอลัมน์ที่ 9)


และล้มเหลว...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณเจน

สำหรับการแก้ปัญหาของคุณ โปรดใช้รหัสด้านล่าง: (หมายเหตุ: คุณควรเพิ่มคอลัมน์ CC ในคอลัมน์ C)

#ถ้า VBA7 และ Win64 แล้ว
ประกาศฟังก์ชัน PtrSafe แบบส่วนตัว ShellExecute Lib "shell32.dll" นามแฝง "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile เป็นสตริง, ByVal lpParameters เป็นสตริง, ByVal lpDirectory เป็นสตริง, _
ByVal nShowCmd ตราบใดที่) ตราบใดที่ LongPtr
#อื่น
ฟังก์ชั่นการประกาศส่วนตัว ShellExecute Lib "shell32.dll" นามแฝง "ShellExecuteA" ( _
ByVal hwnd ตราบใดที่ ByVal lpOperation เป็นสตริง _
ByVal lpFile เป็นสตริง, ByVal lpParameters เป็นสตริง, ByVal lpDirectory เป็นสตริง, _
ByVal nShowCmd ตราบใดที่) ตราบใดที่
#จบถ้า
ส่งย่อยอีเมล์()
Dim xEmail เป็นสตริง
Dim xSubj เป็นสตริง
Dim xMsg เป็นสตริง
Dim xURL เป็นสตริง
Dim ฉันเป็นจำนวนเต็ม
Dim k As ดับเบิ้ล
Dim xCell เป็นช่วง
Dim xRg เป็นช่วง
Dim xTxt เป็นสตริง
Dim xCC เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("กรุณาเลือกช่วงข้อมูล:", "Kutools for Excel", xTxt, , , , , 8)
ถ้า xRg ไม่มีอะไร ให้ออกจาก Sub
ถ้า xRg.Columns.Count <> 4 แล้ว
MsgBox " ข้อผิดพลาดรูปแบบภูมิภาค โปรดตรวจสอบ", , "Kutools for Excel"
ออกจาก Sub
End If
สำหรับผม = 1 ถึง xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells(i, 3)
xSubj = "รหัสการลงทะเบียนของคุณ"
xMsg = ""
xMsg = xMsg & "เรียน" & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & " นี่คือรหัสลงทะเบียนของคุณ "
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & "โปรดลองใช้งาน และดีใจที่ได้รับคำติชมของคุณ!" & vbCrLf
xMsg = xMsg & "สกายยัง"
xSubj = Application.WorksheetFunction.Substitute(xSubj, " , "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " , "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "& subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (ตอนนี้ + TimeValue("0:00:02"))
Application.SendKeys "%s"
ต่อไป
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้รหัส VBA ดังกล่าวภายใต้ "ส่งอีเมลมวลส่วนบุคคลไปยังรายการจาก Excel ด้วยรหัส VBA" ฉันต้องการทราบว่าฉันสามารถส่งอีเมลไปยังบุคคลที่ต้องการแจ้งตาม excel ที่แจ้งให้ฉันส่งการแจ้งเตือนไปยังผู้ที่มีสัญญาที่กำลังจะหมดอายุหรือไม่ ฉันไม่สามารถให้ excel ส่งอีเมลออกไปได้ และฉันรู้ดีว่าเป็นเพราะตัวโค้ดเอง ใครก็ได้โปรดช่วยฉันแก้ไขปัญหานี้ได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการส่งอีเมลที่มีหัวเรื่องเฉพาะ ฉันจะทำอย่างไรกับ VBA นี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน!

ฉันมีรายชื่ออีเมลในแผ่นงานหนึ่ง & ฉบับร่างอีเมลในอีกแผ่นหนึ่ง
ฉันต้องการรหัสเพื่อส่งแบบร่างอีเมลโดยอัตโนมัติจากชีต 2 ถึงสมาชิกทุกๆ 5 คนในรายการที่ให้ไว้ในชีต 1
เมื่อส่ง 5 ตัวแรกแล้ว โค้ดควรแท็กเป็น "ส่งแล้ว" ในคอลัมน์เฉพาะใหม่ จากนั้นรอ 60 วินาทีก่อนที่จะส่งอีเมล 5 ชุดถัดไป
รหัสควรทำงานจนกว่าจะสิ้นสุดรายการทั้งหมด

รหัสสามารถใช้ Outlook เพื่อส่งอีเมลจากโปรไฟล์เริ่มต้นใน Outlook

กรุณาช่วย.

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

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

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