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

บางทีคุณอาจสร้างและแก้ไขรายงานในสมุดงาน Excel อยู่เสมอหลังจากเสร็จสิ้นคุณจะต้องส่งรายงานที่บันทึกไว้ปัจจุบันไปยังผู้จัดการแผนกของคุณโดยเร็ว คุณจะส่งสมุดงานปัจจุบันทั้งหมดของคุณไปยังบุคคลที่ระบุโดยไม่ต้องเปิด Outlook จาก Excel ได้อย่างไร

ส่งสมุดงานปัจจุบันผ่าน Outlook จาก Excel ด้วยคำสั่ง Save & Send

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

ส่งสมุดงานปัจจุบันผ่าน Outlook จาก Excel ด้วยคำสั่ง Save & Send

ด้วยสิ่งนี้ บันทึกและส่ง ใน Excel คุณสามารถส่งสมุดงานทั้งหมดเป็นไฟล์แนบเป็นไฟล์ PDF เป็นไฟล์ XPS หรือ Internet Fax ผ่าน Outlook ได้อย่างรวดเร็ว คุณสามารถทำได้ดังนี้:

1. เปิดสมุดงานที่คุณต้องการส่ง

2 คลิก เนื้อไม่มีมัน > บันทึกและส่ง > ส่งโดยใช้อีเมล ใน Excel 2010 ดูภาพหน้าจอ:

เคล็ดลับ: หากคุณกำลังใช้ Excel 2007 โปรดคลิก ปุ่ม Office > ส่งดูภาพหน้าจอ:

ใน Excel 2013 โปรดคลิก เนื้อไม่มีมัน > Share > อีเมลดูภาพหน้าจอ:

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

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

หมายเหตุ:

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

2. หลังจากส่งสมุดงานแล้วคุณสามารถไปที่ Outlook เพื่อตรวจสอบว่าส่งอีเมลสำเร็จหรือไม่

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

คุณยังสามารถส่งสมุดงานปัจจุบันเป็นไฟล์แนบจาก Excel ด้วยรหัส VBA ต่อไปนี้ได้โปรดทำตามขั้นตอนต่อไปนี้:

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

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

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

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

Sub SendWorkBook()
'Update 20131209
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

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

• .ถึง = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .ubject = "คุณลักษณะ kte"
• .Body = "สวัสดีโปรดตรวจสอบและอ่านเอกสารนี้ขอบคุณ"

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

หมายเหตุ:

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

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

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

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

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