Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • Excel
  • จะส่งอีเมลได้อย่างไรเมื่อผู้รับเปิดไฟล์แนบไฟล์ Excel

จะส่งอีเมลได้อย่างไรเมื่อผู้รับเปิดไฟล์แนบไฟล์ Excel

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

ส่งอีเมลเมื่อผู้รับไฟล์แนบเปิดไฟล์ Excel พร้อมรหัส VBA


ลูกศรสีฟ้าฟองขวา ส่งอีเมลเมื่อผู้รับไฟล์แนบเปิดไฟล์ Excel พร้อมรหัส VBA

ก่อนส่งไฟล์ Excel นี้คุณควรสร้างรหัสดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นดับเบิลคลิก สมุดงานนี้ ภายใต้ โครงการ VBA เพื่อเปิดโมดูลเปล่าจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูล:

รหัส VBA: ส่งอีเมลเมื่อเปิดไฟล์ Excel:

Private Sub Workbook_Open()
'Updateby Extendoffice
    Dim olkObj As Object
    Dim olkEm As Object
    Dim strbody As String
    Set olkObj = CreateObject("Outlook.Application")
    Set olkEm = olkObj.CreateItem(0)
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              ThisWorkbook.Name & vbNewLine & _
              "was opened by" & vbNewLine & _
              Environ("username")
    On Error Resume Next
    With olkEm
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "File opened"
        .Body = strbody
        .Send
    End With
    On Error GoTo 0
    Set olkEm = Nothing
    Set olkObj = Nothing
End Sub

doc ส่งเมื่อเปิดไฟล์ 1

หมายเหตุ: ในรหัสด้านบนคุณควรเปลี่ยนที่อยู่อีเมลเป็นที่อยู่ของคุณเองซึ่งคุณต้องการรับอีเมลแจ้งและเปลี่ยนเรื่องตามความต้องการของคุณ

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

doc ส่งเมื่อเปิดไฟล์ 2

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

doc ส่งเมื่อเปิดไฟล์ 3

หมายเหตุ: วิธีนี้ใช้ได้เฉพาะเมื่อคุณใช้ Outlook เป็นโปรแกรมเมลของคุณ


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

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

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (1)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับรหัสด้านบน ฉันแค่อยากรู้ เมื่อต้องการเพิ่มช่วงที่เลือกของเวิร์กชีตเฉพาะลงในเนื้อหาของอีเมลด้วย ฉันได้ลองใช้วิธีการเลือก sh.range ในรหัสของคุณแล้ว แต่อีเมลก็ดับ แต่ไม่มีช่วง อาจเป็นเพราะฉันกำลังทำอะไรผิดที่นี่หรือพลาดที่จะเพิ่มรหัสเพิ่มเติม
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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