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

Word 文書から Outlook を使ってメールを送信し、現在の Word ファイルを添付したい場合、手動で Outlook を開くことなく、ワンクリックでメールを送信できるコマンドボタンを挿入できます。このガイドでは、その設定方法を素早く簡単にご説明します。

現在の Word ファイルを添付してメールを送信するボタンを適用する

現在の Word ファイルを添付してメールを送信するボタンを適用する

Word 文書でこのタスクを完了するには、以下の手順に従ってください：

1. まず、コマンドボタンを挿入します。「開発」タブから「旧形式のコントロール」を選び、「コマンドボタン（ActiveX コントロール）」をクリックしてください。

   注：リボンに［開発］タブが表示されていない場合は、次のページをご確認ください：Word リボンで［開発］タブを表示する方法。

   

2. ボタンを選択し、「開発」タブ内の「プロパティ」をクリックします。「プロパティ」ウィンドウの「Caption」フィールドに、ボタンに表示させたいテキストを入力してください。

   

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 = "yy@addin99.com"
       .Importance = olImportanceNormal
       .Attachments.Add xDoc.FullName
       .Display
   End With
   Set xDoc = Nothing
   Set xEmail = Nothing
   Set xOutlookObj = Nothing
   Application.ScreenUpdating = True

   

   注：コード内の件名、本文、受信者のメールアドレスは、実際のメッセージ内容に合わせて自由に変更できます。

5. VBA エディターを保存して閉じます。「開発」タブの「デザインモード」をクリックしてオフにしましょう。これで、コマンドボタンをクリックするだけで、現在の Word 文書が添付されたメールが Outlook で自動的に作成されます。

   

6. 最後に、Outlook の［送信］ボタンをクリックして、メッセージを送信しましょう。

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

Kutools for Word– 300 以上の卓越した機能で、Word 体験をさらにレベルアップ！100 の注目の機能！

🤖KUTOOLS AI の機能：AI アシスタント／リアルタイムアシスタント／スーパーポリッシュ（書式を保持）／スーパートランスレート（書式を保持）／AI 編集／AI 校正…

📘ドキュメントマスタリー：ページ分割／文書の結合／選択範囲をさまざまな形式でエクスポート（PDF/TXT/DOC/HTML など）／一括 PDF 変換…

✏コンテンツ編集：複数ファイルにわたって一括検索と置換／すべての画像をリサイズ／表の転置行と列／表をテキストに変換…

🧹手間いらずのクリーンアップ：余分なスペースを一掃／セクション区切り／テキストボックス／ハイパーリンク／その他の削除ツールについては、削除グループをご覧ください…

➕クリエイティブ挿入：以下を挿入桁区切り記号／チェックボックス／ラジオボタン／QR コード／バーコード／複数の画像／詳細は挿入グループで…

🔍精密選択：特定のページ／表／図形／見出し段落／ナビゲーションを強化するにはその他の選択機能を活用…

⭐注目の拡張機能：任意の場所に移動／繰り返しテキストを自動挿入／ドキュメントWindows 間を切り替え／11 変換ツール…

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

 

無料ダウンロード     今すぐ購入     詳細を見る

 

---

Office Tab– Office にタブ付きインターフェースを導入し、作業を大幅に簡単に

• Word、Excel、PowerPoint、Publisher、Access、Visio、Project でタブを使った編集・閲覧機能を有効にします。
• 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
• 日々の生産性を50％も向上させ、毎日数百回のマウスクリックをカットします！

無料ダウンロード     今すぐ購入     詳細を見る

 

---

✨ Kutools for Office – 1 回のインストールで、5 つの強力なツールがすぐに使える！

含まれるもの：Office Tab Pro・Kutools for Excel・Kutools for Outlook・Kutools for Word・Kutools for PowerPoint

📦 1 つのスイートですべての5 ツールを入手｜🔗 Microsoft Office とシームレスに連携｜⚡ 保存時間して、すぐに生産性を向上

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

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

Kutools for Word– Word 向けの100+ツール

• 🤖KUTOOLS AI の機能：AI アシスタント／リアルタイムアシスタント／スーパーポリッシュ／スーパートランスレート／AI 編集／AI 校正
• 📘ドキュメントマスタリー：ページ分割／文書の結合／一括 PDF 変換
• ✏コンテンツ編集：一括検索と置換／すべての画像をリサイズ
• 🧹手間いらずのクリーンアップ：余分なスペースを削除／セクション区切りを削除
• ➕クリエイティブ挿入：桁区切り記号を挿入／チェックボックスを挿入／QR コードを作成
• 🌍40 以上の言語をサポート：Kutools はあなたの言語に対応しています！40 以上の言語をサポート！

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