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

Author: Xiaoyang Last Modified: 2025-08-06

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

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

Kutools for Word - 100以上の優れた機能でWordの操作をさらに向上！

🤖 Kutools AI Features：AIアシスタント / リアルタイムアシスタント / スーパーポリッシュ（形式を保持） / スーパートランスレート（形式を保持） / AI編集 / AI校正...

📘 文書マスター：ページの分割 / 文書の結合 / 選択範囲を各種形式（PDF／TXT／DOC／HTMLなど）でエクスポート / 一括PDF変換...

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

🧹 簡単クリーン：余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃します。その他の削除ツールは削除グループでご覧いただけます...

➕ クリエイティブ挿入：千位区切りの挿入 / チェックボックスの挿入 / ラジオボタンの挿入 / QRコード / バーコード / 複数画像の挿入 / 他にも挿入グループにて発見...

🔍 高精度選択：特定のページ / 表 / 図形 / 見出し段落をピンポイントで選択。さらに多くの選択機能でナビゲーションを強化...

⭐ スター強化：任意の場所へ移動 / 繰り返しテキストの自動挿入 / 複数文書ウィンドウ間の切替 /11 種類の変換ツール...

🌍 40以上の言語に対応：Kutoolsはお好みの言語でお使いいただけます―英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語をサポート！

Kutools and Kutools Plus tabs on the Word Ribbon

👉これらの機能を体験してみませんか？今すぐKutools for Wordをダウンロード！🚀

無料ダウンロード今すぐ購入 Kutools for Wordについて詳しく見る

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

Kutools for Word - 100+ のWord用ツール

🤖 Kutools AI Features：AIアシスタント / リアルタイムアシスタント / スーパーポリッシュ / スーパートランスレート / AI編集 / AI校正
📘 文書マスター：ページの分割 / 文書の結合 / 一括PDF変換
✏ 内容編集：一括検索と置換 /すべての画像のリサイズ
🧹 簡単クリーン：余分なスペースの削除 / セクション区切りの削除
➕ クリエイティブ挿入：千位区切りの挿入 / チェックボックスの挿入 / QRコードの作成
🌍 40以上の言語に対応：Kutoolsはあなたの言語に対応 ―40以上の言語をサポート！

無料ダウンロード今すぐ購入 Kutoolsについて詳しく見る

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