如何應用按鈕發送帶有當前Word文件的電子郵件?
如果您需要通過Outlook從Word文檔發送電子郵件,並附加當前的Word文件,則可以創建命令按鈕,然後通過單擊此按鈕發送消息而無需打開Outlook。 本文,我將介紹如何快速,輕鬆地處理它。
應用按鈕以發送帶有當前Word文件的電子郵件
請執行以下步驟來解決Word文件中的這項工作:
1。 首先,您應該創建一個命令按鈕,請單擊 開發者 > 舊版工具 > 命令按鈕(ActiveX控件),請參見屏幕截圖:
2。 選擇按鈕,然後單擊 氟化鈉性能 在 開發者 標籤,在 氟化鈉性能 窗格中,將所需的標題文本輸入到 標題 字段,請參見屏幕截圖:
3。 然後,關閉 氟化鈉性能 窗格,現在,右鍵單擊按鈕,然後選擇 查看代碼,請參見屏幕截圖:
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 = ""
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
備註:在上面的代碼中,您應該根據需要更改主題,正文或發送的地址。
5。 然後,保存並關閉此代碼,單擊 設計模式 關閉設計模式。 現在,單擊創建的命令按鈕時,將創建一封電子郵件,其中包含當前的Word文檔,請參見屏幕截圖:
6。 最後,您只需要單擊 送出 按鈕發送此消息。
最佳辦公生產力工具
Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!
🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容 / 重寫文字 / 總結文件 / 查詢資料 基於文檔,全部在Word中
📘 文件掌握: 分頁 / 合併文件 / 以各種格式匯出選擇(PDF/TXT/DOC/HTML...) / 批次轉換為PDF / 將頁面匯出為圖像 / 一次列印多個文件...
✏ 內容編輯: 批量查找和替換 跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字...
🧹 輕鬆清潔: 移開 多餘的空間 / 分節符 / 所有標題 / 文本框 / 超鏈接 / 如需更多拆卸工具,請前往我們的 刪除組...
➕ 創意插入: 插入 千位分隔符 / 複選框 / 單選按鈕 / QR Code / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表格標題 / 多張圖片 / 發現更多 插入組...
🔍 精準選擇:精確定位 特定頁面 / 表 / 形狀 / 標題段落 / 增強導航功能 更多 選擇功能...
⭐ 星級增強: 快速導航至任何位置 / 自動插入重複文字 / 在文檔視窗之間無縫切換 / 11 轉換工具...