การใช้สคริปต์ VBA ใน Excel ไม่จำเป็นต้องมีความรู้ด้านการเขียนโปรแกรม VBA ช่วยให้คุณสามารถทำงานขั้นสูงมากมายเช่นการสร้างรายงานสเปรดชีตที่มีข้อมูลพีซีของคุณทั้งหมดส่งอีเมลโดยตรงจากสเปรดชีต ...
ในการส่งอีเมลจากMicrosoft Excelต้องใช้สคริปต์ง่ายๆเพียงไม่กี่ขั้นตอน อย่ากลัวที่จะเพิ่มคุณสมบัตินี้ลงในสเปรดชีตของคุณหากคุณต้องการใช้ประโยชน์จากฟังก์ชันการทำงานของซอฟต์แวร์สำนักงาน Excel ของคุณจริงๆ
มีสาเหตุหลายประการที่คุณอาจต้องการส่งอีเมลจาก Microsoft Excel โดยตรง ตัวอย่าง: พนักงานของคุณอัปเดตเอกสารและสเปรดชีตทุกสัปดาห์และคุณต้องการรับการแจ้งเตือนทางอีเมลเมื่อการดำเนินการเสร็จสิ้นหรือบางครั้งคุณต้องการส่งอีเมลถึงผู้ติดต่อทั้งหมดในสเปรดชีตเดียวกัน ที่…
คุณอาจคิดว่าการใช้สคริปต์ในการส่งอีเมลจาก Excel นั้นซับซ้อน แต่ความจริงแล้วมันง่ายมาก บทความนี้จะแนะนำให้คุณใช้ประโยชน์จากคุณลักษณะที่มีมานานแล้วพร้อมใช้งานใน Excel VBA ที่เรียกว่าการทำงานร่วมกันข้อมูลวัตถุ (CDO)
CDO เป็นส่วนประกอบการส่งข้อความที่ใช้ใน Windows ตั้งแต่รุ่นแรก ๆ เคยเรียกว่า CDONTS หลังจาก Windows 2000 และ XP ออกมา "CDO สำหรับ Windows 2000" ก็เข้ามาแทนที่ ส่วนประกอบนี้รวมอยู่ในการติดตั้ง VBA ในMicrosoft Wordหรือ Excel และพร้อมใช้งานได้ตลอดเวลา
การใช้ส่วนประกอบนี้เพื่อส่งอีเมลในผลิตภัณฑ์ Windows ด้วย VBA นั้นง่ายมาก ตัวอย่างบทความนี้ใช้ CDO ใน Excel เพื่อส่งอีเมลที่มีผลลัพธ์ในเซลล์
ครั้งแรกไปที่Excel สำหรับนักพัฒนาแท็บ> คลิกแทรกในการควบคุมแผงแล้วเลือกปุ่มคำสั่ง
ลากลงในแผ่นงานนี้จากนั้นสร้างแมโครใหม่โดยคลิกแมโครในริบบิ้นสำหรับนักพัฒนา
เมื่อคุณคลิกปุ่มสร้างมันจะเปิดตัวแก้ไข VBA
เพิ่มการอ้างอิงไปยังไลบรารี CDO โดยไปที่Tools> Referencesในเอดิเตอร์
เลื่อนลงรายการจนกว่าคุณจะเห็นMicrosoft CDO สำหรับ Windows 2000 ห้องสมุด ตรวจสอบช่องทำเครื่องหมายและคลิกตกลง
เมื่อคุณคลิกตกลงจดชื่อของฟังก์ชันที่คุณวางสคริปต์ตามที่คุณต้องการในภายหลัง
ในการดำเนินการขั้นแรกคุณต้องสร้างออบเจ็กต์ที่เกี่ยวข้องกับอีเมลและตั้งค่าฟิลด์การส่งอีเมลที่จำเป็นทั้งหมด
โปรดจำไว้ว่าอาจมีหลายช่องหรือไม่มีก็ได้ แต่ต้องใช้จากและถึง
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
strSubject = "ผลลัพธ์จากสเปรดชีต Excel"
strFrom = "[email protected]"
strTo = "[email protected]"
strCc = ""
strBcc = ""
strBody = "ผลรวมสำหรับไตรมาสนี้คือ:" & Str (Sheet1 . เซลล์ (2, 1))
สิ่งที่น่าสนใจคือคุณสามารถสร้างสตริงที่ต้องการเพื่อปรับแต่งข้อความอีเมลทั้งหมดและกำหนดตัวแปร strBody
ผสานองค์ประกอบของเนื้อหาอีเมลเข้าด้วยกันโดยใช้สตริง&เพื่อแทรกข้อมูลจากสเปรดชีต Microsoft Excel ในอีเมล (ดังที่แสดงด้านบน)
ส่วนถัดไปของโค้ดคือที่ที่คุณกำหนดค่า CDO เพื่อใช้เซิร์ฟเวอร์ SMTP ภายนอกเพื่อส่งอีเมล
ตัวอย่างนี้ไม่ได้ตั้งค่า SSL บน Gmail CDO สามารถแทนที่ SSL ได้ แต่อยู่นอกขอบเขตของบทความนี้ หากคุณจำเป็นต้องใช้ SSL โค้ดขั้นสูงใน Github สามารถช่วยได้
ตั้งค่า CDO_Mail = CreateObject ("CDO.Message")
บนข้อผิดพลาด GoTo Error_Handling
ตั้งค่า CDO_Config = CreateObject ("CDO.Configuration")
CDO_Config.Load -1
ตั้งค่า SMTP_Config = CDO_Config.Fields
ด้วย SMTP_Config .Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp. gmail.com "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
.Item (" http://schemas.microsoft.com/cdo/configuration/sendusername ") =" [email protected] ".Item
(" http://schemas.microsoft.com/cdo/configuration/sendpassword ") =" รหัสผ่าน "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = True.
Update
End With
ด้วย CDO_Mail
Set .Configuration = CDO_Config
End With
ตอนนี้คุณได้กำหนดค่าการเชื่อมต่อกับเซิร์ฟเวอร์ SMTP เพื่อส่งอีเมล ทั้งหมดที่คุณต้องทำคือการกรอกข้อมูลลงในช่องที่เหมาะสมสำหรับวัตถุ CDO_Mailและออกส่งคำสั่ง
วิธีการทำมีดังนี้
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom CDO_Mail
To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
ถ้า Err.Description <> "" แล้ว MsgBox Err.Description
ไม่มีป๊อปอัปหรือการแจ้งเตือนความปลอดภัยปรากฏขึ้นเหมือนที่คุณทำตามปกติเมื่อใช้ออบเจ็กต์อีเมล Outlook
CDO เพียงวางส่วนประกอบอีเมลไว้เคียงข้างกันและใช้รายละเอียดการเชื่อมต่อเซิร์ฟเวอร์เพื่อทริกเกอร์การส่งข้อมูล นี่เป็นวิธีที่ง่ายที่สุดในการรวมอีเมลไว้ในสคริปต์ Microsoft Word หรือ Excel VBA
ในการเชื่อมต่อปุ่มคำสั่งกับสคริปต์นี้ให้เข้าไปที่ตัวแก้ไขโค้ดและคลิกSheet1เพื่อดูรหัส VBA ของแผ่นงานนั้น
พิมพ์ชื่อฟังก์ชันที่คุณวางสคริปต์ด้านบน
นี่คือข้อมูลที่คุณได้รับในกล่องจดหมาย
หมายเหตุ : หากคุณได้รับข้อผิดพลาดขนส่งล้มเหลวในการเชื่อมต่อกับเซิร์ฟเวอร์ให้แน่ใจว่าคุณป้อนหมายเลขที่ถูกต้องชื่อผู้ใช้รหัสผ่านเซิร์ฟเวอร์ SMTP และพอร์ตในบรรทัดของรหัสที่ระบุไว้ด้วย SMTP_Config
ปลอดภัยและสะดวกในการส่งอีเมลจาก Excel ด้วยการคลิกปุ่ม หากคุณต้องการใช้คุณสมบัตินี้เป็นประจำคุณสามารถทำให้เป็นอัตโนมัติได้
ในการดำเนินการนี้คุณต้องเปลี่ยนมาโคร ไปที่ Visual Basic Editor คัดลอกและวางโค้ดทั้งหมดที่รวบรวมเข้าด้วยกัน ถัดจากนั้นเลือกThisWorkbookจากโครงการลำดับชั้น
จากช่องแบบเลื่อนลงสองช่องที่ด้านบนสุดของหน้าต่างรหัสให้เลือกสมุดงานแล้วคลิกเปิดจากเมนูแบบเลื่อนลงวิธีการ วางสคริปต์อีเมลข้างต้นลงในPrivate Sub Workbook_Open () การดำเนินการนี้จะเรียกใช้แมโครทุกครั้งที่คุณเปิดไฟล์ Excel
ถัดไปเปิดTask Scheduler คุณจะใช้เครื่องมือนี้เพื่อบอกให้ Windows เปิดสเปรดชีตโดยอัตโนมัติตามช่วงเวลาที่กำหนด ในขณะนั้นมาโครของคุณจะเปิดใช้งานและส่งอีเมล
เลือกCreate Basic Task …จากเมนูActionและทำตามคำแนะนำจนกว่าคุณจะไปที่หน้าจอ Action
เลือกเริ่มต้นโปรแกรมและคลิกถัดไป
ใช้เรียกดูปุ่มที่จะหาสถานที่ที่ใช้ Microsoft Excel ในคอมพิวเตอร์ของคุณหรือคัดลอกและวางเส้นทางในโครงการเขต / script
จากนั้นป้อนเส้นทางไปยังเอกสาร Microsoft Excel ของคุณในการเพิ่มข้อโต้แย้งฟิลด์
ทำตามคำแนะนำและกำหนดการที่คุณตั้งไว้จะเสร็จสิ้น
คุณควรทดสอบคุณลักษณะนี้โดยกำหนดเวลาการดำเนินการในสองสามนาทีถัดไปจากนั้นแก้ไขงานหลังจากที่คุณพบว่าใช้งานได้
หมายเหตุ : คุณอาจต้องปรับการตั้งค่าศูนย์ความเชื่อถือเพื่อให้แน่ใจว่ามาโครทำงานได้อย่างถูกต้องดังนี้:
เปิดสเปรดชีตและนำทางไปยังไฟล์> ตัวเลือก> ศูนย์ความเชื่อถือ
ที่นี่คลิกการตั้งค่าศูนย์ความเชื่อถือ บนหน้าจอถัดไปให้เลือกข้อมูลที่ไม่เคยแสดงเกี่ยวกับเนื้อหาที่ถูกบล็อก
Microsoft Excel เป็นเครื่องมือที่ทรงพลังอย่างไม่น่าเชื่อ แต่บางครั้งการเรียนรู้วิธีใช้อาจเป็นเรื่องที่ท้าทายสำหรับหลาย ๆ หากคุณต้องการเชี่ยวชาญซอฟต์แวร์นี้คุณจำเป็นต้องรู้วิธีใช้ VBA มันไม่ง่ายเลย.
อย่างไรก็ตามด้วยประสบการณ์ VBA เล็กน้อยคุณสามารถทำงานพื้นฐานบน Microsoft Excel โดยอัตโนมัติและใช้เวลามากขึ้นในการมุ่งเน้นไปที่งานที่สำคัญกว่า
หวังว่าบทความนี้จะมีประโยชน์กับคุณ โชคดี!
ติดปัญหาแท็บ Planner ใน Microsoft Teams ใช่ไหม? มาดูวิธีแก้ไขปัญหาทีละขั้นตอนสำหรับปัญหาทั่วไป เช่น การโหลดล้มเหลว ข้อผิดพลาดด้านสิทธิ์ และปัญหาการซิงค์ ทำให้แท็บ Planner ของคุณใช้งานได้อย่างราบรื่นใน Teams ได้แล้ววันนี้
กำลังประสบปัญหาเกี่ยวกับการโทรผ่านวิดีโอใน Microsoft Teams อยู่ใช่ไหม? ค้นพบวิธีแก้ไขปัญหาแบบทีละขั้นตอนที่ได้รับการพิสูจน์แล้ว สำหรับปัญหาเกี่ยวกับวิดีโอ ปัญหาเกี่ยวกับกล้อง และอื่นๆ อีกมากมาย กลับมาโทรได้อย่างราบรื่นในไม่กี่นาที!
เบื่อไหมกับปัญหาข้อผิดพลาดของ Microsoft ที่ทำให้ Microsoft Teams ของคุณล่ม? พบกับขั้นตอนการแก้ไขปัญหาข้อผิดพลาดของ Microsoft Teams ทีละขั้นตอน ตั้งแต่การล้างแคชไปจนถึงวิธีแก้ไขขั้นสูง กลับมาทำงานร่วมกันได้อย่างราบรื่นอีกครั้งในวันนี้!
ติดปัญหาการเข้าสู่ระบบ Microsoft Teams บน Chromebook ใช่ไหม? คู่มือการแก้ไขปัญหาฉบับสมบูรณ์ของเราจะช่วยคุณแก้ไขปัญหาได้อย่างรวดเร็วและเชื่อถือได้ ไม่ว่าจะเป็นปัญหาเกี่ยวกับแคช การอัปเดต และอื่นๆ แก้ปัญหาได้ภายในไม่กี่นาทีและเชื่อมต่อได้อย่างต่อเนื่อง!
เบื่อกับข้อผิดพลาดในการดาวน์โหลด Microsoft Teams สำหรับพีซีที่ขัดขวางการทำงานของคุณใช่ไหม? ทำตามคำแนะนำทีละขั้นตอนที่ได้รับการพิสูจน์แล้วของเราเพื่อแก้ไขปัญหาอย่างรวดเร็วและทำให้ Teams ทำงานได้อย่างราบรื่นบนพีซีของคุณในวันนี้
กำลังประสบปัญหาภาพกระตุกขณะใช้งาน Microsoft Teams ผ่าน Wi-Fi อยู่ใช่ไหม? คู่มือแก้ไขปัญหาฉบับสมบูรณ์นี้จะนำเสนอวิธีแก้ไขปัญหาอย่างรวดเร็ว เคล็ดลับขั้นสูง และการปรับแต่ง Wi-Fi เพื่อให้การสนทนาทางวิดีโอของคุณกลับมาคมชัดอีกครั้งในทันที
รู้สึกหงุดหงิดกับการวนลูปของหน้าจอต้อนรับใน Microsoft Teams ใช่ไหม? ลองทำตามขั้นตอนการแก้ไขปัญหาการวนลูปของหน้าจอต้อนรับใน Microsoft Teams ที่เราแนะนำ: ล้างแคช รีเซ็ตแอป และติดตั้งใหม่ กลับมาใช้งานร่วมกันได้อย่างราบรื่นภายในไม่กี่นาที!
รู้สึกหงุดหงิดกับสถานะ "ไม่อยู่" ใน Microsoft Teams ที่ค้างอยู่ใช่ไหม? พบกับสาเหตุหลักๆ เช่น การหมดเวลาการใช้งาน และการตั้งค่าพลังงาน พร้อมวิธีแก้ไขทีละขั้นตอนเพื่อให้กลับมาเป็น "พร้อมใช้งาน" ได้อย่างรวดเร็ว อัปเดตด้วยฟีเจอร์ Teams ล่าสุดแล้ว
รู้สึกหงุดหงิดเพราะปลั๊กอิน Microsoft Teams หายไปจาก Outlook ใช่ไหม? มาดูสาเหตุหลักและวิธีแก้ไขง่ายๆ ทีละขั้นตอน เพื่อให้การใช้งาน Teams และ Outlook กลับมาราบรื่นอีกครั้งโดยไม่ต้องยุ่งยาก ใช้งานได้กับเวอร์ชันล่าสุด!
เบื่อกับปัญหาการเล่นสื่อใน Microsoft Teams ที่ทำให้การประชุมปี 2026 ของคุณเสียบรรยากาศใช่ไหม? ทำตามคำแนะนำทีละขั้นตอนจากผู้เชี่ยวชาญของเราเพื่อแก้ไขปัญหาเสียง วิดีโอ และการแชร์ได้อย่างรวดเร็ว โดยไม่ต้องมีความรู้ด้านเทคนิคใดๆ การทำงานร่วมกันอย่างราบรื่นรอคุณอยู่!
รู้สึกหงุดหงิดกับ Microsoft Teams ที่ทำงานช้าใช่ไหม? ค้นพบสาเหตุที่ Microsoft Teams ทำงานช้า และลองใช้ 10 เคล็ดลับที่ได้รับการพิสูจน์แล้วเหล่านี้เพื่อเพิ่มความเร็วอย่างเห็นได้ชัดในปี 2026 เพื่อการทำงานร่วมกันที่ราบรื่นยิ่งขึ้น
หงุดหงิดกับคำถาม "ปฏิทิน Teams ของฉันอยู่ที่ไหน?" มาแก้ไขปัญหาการซิงค์ใน Microsoft Teams ทีละขั้นตอนกัน กู้คืนมุมมองปฏิทินของคุณและซิงค์ได้อย่างง่ายดาย—เคล็ดลับจากผู้เชี่ยวชาญอยู่ด้านใน!
พบปัญหาข้อผิดพลาดของ Microsoft Teams ในวันนี้ใช่ไหม? คู่มือการแก้ไขปัญหา Microsoft Teams แบบทีละขั้นตอนฉบับนี้จะเปิดเผยวิธีตรวจสอบเบื้องต้นเพื่อแก้ไขปัญหาได้อย่างรวดเร็ว วิธีแก้ไขด่วนสำหรับปัญหาการเชื่อมต่อ แคช และการอัปเดต จะช่วยให้คุณกลับมาแชทได้อย่างราบรื่น
กำลังประสบปัญหาข้อผิดพลาดเกี่ยวกับพร็อกซีใน Microsoft Teams อยู่ใช่ไหม? ค้นพบขั้นตอนการแก้ไขปัญหาข้อผิดพลาดเกี่ยวกับพร็อกซีใน Microsoft Teams ที่ได้รับการพิสูจน์แล้ว ล้างแคช ปรับการตั้งค่าพร็อกซี และกลับมาใช้งานการโทรได้อย่างราบรื่นภายในไม่กี่นาทีด้วยคู่มือจากผู้เชี่ยวชาญของเรา
เรียนรู้วิธีตั้งสถานะ "ไม่อยู่ที่ทำงาน" ใน Microsoft Teams ด้วยขั้นตอนง่ายๆ สำหรับเดสก์ท็อป มือถือ และการซิงค์กับ Outlook รักษาความเป็นมืออาชีพแม้ในขณะอยู่นอกสถานที่ – ตั้งค่าได้อย่างรวดเร็วในไม่กี่นาที!
