Excelで指定された太字/サイズ/色/下線付きのテキスト形式でメールを送信するにはどうすればよいですか？

HTML形式の本文は、メールを豊かにし、読みやすくすることができます。この記事では、Excelで太字、下線、指定されたサイズや色のテキスト形式を追加して、HTML形式のメールを送信する方法について説明します。

VBAコードを使用して、指定された太字/サイズ/色/下線付きのテキスト形式でメールを送信する

VBAコードを使用して、指定された太字/サイズ/色/下線付きのテキスト形式でメールを送信する

以下のVBAコードを適用して、特定のHTML形式の本文を持つメールをExcelから送信してください。

1. Alt + F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。その後、以下のVBAコードをコードウィンドウにコピーします。

VBAコード: Excelで特定の太字/サイズ/色/下線付きのテキスト形式でメールを送信する

Sub SharePerformance1()
'Update by ExtendOffice 2018/3//5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xOutMsg = "<b>This text is bold</b><br/><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""><br />" & _
               "<u>New line with underline</u><br /><p style='font-family:calibri;font-size:25'>Font size</p>"
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Html format email"
        .HTMLBody = xOutMsg
        .Display
    End With
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

注意:

3. コードを実行するためにF5キーを押します。すると、指定されたHTML形式の本文を持つメールが開きます。送信ボタンをクリックして送信してください。

関連記事：

• Excelでセル値に基づいて自動的にメールを送信するにはどうすればよいですか？
• ExcelでVBAを使用してOutlookメールに署名を挿入するにはどうすればよいですか？
• ExcelでOutlookを使用せずにメールを送信するにはどうすればよいですか？
• ExcelでVBAを使用して特定のチャートをメールで送信するにはどうすればよいですか？
• Excelで一日の特定の時間にメールを送信するにはどうすればよいですか？
• ExcelでHTML形式のメール本文を送信するにはどうすればよいですか？