Excel でセルの制限された範囲からメールを送信するには？

重要なデータやレポートをExcel ワークブックから直接他者と共有する必要がよくあります。メール本文に特定のセル範囲の内容を埋め込むことで、時間の節約と正確性の確保が可能です。たとえば、選択した財務サマリー、学生の成績、在庫データなどをExcel から直接メールで送信すれば、受信者は添付ファイルを開くことなく重要な情報をすぐに確認できます。本記事では、メール本文にセル範囲を埋め込んで送信する実用的な方法をご紹介し、Excel から直接行うコミュニケーションとデータ共有をより効率的にサポートします。

Excel でセルの制限された範囲からメールを送信する
優れたツールでセルの制限された範囲からメールを送信する
Excel でのメール送信に関するその他のチュートリアル。。。

Excel でセルの制限された範囲からメールを送信する

組み込み機能でカスタマイズ可能な方法をお探しの場合は、Excel 内の VBA コードを使うのが効率的です。選択したセル範囲をコピーし、Outlook メールの本文に自動的に貼り付けることができます。この方法は、Microsoft Outlook を日常的に使い、Excel から直接メール送信を自動化したい方に最適です。以下の手順で実行できます。

1。メール本文に埋め込みたいセル範囲を含むワークシートを開きます。次に、Alt + F11を同時に押して、Microsoft Visual Basic for Applicationsウィンドウを起動します。このショートカットを使えば、コードを挿入する VBA エディターに瞬時にアクセスできます。

2。VBA エディターのウィンドウで、ツール＞参照設定をクリックしてください。複数のファイルを開いている場合は、正しいワークブックが選択されていることを確認しましょう。

3。参照設定 – VBAProjectダイアログボックスで、スクロールしてMicrosoft Outlook オブジェクトライブラリにチェックを入れましょう。この参照を有効にすると、VBA がOutlook と連携し、メールの作成・送信が可能になります。チェックしたら、OKをクリックしてください。

4。メニューバーで、挿入 > 標準モジュールをクリックして、新しいコードモジュールを追加してください。その後、以下の VBA コードをモジュールウィンドウにコピー＆ペーストします。

VBA コード：Excel で制限された範囲を含んだメールを送信する

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

注記：

• 1）。必要に応じて、行 xEmailBody = 「Hi」 & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLineの内容や挨拶文をカスタマイズできます。たとえば、Excel データの前に特定のメッセージや指示を追加したい場合があります。
• 2）。受信者と件名は、次の行を編集して調整してください：.To = happy.xuebi@163.com および.Subject = 「Test」。配信エラーを防ぐため、受信者のメールアドレスが正しいことを必ずご確認ください。

5。コードを実行するには、VBA エディターでF5を押してください。Kutools for Excel ダイアログが表示されたら、メール本文に含めたいセル範囲を選択してOKをクリックします。誤った範囲を選択した場合は、プロセスを再開するか、選択を修正できます。

6。指定された宛先、件名、挿入メッセージ、およびメール本文内のExcel データを含んだOutlook メールが自動的に生成されます。送信前にメッセージをプレビューし、すべてのデータが正しく表示されていることを確認してください。送信ボタンをクリックして、メールを送信しましょう。

注意：この VBA メソッドは、Microsoft Outlook がインストールされており、かつ既定のメールクライアントに設定されている場合にのみ機能します。他のメールプログラムをご利用の場合は、以下でご紹介する別のソリューションをご検討ください。また、Outlook が起動していない場合でも、マクロによって自動的に起動されます。

制限事項：この方法をご利用いただくには、Outlook およびメール機能への適切なアクセス権が必要です。組織でマクロの使用やOutlook へのアクセスが制限されている場合は、ご利用いただけません。

優れたツールでセルの制限された範囲からメールを送信する

Outlook をご利用でない方や、コード不要のシンプルな方法をお探しの方に、Kutools for Excel は選択したセル範囲を含んだメールメッセージを送信するための簡単なソリューションを提供します。「Send Email」機能を使えば、送信サーバー（SMTP）を設定するだけで、Gmail や Yahoo、企業メールなど、サポート対象の任意のメールアカウントから Excel 上で直接メールを送信できます。さまざまな環境での作業や、複数の受信者との情報共有にも柔軟に対応可能です。

この方法をご利用になるには、以下の手順に従ってください。

1。まず、必要なフィールドを含んだメールリストをご準備ください。

• ヒント：メールリストには少なくとも2 行が必要です―1 行はヘッダー用、もう1 行以上は実際のデータ用です。たとえば、2 人の宛先にメールを送る場合は、「Email」ヘッダーの下に、以下のスクリーンショットのように両方のメールアドレスを入力してください。
• 
• すばやくメールリストを作成したい場合は、メーリングリストの作成機能で自動セットアップしましょう！

2。次に、メール本文に貼り付けたいExcel の範囲を実際に選択し、Ctrl + Cでコピーしてください。メールの明確性を保つため、必要なセルだけをコピーするよう心がけましょう。

3。ヘッダーを含むメールリスト全体を選択し、KUTOOLS PLUS > メール送信に進みます。

4。「メール送信」ダイアログが表示され、選択したメールリストに基づいてフィールドが自動的に入力されます。

• 4.1）ダイアログ内の項目を必要に応じて確認・調整してください。パーソナライズされたメッセージや追加情報が必要な場合は、メールリストにさらにフィールドを追加できます。
• 4.2）「メール本文」ボックス内をクリックし、Ctrl + Vを押してコピーした内容を貼り付けてください。必要に応じて追加のテキストや指示を挿入し、メールメッセージが明確でわかりやすくなるようにしてください。
• 4.3）SMTP（その他のメールサービス）経由で送信したい場合は、「Outlook を使用して送信」のチェックを外してください。
• 4.4）SMTP 設定をクリックして、メールアカウントの SMTP 設定を構成してください。Outlook 以外のアカウントから直接送信するには、この設定が必須です。
  

5。「メールサーバーの設定 – 新しいスキーム」ダイアログで、メールアドレス、SMTP サーバー、ポート番号、認証情報など、必要な詳細をすべて入力します。「送信済みメールを保存する場所」チェックボックスをオンにすれば、送信済みメールが指定フォルダーに自動保存され、やり取りを簡単に追跡できます。設定が完了したら、OKをクリックして確定します。

6。「メール送信」ウィンドウに戻ったら、すべてのフィールドと貼り付けられた内容を再度確認し、送信をクリックしてメールを送信します。メールは構成済みのサーバー経由でExcel から直接送信され、結果に応じて確認メッセージまたはステータスが表示されます。

メリット：Kutools はOutlook にとどまらず、ほぼすべての SMTP 対応アカウントからのメール送信をサポートしているため、ウェブメールをご利用の方、複数のドメインで作業される方、またはマクロコーディングなしで直感的に使えるインターフェースをお求めの方に最適です。

Kutools をご利用の際は、メール配信エラーを防ぐため、サーバー設定を慎重にご確認ください。メールが送信されない場合は、ネットワーク接続、サーバーアドレス、ポート番号、およびログイン認証情報を再度ご確認ください。

一括メール送信時には、必ず大量送信前に少なくとも1 通のメッセージをプレビューし、表示やパーソナライズに問題がないか確認・修正してください。

関連記事：

最高の 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％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

---

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

• オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
• インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
• 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
• 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
• 最高のお得感— 個別アドイン購入よりお得

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