メインコンテンツへスキップ

現在のWordファイルを添付してメールを送信するためのボタンを適用するにはどうすればよいですか?

Author: Xiaoyang Last Modified: 2025-05-23

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エディターを保存して閉じます。「開発」タブの「デザインモード」をクリックしてオフにします。これで、コマンドボタンをクリックすると、現在のWord文書が添付されたメールがOutlookで自動的に作成されます。
    An email is created with the current Word document as an attachment
  6. 最後に、Outlookの「送信」ボタンをクリックしてメッセージを送信します。

最高のオフィス生産性ツール

Kutools for Word - Wordの体験を100以上の素晴らしい機能で向上させましょう!

🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ (形式を保持) / スーパー トランスレート (形式を保持) / AI編集 / AI校正...

📘 文書のマスタリー: ページの分割 / 文書の結合 / 様々な形式で選択をエクスポート (PDF/TXT/DOC/HTML...) / 一括PDF変換...

内容の編集: 複数ファイルにわたる一括検索と置換 /すべての画像をリサイズ / 表の転置 / 表をテキストに変換...

🧹 簡単なクリーンアップ:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃 / その他の削除ツールは削除グループへ...

創造的な挿入: 千の区切りを挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 挿入グループでさらに発見...

🔍 精密な選択: 特定のページ / / 図形 / 見出し段落を特定 / より多くの 選択 機能でナビゲーションを強化...

スター強化: 任意の場所に移動 / 繰り返しテキストを自動挿入 / 文書ウィンドウ間を切り替え /11 変換ツール...

Kutools and Kutools Plus tabs on the Word Ribbon
👉これらの機能を試してみませんか?今すぐKutools for Wordをダウンロード!🚀