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

จะส่งอีเมลได้อย่างไรหากคลิกปุ่มใน 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เส้นทางฟรีวัน)


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


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (73)
ได้รับคะแนน 3.5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันต้องการส่งข้อมูลจากข้อมูลตารางสาระสำคัญ คุณช่วยได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะเขียนสคริปต์เพื่อที่ว่าเมื่อคุณคลิกปุ่ม มันจะแนบตัวเองไปกับอีเมลดังด้านบน แต่เอาปุ่มออกด้วย เพื่อที่สำเนาของไฟล์ที่กำลังส่งอีเมลไม่มีปุ่มอยู่อีกต่อไป?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ด้านล่าง ".Body = xMailBody" ให้เพิ่มข้อความต่อไปนี้
.Attachments.Add ActiveWorkbook.FullName
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแดนนี่

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

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

สรุปผมอยากทราบว่า

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

คำสั่งย่อยส่วนตัวButton1_Click()
'ปรับปรุงโดย Extendoffice 2017 / 9 / 14
Dim xOutApp เป็นวัตถุ
Dim xOutMail เป็นวัตถุ
Dim xMailBody เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
ตั้งค่า xOutApp = CreateObject("Outlook.Application")
ตั้งค่า xOutMail = xOutApp.CreateItem(0)
ActiveWorkbook บันทึก
xMailBody = "เนื้อหาเนื้อหา" & vbNewLine & vbNewLine & _
"นี่คือบรรทัดที่ 1" & vbNewLine & _
“นี่คือบรรทัดที่ 2”
เกี่ยวกับข้อผิดพลาดต่อไป
ด้วย xOutMail
. ถึง = "ที่อยู่อีเมล"
.CC = ""
.BCC = ""
.Subject = "ทดสอบการส่งอีเมลโดยคลิกปุ่ม"
.Body = xMailBody
.Attachments.Add ActiveWorkbook.FullName
.Display หรือใช้ .Send
จบด้วย
เมื่อเกิดข้อผิดพลาด GoTo 0
ตั้งค่า xOutMail = Nothing
ตั้งค่า xOutApp = Nothing
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะแนบ Active Workbook กับอีเมลได้อย่างไรเมื่อกดปุ่ม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดี,
ด้านล่าง ".Body = xMailBody" ให้เพิ่มข้อความต่อไปนี้
.Attachments.Add ActiveWorkbook.FullName
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Teria como em vez de enviar a planilha, enviar เป็นข้อมูล im imagem?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โดยใช้รหัส VBA นี้ ฉันสามารถอ้างอิงข้อมูลเซลล์ภายในเนื้อหาของอีเมลได้หรือไม่ ตัวอย่างเช่น ฉันจะอ้างอิงค่าของเซลล์ไปยังโค้ดด้านล่างได้อย่างไร

xMailBody = "เนื้อหาเนื้อหา" & vbNewLine & vbNewLine & _
"นี่คือบรรทัดที่ 1" & vbNewLine & _
“นี่คือบรรทัดที่ 2”

นอกจากนี้ โดยใช้รหัส (.TO = "ที่อยู่อีเมล") ฉันจะให้ "ที่อยู่อีเมล" ดึงที่อยู่อีเมลจากเซลล์ในคอลัมน์ข้างๆ ได้อย่างไร


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

xMailBody = "เนื้อหาเนื้อหา" & vbNewLine & vbNewLine & _
"นี่คือบรรทัดที่ 1" & vbNewLine & _
“นี่คือบรรทัดที่ 2”

ขอบคุณ,
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเกล็น
โปรดใช้รหัสต่อไปนี้ ขอบคุณสำหรับความคิดเห็นของคุณ.
xMailBody = [B5]
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะส่งไฮเปอร์ลิงก์ไปยังไฟล์ (อยู่ใน SharePoint) แทนที่จะส่งไฟล์แนบในอีเมล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีลอรี่
ไม่สามารถช่วยคุณได้ ขอบคุณสำหรับความคิดเห็นของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสามารถอ้างอิงค่าในเซลล์ในหัวเรื่องด้วยสตริงได้หรือไม่ รูปแบบบางอย่างของด้านล่าง?

.Subject = "เหตุการณ์ใหม่:" & Target.Address = "$B$38"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีอาบี
โปรดเปลี่ยนรหัสเป็น .Subject = "New Event:" & [B38]
ขอบคุณสำหรับความคิดเห็นของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hi there,
ใครสามารถช่วยฉันเกี่ยวกับข้อกำหนดต่อไปนี้
ฉันมีแผ่นงาน Excel ที่มีรายการดรอปดาวน์สองรายการ

1 drop down list- รายการแผนก

2 รายการแบบหล่นลง- หมวดหมู่

สิ่งที่ฉันต้องการคือเมื่อฉันเลือกแผนกและหมวดหมู่จากรายการ (เช่น หากฉันเลือก "ยอดขาย" ในแผนกและ "รายงานรายเดือน" ในหมวดหมู่)

ฉันต้องการส่งใบงานในเวอร์ชัน PDF ไปยังทีมขายโดยให้หัวข้ออีเมลเป็นรายงานรายเดือน

ถ้าฉันเลือก "การผลิต" จากรายการแผนก อีเมลควรไปที่กลุ่มคนในการผลิต

ฉันซาบซึ้งถ้าคุณสามารถช่วยฉันในเรื่องนี้

ราสิก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณ Rasike
ขออภัยไม่สามารถช่วยคุณในเรื่องนั้นได้ ยินดีต้อนรับสู่การโพสต์คำถามใด ๆ ในฟอรัมของเรา: https://www.extendoffice.com/forum.html เพื่อรับการสนับสนุน Excel เพิ่มเติมจากผู้ใช้ Excel มืออาชีพหรือผู้ชื่นชอบ Excel คนอื่นๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

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

คำสั่งย่อยส่วนตัวButton1_Click()
'ปรับปรุงโดย Extendoffice 2019 / 6 / 26
Dim xOutApp เป็นวัตถุ
Dim xOutMail เป็นวัตถุ
เกี่ยวกับข้อผิดพลาดต่อไป
ตั้งค่า xOutApp = CreateObject("Outlook.Application")
ตั้งค่า xOutMail = xOutApp.CreateItem(0)
ด้วย xOutMail
.Display หรือใช้ .Send
. ถึง = "ที่อยู่อีเมล"
.CC = ""
.BCC = ""
.Subject = "ทดสอบการส่งอีเมลโดยคลิกปุ่ม"
.HTMLBody = "นี่คือการส่งอีเมลทดสอบใน Excel" & "
" & .HTMLBody
'.ส่ง
จบด้วย
เมื่อเกิดข้อผิดพลาด GoTo 0
ตั้งค่า xOutMail = Nothing
ตั้งค่า xOutApp = Nothing
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณต้องเป็นผู้ใช้ excel เมื่อกดปุ่มเพื่อส่งอีเมลหรือไม่? หรือเพียงแค่ผู้ที่ได้รับอีเมลต้องเป็นผู้ใช้ Outlook?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดี,
เนื่องจากต้องส่งอีเมลผ่าน Outlook หลังจากคลิกปุ่มใน Excel คุณต้องติดตั้ง Outlook ในคอมพิวเตอร์ของคุณจึงจะใช้งานได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการส่งแผ่นงาน excel ในอีเมล แต่ระบบไม่ส่ง วิธีเขียนโค้ดส่งเอกสารเป็นอีเมล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีมาร์คัส
รหัส VBA ด้านล่างสามารถช่วยคุณแก้ปัญหาได้

ย่อย SendWorkSheet()
'อัปเดต 20190626
Dim xFile เป็นสตริง
Dim xFormat ตราบเท่าที่
Dim Wb เป็นสมุดงาน
Dim Wb2 เป็นสมุดงาน
Dim FilePath เป็นสตริง
หรี่ชื่อไฟล์เป็นสตริง
หรี่ OutlookApp เป็นวัตถุ
หรี่ OutlookMail เป็นวัตถุ
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
ตั้งค่า Wb = Application.ActiveWorkbook
ActiveSheet.Copy
ตั้งค่า Wb2 = Application.ActiveWorkbook
เลือกกรณี Wb.FileFormat
กรณี xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
กรณี xlOpenXMLWorkbookMacroEnabled:
ถ้า Wb2.HasVBProject แล้ว
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
อื่น
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
กรณี Excel8:
xFile = ".xls"
xFormat = Excel8
กรณี xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
สิ้นสุดการเลือก
FilePath = Environ$("ชั่วคราว") & "\"
ชื่อไฟล์ = Wb.Name & รูปแบบ (ตอนนี้ "dd-mmm-yy h-mm-ss")
ตั้งค่า OutlookApp = CreateObject ("Outlook.Application")
ตั้งค่า OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & ชื่อไฟล์ & xFile, FileFormat:=xFormat
ด้วย OutlookMail
. ถึง = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.ubject = "คุณลักษณะ kte"
.Body = "โปรดตรวจสอบและอ่านเอกสารนี้"
.Attachments.Add Wb2.FullName
.แสดง
'.ส่ง
จบด้วย
Wb2.ปิด
ฆ่า FilePath & ชื่อไฟล์ & xFile
ตั้งค่า OutlookMail = Nothing
ตั้งค่า OutlookApp = Nothing
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะแนบ Active Worksheet กับอีเมลได้อย่างไรเมื่อกดปุ่ม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแกรนท์
โปรดคลิกขวาที่ปุ่มและเลือก ดูโค้ด จากนั้นคัดลอกโค้ดด้านล่างระหว่างบรรทัดย่อยส่วนตัวและส่วนท้าย หวังว่าฉันจะช่วยได้ ขอบคุณสำหรับความคิดเห็นของคุณ

Dim xFile เป็นสตริง
Dim xFormat ตราบเท่าที่
Dim Wb เป็นสมุดงาน
Dim Wb2 เป็นสมุดงาน
Dim FilePath เป็นสตริง
หรี่ชื่อไฟล์เป็นสตริง
หรี่ OutlookApp เป็นวัตถุ
หรี่ OutlookMail เป็นวัตถุ
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
ตั้งค่า Wb = Application.ActiveWorkbook
ActiveSheet.Copy
ตั้งค่า Wb2 = Application.ActiveWorkbook
เลือกกรณี Wb.FileFormat
กรณี xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
กรณี xlOpenXMLWorkbookMacroEnabled:
ถ้า Wb2.HasVBProject แล้ว
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
อื่น
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
กรณี Excel8:
xFile = ".xls"
xFormat = Excel8
กรณี xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
สิ้นสุดการเลือก
FilePath = Environ$("ชั่วคราว") & "\"
ชื่อไฟล์ = Wb.Name & รูปแบบ (ตอนนี้ "dd-mmm-yy h-mm-ss")
ตั้งค่า OutlookApp = CreateObject ("Outlook.Application")
ตั้งค่า OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & ชื่อไฟล์ & xFile, FileFormat:=xFormat
ด้วย OutlookMail
. ถึง = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.ubject = "คุณลักษณะ kte"
.Body = "โปรดตรวจสอบและอ่านเอกสารนี้"
.Attachments.Add Wb2.FullName
.แสดง
'.ส่ง
จบด้วย
Wb2.ปิด
ฆ่า FilePath & ชื่อไฟล์ & xFile
ตั้งค่า OutlookMail = Nothing
ตั้งค่า OutlookApp = Nothing
Application.ScreenUpdating = จริง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

มีวิธีเปลี่ยนชื่อไฟล์เป็นวันที่ปัจจุบันเมื่อแนบไปกับอีเมลหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

ฉันได้ทำงานบนแผ่นงาน แต่ฉันทำไม่เสร็จ ฉันหวังว่าคุณสามารถช่วยฉันได้ :)

ไฟล์ในตัวเองต้องเป็น xltm (เทมเพลต) และต้องแนบชีตด้วยตนเองในเมล

และลายเซ็นอัตโนมัติแล้วฉันจะมีความสุขมาก

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

เป็นไปได้ไหมที่จะส่งแผ่นงานที่ใช้งานโดยกดปุ่มแทนสมุดงานแบบเต็ม?

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

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

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