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

Author Xiaoyang Last modified 2025-08-26

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機能: 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 Office –1回のインストールで5つのパワフルツールが使えます！

Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint を含む

📦5つのツール全てが1つのスイートに | 🔗 Microsoft Officeとシームレスに統合 | ⚡ 保存時間・生産性をすぐにアップ

⬇️ 今すぐダウンロード 🎁 フルスイートを購入 📖 詳細を見る

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

Kutools for Word - 100+ のツールでWordをよりパワフルに

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

無料ダウンロード今すぐ購入 Kutoolsの詳細はこちら

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