จะส่งอีเมลได้อย่างไรหากคลิกปุ่มใน Excel
สมมติว่าคุณต้องส่งอีเมลผ่าน Outlook โดยคลิกปุ่มในแผ่นงาน Excel คุณทำได้อย่างไร? บทความนี้จะแนะนำวิธีการ VBA เพื่อให้บรรลุรายละเอียด
ส่งอีเมลหากคลิกปุ่มด้วยรหัส VBA
ส่งอีเมลหากคลิกปุ่มด้วยรหัส VBA
โปรดทำดังนี้เพื่อส่งอีเมลผ่าน Outlook หากมีการคลิกปุ่มคำสั่งในสมุดงาน Excel
1. แทรกปุ่มคำสั่งในแผ่นงานของคุณโดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่ง (ActiveX Control). ดูภาพหน้าจอ:
2. คลิกขวาที่ปุ่มคำสั่งที่แทรกจากนั้นคลิก ดูรหัส จากเมนูคลิกขวาที่ด้านล่างภาพหน้าจอแสดง
3. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดแทนที่รหัสเดิมในหน้าต่างรหัสด้วยสคริปต์ VBA ต่อไปนี้
รหัส VBA: ส่งอีเมลหากคลิกปุ่มใน Excel
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
หมายเหตุ / รายละเอียดเพิ่มเติม:
1). โปรดเปลี่ยนเนื้อหาอีเมลตามที่คุณต้องการในไฟล์ xMailBody บรรทัดในรหัส
2). แทนที่ ที่อยู่อีเมล ด้วยที่อยู่อีเมลของผู้รับในบรรทัด . ถึง = "ที่อยู่อีเมล".
3). ระบุผู้รับสำเนาและสำเนาลับตามที่คุณต้องการ .CC =“” และ .Bcc =“” ส่วน
4). เปลี่ยนหัวเรื่องอีเมลในบรรทัด .Subject = "ทดสอบการส่งอีเมลโดยคลิกปุ่ม".
4 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
5. ปิดโหมดออกแบบโดยคลิก ผู้พัฒนา > โหมดการออกแบบ. ดูภาพหน้าจอ:
จากนี้ไปทุกครั้งที่คุณคลิกที่ปุ่มคำสั่งอีเมลจะถูกสร้างขึ้นโดยอัตโนมัติโดยมีผู้รับหัวเรื่องและเนื้อหาที่ระบุ กรุณาส่งอีเมลโดยคลิกที่ ส่ง ปุ่ม
หมายเหตุ: รหัส VBA จะใช้งานได้ก็ต่อเมื่อคุณใช้ Outlook เป็นโปรแกรมอีเมลของคุณ
ส่งอีเมลผ่าน Outlook ได้อย่างง่ายดายตามช่องของรายชื่อผู้รับจดหมายที่สร้างขึ้นใน Excel:
พื้นที่ ส่งอีเมลล์ ประโยชน์ของ Kutools สำหรับ Excel ช่วยในการส่งอีเมลผ่าน Outlook ตามช่องของรายชื่อผู้รับจดหมายที่สร้างขึ้นใน Excel
ดาวน์โหลดและทดลองใช้ทันที! (เส้นทางฟรี 30 วัน)
บทความที่เกี่ยวข้อง:
- วิธีส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ใน Excel
- วิธีส่งอีเมลผ่าน Outlook เมื่อบันทึกสมุดงานใน Excel
- จะส่งอีเมลได้อย่างไรหากมีการแก้ไขเซลล์บางเซลล์ใน Excel
- จะส่งอีเมลได้อย่างไรหากตรงตามวันที่ครบกำหนดใน Excel
- วิธีส่งอีเมลเตือนความจำหรือการแจ้งเตือนหากมีการอัปเดตสมุดงานใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!