วิธีส่งแผ่นงานผ่าน Outlook จาก Excel เท่านั้น

ถ้าคุณต้องการส่งอีเมลแผ่นงานเดียวจากสมุดงานใน Excel ผ่าน Outlook คุณสามารถส่งแผ่นงานเป็นไฟล์แนบเป็นเนื้อหาเนื้อหาหรือเป็นไฟล์ PDF แต่มีวิธีที่เร็วกว่าสำหรับคุณในการจัดการกับปัญหานี้ใน Excel หรือไม่?

ส่งแผ่นงานเดียวเป็นเนื้อหาจาก Excel ด้วยคำสั่ง Send to Mail Recipient

ส่งแผ่นงานเดียวเป็นไฟล์แนบจาก Excel พร้อมรหัส VBA

ส่งแผ่นงานเดียวเป็นไฟล์ PDF จาก Excel พร้อมรหัส VBA

ส่งแผ่นงานเดียวเป็นเนื้อหาจาก Excel ด้วยคำสั่ง Send to Mail Recipient

Excel สนับสนุนให้เราส่งอีเมลถึงแผ่นงานที่ใช้งานเป็นเนื้อหาเนื้อหาโดยใช้คำสั่ง Send to Mail Recipient คุณสามารถทำได้ดังนี้:

ถ้าคุณใช้ Excel 2007, 2010 หรือ 2013 คุณต้องเพิ่มสิ่งนี้ ส่งไปยังผู้รับจดหมาย คำสั่งไปที่ แถบเครื่องมือด่วน ก่อน

1. คลิกไอคอนของไฟล์ ปรับแต่งแถบเครื่องมือด่วนและเลือก คำสั่งเพิ่มเติมดูภาพหน้าจอ:

2. และใน ตัวเลือก Excel ให้เลือก คำสั่งไม่อยู่ใน Ribbon ใน เลือกคำสั่งจาก รายการแบบหล่นลงจากนั้นเลือก ส่งไปยังผู้รับจดหมาย แล้วคลิก เพิ่ม >> เพื่อเพิ่มคำสั่งนี้ในคลิกสุดท้าย OK เพื่อบันทึกการตั้งค่านี้ ดูภาพหน้าจอ:

3. โครงการ ส่งไปยังผู้รับจดหมาย แทรกคำสั่งลงในไฟล์ แถบเครื่องมือด่วนดูภาพหน้าจอ:

4. จากนั้นคลิกที่นี่ ส่งไปยังผู้รับจดหมาย ปุ่มไอคอนและกล่องพร้อมต์จะปรากฏขึ้นในไฟล์ E-mail กล่องข้อความให้เลือก ส่งแผ่นงานปัจจุบันเป็นเนื้อหาข้อความและคลิก OK. ดูภาพหน้าจอ:

5. และกล่องแก้ไขอีเมลจะแสดงเหนือข้อมูลในแผ่นงานคุณสามารถป้อนผู้รับหัวเรื่องและบทนำลงในกล่องข้อความที่เกี่ยวข้องได้ ดูภาพหน้าจอ:

6. จากนั้นคลิก ส่งชีนี้t เพื่อส่งแผ่นงานที่ใช้งานอยู่นี้เป็นเนื้อหาข้อความถึงบุคคลของคุณ

ปลดล็อก Excel Magic ด้วย Kutools AI

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

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

ส่งแผ่นงานเดียวเป็นไฟล์แนบจาก Excel พร้อมรหัส VBA

หากคุณต้องการส่งอีเมลถึงแผ่นงานที่ใช้งานอยู่เป็นไฟล์แนบรหัส VBA ต่อไปนี้สามารถช่วยคุณได้

1. เปิดใช้งานแผ่นงานของคุณที่คุณต้องการส่ง

2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ส่งแผ่นงานปัจจุบันเป็นไฟล์แนบจาก Excel

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "This email address is being protected from spambots. You need JavaScript enabled to view it."
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนข้อมูลต่อไปนี้ตามความต้องการของคุณเอง

• .ถึง = "อีเมลนี้จะถูกป้องกันจากสแปมบอท แต่คุณต้องเปิดการใช้งานจาวาสคริ"
• .CC = ""
• .BCC = ""
• .ubject = "คุณลักษณะ kte"
• .Body = "โปรดตรวจสอบและอ่านเอกสารนี้"

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

ส่งแผ่นงานเดียวเป็นไฟล์ PDF จาก Excel พร้อมรหัส VBA

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

1. เปิดใช้งานแผ่นงานของคุณที่คุณต้องการส่ง

2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ส่งแผ่นงานปัจจุบันเป็นไฟล์ PDF จาก Excel

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "This email address is being protected from spambots. You need JavaScript enabled to view it."
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนข้อมูลต่อไปนี้ได้ตามต้องการ

• .ถึง = "อีเมลนี้จะถูกป้องกันจากสแปมบอท แต่คุณต้องเปิดการใช้งานจาวาสคริ"
• .CC = ""
• .BCC = ""
• .ubject = "คุณลักษณะ kte"
• .Body = "โปรดตรวจสอบและอ่านเอกสารนี้"

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

หมายเหตุ:

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

2. หลังจากส่งแผ่นงานปัจจุบันคุณสามารถไปที่ Outlook ของคุณเพื่อให้แน่ใจว่าส่งอีเมลเรียบร้อยแล้ว

สร้างรายชื่อผู้รับจดหมายจากนั้นส่งอีเมล

โครงการ Kutools สำหรับ Excel's สร้างรายชื่อผู้รับจดหมาย และ ส่ง อีเมล โปรแกรมอรรถประโยชน์สามารถสร้างรายชื่อส่งเมลในแผ่นงานได้อย่างรวดเร็วจากนั้นส่งเรื่องเดียวกันเนื้อหาเดียวกันและไฟล์แนบเดียวกันไปยังที่อยู่อีเมลหลายแห่ง

ไปที่ดาวน์โหลด

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

วิธีส่งสมุดงานปัจจุบันผ่าน Outlook จาก Excel

วิธีการส่ง / อีเมลช่วงเซลล์ผ่าน Outlook จาก Excel