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 for Excelはほとんどの問題を解決し、生産性を80％向上させます

• 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
• スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
• セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
• [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
• 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
• テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
• スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
• ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
• 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。

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

---

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

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

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