如何通過Outlook從Excel發送當前工作簿？

也許您總是在Excel工作簿中製作和修改報告，完成後，您需要盡快將當前保存的報告發送給部門經理。 您如何在不從Excel打開Outlook的情況下快速將當前的整個工作簿發送給特定的人？

使用“保存並發送”命令從Excel通過Outlook發送當前工作簿

使用VBA代碼通過Outlook從Excel發送當前工作簿作為附件

使用“保存並發送”命令從Excel通過Outlook發送當前工作簿

有了這個 保存並發送 在Excel中，您可以通過Outlook快速將整個工作簿作為附件，PDF文件，XPS文件或Internet傳真發送。 您可以這樣做：

1。 打開您要發送的工作簿。

2。 點擊 文件 > 保存並發送 > 使用電子郵件發送 在Excel 2010中，請參見屏幕截圖：

更多竅門：如果您使用的是Excel 2007，請單擊 辦公按鈕 > 發送，請參見屏幕截圖：

在Excel 2013中，請點擊 文件 > 分享到 > 電郵，請參見屏幕截圖：

3。 然後從中選擇一種要發送Excel的格式 使用電子郵件發送 部分，在這種情況下，我單擊 作為附件發送 圖標按鈕，請參見屏幕截圖：

4。 然後會出現一個Outlook編輯窗口，在 至 Cc 文本框，然後在 主題 框，您也可以在“簡介”框中輸入一些消息，請參見屏幕截圖：

注意：

1.僅當使用Outlook作為郵件程序時，此方法才有效。

2.發送工作簿後，您可以轉到Outlook檢查電子郵件是否已成功發送。

使用VBA代碼通過Outlook從Excel發送當前工作簿作為附件

在這裡，您還可以使用以下VBA代碼將當前工作簿作為附件從Excel發送出去，請執行以下步驟：

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

備註：在上面的代碼中，您可以根據自己的需要更改以下信息。

• .to =“skyyang@extendoffice.com”
• .CC =“”
• .BCC =“”
• .Subject =“ KTE功能”
• .Body =“您好，請閱讀並閱讀本文檔，謝謝。”

4。 然後點擊 F5 鍵運行此代碼，然後會彈出一個提示框，單擊 讓，並且該工作簿已發送出去。

注意：

1.僅當使用Outlook作為郵件程序時，此代碼才可用。

2.發送工作簿後，您可以轉到Outlook以確保已成功發送電子郵件。

相關文章：

如何僅通過Excel從Outlook發送工作表？

如何通過Excel從Outlook發送/通過電子郵件發送單元格範圍？