如何設定按鈕，以便傳送附帶目前 Word 檔案的電子郵件？
若您需要從 Word 文件透過 Outlook 傳送電子郵件，並附加目前的 Word 檔案，只需插入一個命令按鈕，輕點一下即可自動寄出郵件，無需手動開啟 Outlook。本指南將示範如何快速又輕鬆地完成設定。
設定按鈕以傳送附帶目前 Word 檔案的電子郵件
請依照下列步驟在您的 Word 文件中完成此任務：
- 首先，插入一個命令按鈕：前往「開發人員」>「舊版工具」>「命令按鈕（ActiveX 控制項）」。
注意：如果在功能區中未看到「開發人員」選項卡，請參閱：如何在 Word 功能區中顯示「開發人員」選項卡。
- 選取該按鈕，然後在「開發人員」選項卡中點擊「屬性」。在「屬性」窗格的「標題」欄位中，輸入您希望顯示在按鈕上的文字。
- 關閉「屬性」窗格，然後在該按鈕上按一下滑鼠右鍵，並選擇「檢視程式碼」。
- 在「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 編輯器，並在「開發人員」選項卡上點擊「設計模式」以停用該模式。現在，只要您點擊命令按鈕，Outlook 就會自動建立一封電子郵件，並將目前的 Word 文件附加其中。
- 最後，只需在 Outlook 中點擊「傳送」按鈕，即可輕鬆寄出郵件。
最佳 Office 生產力工具
Kutools for Word——透過超過 100 項卓越功能，全面提升您的 Word 體驗！
🤖KUTOOLS AI 功能：AI 助手/即時助手/超級潤色（保留格式）/超級翻譯（保留格式）/AI 遮擋/AI 校正……
📘 文件掌控力：分割頁面/文檔合併/以多種格式匯出選取內容（PDF/TXT/DOC/HTML……）/批次轉換為 PDF……
✏ 內容編輯：批量查找與替換多個檔案/調整所有圖片大小/翻轉表格列與欄/表格轉文本……
🧹 輕鬆清理：一鍵清除多餘空格、分節符、文字框與超連結！想要更多清除工具？立即前往移除群組……
➕ 創意插入：插入千位分隔符/複選框/選項按鈕/二維碼/條碼/多張圖片/ 更多功能請至插入群組……
🔍 精準選取：精確定位特定頁面/表格/圖形/標題段落/ 透過更多選取功能提升導覽效率……
⭐ 星級增強功能：快速跳轉至任意位置/自動插入重複文字/在文件 Windows 之間切換/11 轉換工具……
🌍 支援 40+ 種語言：使用您熟悉的慣用語言暢享 Kutools！支援英文、西班牙文、德文、法文、中文等 40 多種語言，操作更順手、體驗更流暢！
Office Tab- 為 Office 帶來分頁式介面，讓您的工作更輕鬆
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 與 Project 中啟用分頁式編輯與閱讀體驗。
- 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
- 每天為您減少數百次滑鼠點擊，生產力提升 50%！
✨ Kutools for Office – 一次安裝，五大強大工具！
包含 Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 一套整合 5 項工具 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 保存時間，立即提升生產力