Excelで電子メールを送信するときにOutlookの署名を挿入するにはどうすればよいですか？

Excel で直接メールを送信したい場合、既定の Outlook 署名をメールに追加するにはどうすればよいでしょうか? この記事では、Excel で電子メールを送信するときに Outlook 署名を追加するのに役立つ XNUMX つの方法を提供します。

Excel VBAで送信するときに、Outlookの電子メールに署名を挿入します
素晴らしいツールを使用してExcelでメールを送信するときにOutlookの署名を簡単に挿入
Excelでメールを送信するためのその他のチュートリアル...

Excel VBAで送信するときに、Outlookの電子メールに署名を挿入します

たとえば、ワークシートに電子メール アドレスのリストがあり、Excel でこれらすべてのアドレスに電子メールを送信し、電子メールに既定の Outlook 署名を追加します。 それを実現するには、以下の VBA コードを適用してください。

1.電子メールを送信する電子メールアドレスリストが含まれているワークシートを開き、を押します。 他の + F11 キー。

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、 次に、以下をコピーします VBA2 モジュールコードウィンドウに移動します。

3.次に、を交換する必要があります 。体 ラインイン VBA2 のコードで VBA1. その後、行を移動します 。表示 ラインの下 xMailOutを使用.

VBA 1: Excel で Outlook の既定の署名を使用して電子メールを送信するテンプレート

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2：Excelのセルで指定されたメールアドレスにメールを送信する

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

次のスクリーンショットは、VBAコードを変更した後の違いを簡単に見つけるのに役立ちます。

4。 プレス F5 コードを実行するためのキー。 次に、 Kutools for Excel 選択ボックスがポップアップします。メールを送信するメールアドレスを選択して、をクリックしてください。 [OK]をクリックします。

その後、メールが作成されます。 Outlook の既定の署名がメール本文の末尾に追加されていることがわかります。

ヒント：

• 1.必要に応じて、VBAコード1の電子メール本文を変更できます。
• 2.コードの実行後、ユーザー定義タイプが定義されていないことを警告するエラーダイアログボックスが表示された場合は、このダイアログを閉じてから、をクリックしてください。 ツール > 参考文献 セクションに アプリケーション向け Microsoft Visual Basic 窓。 オープニングで 参照– VBAProject ウィンドウ、チェック MicrosoftOutlookオブジェクトライブラリ ボックスにフィルタを記入し、 [OK]をクリックします。 そして、コードを再度実行します。
  

素晴らしいツールを使用してExcelでメールを送信するときにOutlookの署名を簡単に挿入

VBAの初心者の場合は、ここで強くお勧めします メールを送る の有用性 Kutools for Excel あなたのために。 この機能を使用すると、Excelの特定のフィールドに基づいて電子メールを簡単に送信し、それらにOutlookの署名を追加できます。 次のようにしてください。

まず、メールを送信するさまざまなフィールドを使用してメーリングリストを作成する必要があります。

必要に応じて手動でメーリングリストを作成するか、メーリングリストの作成機能を適用してすばやく作成できます。

1。 クリック クツールズプラス > メーリングリストを作成します。

2。 の中に メーリングリストを作成する ダイアログボックスで、必要なフィールドを指定し、リストを出力する場所を選択して、[ OK

3.これで、メーリングリストのサンプルが作成されました。 これはサンプルリストであるため、フィールドを特定の必要なコンテンツに変更する必要があります。 （複数の行が許可されます）

4.その後、リスト全体（ヘッダーを含む）を選択し、をクリックします クツールズプラス > メールを送る。

5。 の中に メールを送る ダイアログボックス：

• 5.1）選択したメーリングリストのアイテムは、対応するフィールドに自動的に配置されます。
• 5.2）メール本文を完成させます。
• 5.3）両方をチェックします Outlook経由でメールを送信する & Outlookの署名設定を使用する ボックス;
• 5.4）をクリックします 送信 ボタン。 スクリーンショットを参照してください：

これでメールが送信されます。 また、デフォルトのOutlook署名が電子メール本文の最後に追加されます。

関連記事：

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

🤖	Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
	人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
	スーパールックアップ: 複数の基準の VLookup  |   複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
	詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
	列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
	注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー   |  ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化   |  リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
	上位 15 のツールセット:  12 テキスト ツール (テキストを追加, 文字を削除する、...）   |   50+ チャート 種類 (ガントチャート、...）   |   40+ 実用的 式 (誕生日に基づいて年齢を計算する、...）   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...）   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...）   |   7 マージ＆スプリット ツール (高度な結合行, 分割セル、...）   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

続きを読みます... 無料ダウンロード...

---

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

続きを読みます... 無料ダウンロード...