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署名が電子メール本文の最後に追加されます。

関連記事：