Excel でブックを保存した際に、Outlook 経由でメールを送信する方法は？

著者Siluvia変更日2024-11-20

このガイドでは、Excel で特定のブックを保存するたびに、Outlook 経由で自動的にメールを送信する方法をご紹介します。シンプルな VBA コードを使うだけで、ブックへの更新内容をシームレスに共有できます。

VBA コードを使用して、Excel でブックを保存した際にOutlook 経由でメールを送信する

VBA コードを使用して、Excel でブックを保存した際にOutlook 経由でメールを送信する

Excel でブックを保存した際にOutlook 経由でメールを送信するには、次の手順に従ってください。

1。まず、ブックを「Excel マクロ有効ブック」として保存します。「ファイル＞名前を付けて保存」をクリックしてください。「名前を付けて保存」ダイアログボックスで、保存先のフォルダーを選択し、「ファイル名」ボックスにファイル名を入力します。次に、「保存形式を指定」ドロップダウンリストから「Excel マクロ有効ブック」を選択し、「保存」ボタンをクリックします。スクリーンショットをご覧ください：

Excel マクロ有効ブックとしてワークブックを保存する方法を示すスクリーンショット

2。先ほど保存したExcel マクロ有効ブックを開き、Alt＋F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを起動します。

2。Microsoft Visual Basic for Applicationsウィンドウで、左側のバーにあるThisWorkbookをダブルクリックし、次の VBA コードをThisWorkbookのコードウィンドウにコピー＆ペーストしてください。スクリーンショットをご確認ください：

VBA コード：ブックを保存した際にメールを送信する

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

注：「メールアドレス」を、行「.To = 「メールアドレス」」の受信者メールアドレスに置き換えてください。「Cc」「件名（Subject）」および「本文（Body）」フィールドも、必要に応じて VBA コード内で修正してください。

ThisWorkbook コードウィンドウに入力された VBA コードのスクリーンショット

3。Alt＋Qキーを同時に押すと、Microsoft Visual Basic for Applicationsウィンドウが閉じます。

これ以降、ブックを更新して保存するたびに、更新されたブックが添付されたメールが自動的に作成されます。「送信」ボタンをクリックして、すぐにメールを送信しましょう。スクリーンショットをご覧ください：

Outlook でワークブックが添付された自動作成メールのスクリーンショット

注：この VBA コードは、メールプログラムにOutlook を使用している場合にのみご利用いただけます。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

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