OutlookとVBAにて、フォントサイズ、フォント体の反映について

Question

エクセルVBAとOutlookを使って下図のようにエクセルのセル内の本文を参照してテンプレ文を表示するマクロを作成しています。
セル内にbrの改行タグは適用されるも、フォントサイズ、フォント体が上手く反映されません。メール作成マクロを実行した際、本来は游ゴシック・11ptで出力されてほしいのですが、デフォルトのMPゴシック体・10ptに出力されてしまいます。

ご教示お願いいたします。

コード

Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Set ws = wb.Worksheets("テンプレ文")
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)



With objMail
 .To = "[e-mail]" 'メール宛先
 .Subject = "メールの件名" 'メール件名
 .body = "メール本文" 'メール本文
 .BodyFormat = olFormatPlain 'メールの形式
 .HTMLBody = "<div style=""font-family:游ゴシック;font-size:22pt;""> </div>"
End With


Dim oApp As New Outlook.Application
Dim oItem As Outlook.MailItem
Set oItem = oApp.CreateItem(olMailItem) 'メールを作成します
oItem.To = ws.Range("D7") '宛先を入力します
oItem.CC = ws.Range("D8") 'CCを入力します
oItem.Subject = ws.Range("D9") & ws.Range("B3") '件名を入力します
oItem.HTMLBody = ws.Range("D10")

またエクセル内にはD10に下記の様に文字列を入れております。
<span style=”font-size:35pt”>担当者様<br><br>
お疲れさまです。<br><br>
お手数ですがよろしくお願い致します。<br><br>
</span>

Comments

[y_waiwai]

このままではコードが読みづらいので、質問を編集し、</>(コードの挿入)ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください

[y_waiwai]

んで、うまく反映されない、とはどういうふうに反映されるんでしょうか

[iceclaimer]

承知しました。コード文を＜/＞に再追記しました。
メール作成マクロを実行した際、本来は游ゴシック・11ptで出力されてほしいのですが、デフォルトのMPゴシック体・10ptに出力されてしまう、という意味でした。

[y_waiwai]

質問は編集できますんで、そこらへんの説明は、質問文の方に書いておくとよろしいかと

[iceclaimer]

ありがとうございます。再度修正致しました。

Answer 1

テスト結果
https://youtu.be/vuq1fe29JU0?t=133
↑こんな感じで良ければ、下記のコードを試してみてください。

'作成したテストのコード
Option Explicit

Sub outlookでHTMLメールの作成後にフォントサイズ変更()

    Dim ws As Worksheet
    Set ws = ActiveSheet  'とりあえず、アクティブシートで
    
    'ここからQAサイトのコード
    Dim oApp As New Outlook.Application
    Dim oItem As Outlook.MailItem
    Set oItem = oApp.CreateItem(olMailItem) 'メールを作成します
    oItem.To = ws.Range("D7") '宛先を入力します
    oItem.CC = ws.Range("D8") 'CCを入力します
    oItem.Subject = ws.Range("D9") & ws.Range("B3") '件名を入力します
    oItem.HTMLBody = ws.Range("D10")
    'ここまで

    oItem.Display  '勝手に確認しやすいように表示
    
    'Wordの世界へ行く？うそうそ、編集だけ
    ' https://docs.microsoft.com/ja-jp/office/vba/api/outlook.inspector.wordeditor
    ' .GetInspector().WordEditor とかで検索してください
    
    Dim objDOC As Object
    Set objDOC = oItem.GetInspector().WordEditor
    
    'Stop
    '段落で回して、選択しながら、フォントサイズ変更
    Dim n As Integer
    '全ての段落をテスト表示
    For n = 1 To objDOC.Paragraphs.Count
        Debug.Print n & ":" & objDOC.Paragraphs(n).Range.Text
        'objDOC.Paragraphs(n).Range.Select  '単純に段落をセレクト状態にして※エラーになるよ
        'objDOC.Selection.Font.Size = 35  '選択範囲のフォントサイズ変更
        objDOC.Paragraphs(n).Range.Font.Size = 35
    Next n

End Sub

<hr>

https://docs.microsoft.com/ja-jp/office/vba/api/outlook.inspector.wordeditor
↑
メールアイテム.GetInspector().WordEditor
を使うと、編集をWordオブジェクトでできるので、
'Wordの世界へ行く？うそうそ、編集だけ
' https://docs.microsoft.com/ja-jp/office/vba/api/outlook.inspector.wordeditor
' .GetInspector().WordEditor とかで検索

Dim objDOC As Object
Set objDOC = oItem.GetInspector().WordEditor

で、あとは、Wordの世界で、、※詳しい人に聞いてみてください・・・

1.フォントサイズを変える
Wordの世界なので、いろいろとやり方があると思いますが、
手前みそ回答の
https://teratail.com/questions/319919
から
'全ての段落をテスト表示
For n = 1 To ActiveDocument.Paragraphs.Count
Debug.Print n & ":" & ActiveDocument.Paragraphs(n).Range.Text
Next n
これを、

For n = 1 To objDOC.Paragraphs.Count
    Debug.Print n & ":" & objDOC.Paragraphs(n).Range.Text
    'objDOC.Paragraphs(n).Range.Select  '単純に段落をセレクト状態にして※エラーになるよ
    'objDOC.Selection.Font.Size = 35  '選択範囲のフォントサイズ変更
    objDOC.Paragraphs(n).Range.Font.Size = 35
Next n

と
して、フォントのサイズを変更しただけでした。

急ぎかわからなかったので、ノー編集の動画ですが
https://www.youtube.com/watch?v=vuq1fe29JU0
ExcelからHTMLメール作成のヒントとなれば幸いです。
※Set objDOC = oItem.GetInspector().WordEditor
で Wordのオブジェクトで触れるので、あとは、VBA Wordのプロにイロイロ質問してみてくださいね。

Comments

[ken3memo]

質問文に記載されていた、フォントの変更、忘れてました。
Word VBAでFontを変えるのが、
Selection.Font.Name = "游ゴシック"
なので、ここを変えると
objDOC.Paragraphs(n).Range.Font.Size = 35
objDOC.Paragraphs(n).Range.Font.Name = "游ゴシック"
フォントが変更されると思います。