Skip to main content

Kutools for Office — 一套工具，五種功能。完成更多工作。

如何應用一個按鈕來發送帶有當前 Word 文件的電子郵件？

Author Xiaoyang Last modified

如果您需要使用 Outlook 從 Word 文件中發送電子郵件並附上當前的 Word 文件，您可以插入一個命令按鈕，點擊一下即可發送郵件，無需手動打開 Outlook。本指南將展示如何快速輕鬆地進行設置。

應用一個按鈕來發送帶有當前 Word 文件的電子郵件

應用一個按鈕來發送帶有當前 Word 文件的電子郵件

請按照以下步驟在您的 Word 文件中完成此任務：

  1. 首先，插入一個命令按鈕。前往「開發工具」>「舊版工具」>「命令按鈕 (ActiveX 控制項)」。

    注意：如果您在功能區中看不到「開發工具」標籤，請訪問：如何在 Word 功能區中顯示「開發工具」標籤。

    Developer tab with Controls group selected, Legacy Tools clicked, and Command Button highlighted
  2. 選取該按鈕，然後在「開發工具」標籤下點擊「屬性」。在屬性窗格中，在「標題」欄位中輸入您希望在按鈕上顯示的文字。
    Properties button on the ribbon and Properties dialog popped up
  3. 關閉屬性窗格。然後右鍵單擊該按鈕並選擇「查看代碼」。
    View Code option on the context menu
  4. 在「Microsoft Visual Basic for Applications」窗口中，將以下代碼粘貼到現有的子程序標籤之間： 
    Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
    .Subject = "Fax-data"
    .Body = "This is a test email."
    .To = "yy@addin99.com"
    .Importance = olImportanceNormal
    .Attachments.Add xDoc.FullName
    .Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
    VBA window with the above code pasted

    注意：您可以根據實際郵件詳細信息更改代碼中的主題、正文內容和收件人郵箱地址。

  5. 保存並關閉 VBA 編輯器。點擊「開發工具」標籤上的「設計模式」以將其關閉。現在，當您點擊命令按鈕時，Outlook 會自動創建一封帶有當前 Word 文件附件的郵件。
    An email is created with the current Word document as an attachment
  6. 最後，點擊 Outlook 中的「發送」按鈕來發送郵件。

最佳辦公效率工具

Kutools for Word -透過超過 100 項卓越功能，提升您的 Word 使用體驗！

🤖 Kutools AI Features：AI Assistant／Real-Time Assistant／Super Polish（保留格式）／Super Translate（保留格式）／AI Redaction／AI Proofread...

📘 文件掌握：分割頁面／文檔合併／區域導出成各種格式（PDF/TXT/DOC/HTML...）／批量轉換為 PDF...

✏ 正文編輯：批量查找與替換多個文件／批量調整所有圖片大小／翻轉表格的行與列／表格轉文本...

🧹 輕鬆清理：快速清除多餘空格／分節符／文字框／超連結／更多清除工具請前往刪除工具組...

➕ 創意插入：插入千位分隔符／複選框／選項按鈕／二維碼／條形碼／批量插入圖片／還有更多精彩功能在插入工具組...

🔍 精確選擇：精確定位特定頁面／表格／形狀／標題段落／使用更多 選擇 功能提升導航效率...

⭐ 亮點增強：導航至任何區域／自動插入重複文字／切換文檔窗口／11 項轉換工具...

🌍 支援40+種語言：可用 Kutools於您偏好語言環境——支援英語、西班牙語、德語、法語、中文以及超過40種語言！

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即體驗這些功能嗎？立即下載 Kutools for Word！🚀
 

✨ Kutools for Office——一次安裝，五大強力工具！

包含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率

最佳辦公效率工具

Kutools for Word - 100+ 款 Word 工具

免費下載 立即購買 深入瞭解 Kutools