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

วิธีส่งอีเมลผ่าน Outlook เมื่อบันทึกสมุดงานใน Excel

บทความนี้พูดถึงการส่งอีเมลผ่าน Outlook เมื่อบันทึกสมุดงานเฉพาะใน Excel โปรดทำตามที่บทแนะนำแสดง

ส่งอีเมลผ่าน Outlook เมื่อบันทึกสมุดงานด้วยรหัส VBA


ส่งอีเมลผ่าน Outlook เมื่อบันทึกสมุดงานด้วยรหัส VBA

สำหรับการส่งอีเมลผ่าน Outlook เมื่อบันทึกเวิร์กบุ๊กใน Excel โปรดดำเนินการดังนี้

1. โปรดบันทึกสมุดงานเป็นสมุดงานที่เปิดใช้งานแมโคร Excel ในตอนแรก คลิก เนื้อไม่มีมัน > บันทึกเป็น. ใน บันทึกเป็น กล่องโต้ตอบเลือกโฟลเดอร์ที่จะบันทึกสมุดงานตั้งชื่อในกล่องชื่อไฟล์เลือก สมุดงานที่เปิดใช้งานแมโคร Excel จาก บันทึกเป็นชนิด รายการแบบหล่นลงจากนั้นคลิกที่ ลด ปุ่ม. ดูภาพหน้าจอ:

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดดับเบิลคลิก สมุดงานนี้ ในแถบด้านซ้ายจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ สมุดงานนี้ หน้าต่างรหัส ดูภาพหน้าจอ:

รหัส VBA: ส่งอีเมลเมื่อบันทึกสมุดงาน

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

หมายเหตุ: โปรดเปลี่ยนไฟล์ ที่อยู่อีเมล ด้วยที่อยู่อีเมลของผู้รับในบรรทัด . ถึง = "ที่อยู่อีเมล"และ เปลี่ยนฟิลด์ Cc หัวเรื่องและเนื้อหาในรหัส VBA ตามที่คุณต้องการ

3 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

หมายเหตุ: รหัส VBA จะใช้งานได้ก็ต่อเมื่อคุณใช้ 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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (17)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีทำให้การแจ้งเตือนทางอีเมลเป็นอัตโนมัติใน VBA ตามช่วงวันที่ โดยไม่ต้องเห็นป๊อปอัปเพื่อขออนุญาตด้านความปลอดภัยเพื่อให้ VBA ส่งอีเมลได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
กราเซียส ที่ปรึกษา: utilizando esta misma rutina, como podría enviar el correo a un correo específico dependiendo el valor de otra celda?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียนทุกท่าน ผมอยากถามวิธีการแนบลิงค์ที่ใช้งานได้กับบางโฟลเดอร์บนเซิร์ฟเวอร์ ถ้าฉันวางลิงค์ มันจะปรากฏในสมุดงานเหมือนกับข้อความธรรมดา ดังนั้นจึงใช้งานไม่ได้ในอีเมลที่ได้รับ ทำอย่างไร แปลงเป็นลิงค์ให้คนรับคลิกได้ไหม ?
ฉันต้องการใช้วิธีนี้แทนการส่งไฟล์ excel ที่แนบมา
ขอบคุณสำหรับคำแนะนำ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีโรเบิร์ต,
ขออภัย ไม่สามารถช่วยในเรื่องนี้ ยินดีที่จะโพสต์คำถามใดๆ เกี่ยวกับ Excel ในฟอรัมของเรา: https://www.extendoffice.com/forum.html. คุณจะได้รับการสนับสนุน Excel เพิ่มเติมจากแฟน ๆ มืออาชีพหรือแฟน ๆ ของ Excel คนอื่นๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใส่สิ่งนี้ในเนื้อหาของอีเมลและมันใช้งานได้สำหรับฉัน ...
"ไฟล์:///Z:\dir1\dir2\dir3\Test1.xlsm"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี บทความดี! สิ่งหนึ่งที่พยายามทำให้สำเร็จคือแนบสถานะปัจจุบันของเวิร์กบุ๊กกับอีเมล

ในขณะนี้ จะส่งเฉพาะสถานะดั้งเดิมของไฟล์และไม่รวมการเปลี่ยนแปลงใดๆ ที่ผู้ใช้จะทำ

แนวคิดใดเกี่ยวกับวิธีการใช้งานสิ่งนี้โดยใช้มาโคร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคริส,
รหัสได้รับการอัปเดตพร้อมแก้ไขปัญหาแล้ว โปรดลอง ขอบคุณสำหรับความคิดเห็นของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคริส,

ฉันมีโอกาสเจอปัญหาเดียวกัน
ปัจจุบันมีการใช้รหัสในโมดูล "ก่อนบันทึก"
ซึ่งหมายความว่าอีเมลจะส่งสเปรดชีตที่บันทึกไว้ก่อน

มีโมดูลอื่น "บันทึกภายหลัง"
ฉันใช้รหัสในโมดูลนี้และใช้งานได้อย่างมีเสน่ห์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้จะได้รับการจัดการอย่างไรสำหรับเอกสาร Office 365 เป็นการบันทึกโดยอัตโนมัติ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีให้อีเมลอัตโนมัติเข้ารหัสอัตโนมัติหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีไมค์
ขออภัยไม่สามารถช่วยแก้ปัญหานี้ได้ ขอบคุณสำหรับความคิดเห็นของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! ขอบคุณมากสำหรับแนวทางนี้ :-) ฉันต้องการทำอะไรเพิ่มเติมในรหัสนี้ - ส่งอีเมลตามประเทศต่างๆ หมายความว่าฉันต้องสร้างคำสั่งด้วย if และ select ใช่ไหม ฉันได้ลบไฟล์แนบออกจากอีเมลแล้ว ฉันต้องการเพิ่มลิงก์พร้อมพาธลงในโฟลเดอร์แทน แต่เมื่อแมโครรัน คำสั่งไม่ถูกต้อง :-(
ฉันขอขอบคุณที่ช่วยแต่ละวิธีเพิ่มที่นั่น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี - ฉันจะรวมข้อมูลเซลล์ในช่อง "สำเนา" ของอีเมลได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเบรนท์
สมมติว่าคุณต้องการรวมค่าในเซลล์ a7 ในช่อง "cc" ของอีเมล โปรดลองใช้ VBA ด้านล่าง

สมุดงานย่อยส่วนตัว_AfterSave(ByVal Success As Boolean)

'ปรับปรุงโดย Extendoffice 20200628

Dim xOutApp เป็นวัตถุ

Dim xMailItem เป็นวัตถุ

Dim xName เป็นสตริง

เกี่ยวกับข้อผิดพลาดต่อไป

ตั้งค่า xOutApp = CreateObject("Outlook.Application")

ตั้งค่า xMailItem = xOutApp.CreateItem(0)

xname = activeworkbook.fullName

ด้วย xMailItem

. ถึง = "ที่อยู่อีเมล"

.CC = ช่วง ("a7") .Value


.Subject = "บันทึกสมุดงานแล้ว"

.Body = "สวัสดี" & Chr(13) & Chr(13) & "ไฟล์ได้รับการอัปเดตแล้ว"

.attachments.add xname

.แสดง

'.ส่ง

จบด้วย

ตั้งค่า xMailItem = Nothing

ตั้งค่า xOutApp = Nothing

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

ขอบคุณมากสำหรับการสนับสนุน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีฟลอริน
ไม่เข้าใจประเด็นของคุณ ชื่อผู้ใช้ของคุณหมายถึงอะไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคริสตัล ขอขอบคุณสำหรับการตอบกลับของคุณ usernane เป็นสภาพแวดล้อมของ usernane และฉันได้ทำไปแล้ว ฉันใช้ฟังก์ชัน if และ exit sub
ขอบคุณมาก
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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