【Excel VBA】Outlookメール本文の改段落の行間サイズを設定したい【Outlook】

Question

実現したいこと

Excel VBAから、Outlookのメールを作成する際、
改段落の行間サイズをデフォルトの「0行」にしたいです。

発生している問題・分からないこと

メールを作成し、
[書式設定]タブ　→　[段落]　→　[間隔]　→　[段落後]　を確認すると、
普段はこれが「0行」になっているのですが、
VBA経由で作成したときだけ、「12pt」になってしまいます。

これを、VBA側の記述で「0行」にしたいです。

該当のソースコード

Sub Trial_Mail()

Dim toaddress As String
Dim subject, mailBody As String
Dim outlookObj As Outlook.Application
Dim mailItemObj As Outlook.mailItem
Dim WEObj As Object

Application.ScreenUpdating = False

'To宛先
toaddress = "[e-mail]"
'件名
subject = "件名"

'メール作成
mailBody = "<span style=""font-size:10.5pt; font-family:游ゴシック (本文のフォント - 日本語)"">" _
　　　　　　& "本文</span>"

Set outlookObj = CreateObject("Outlook.Application")
Set mailItemObj = outlookObj.CreateItem(olMailItem)

With mailItemObj

    .To = toaddress      'To宛先をセット
    .subject = subject   '件名をセット
    .HTMLBody = mailBody　'本文をセット

'メール表示
    .display

End With

'オブジェクトの解放
Set outlookObj = Nothing
Set mailItemObj = Nothing

End Sub

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

Outlookの書式はWordEditorで変更するとのことだったので、
Word VBAと見比べながら、下記コードを挿入してみましたが、

①：実行時エラー438（オブジェクトはこのプロパティまたはメソッドをサポートしていません）
②：エラーは出ないが。段落後の行間サイズに変化なし
という結果でした。

    Set WEObj = mailItemObj.GetInspector().WordEditor
    
    With WEObj

'方法① 全選択して選択範囲の段落改行サイズを変更　→エラー
        .Content.Select

        With Selection.Paragraphs.Format

            .LineUnitAfter = 0

        End With

'方法②　各段落をループして改行サイズを変更　→エラーは出ないが変化なし
        For i = 1 To .Paragraphs.Count

            .Paragraphs(i).LineUnitAfter = 0

        Next i
    
    End With

Answer 1

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12247959362
こちらの回答を参考に、下記コードを追加したところ、改段落の行間サイズを0にすることができました。

Dim body as Object

Set body = mailItemObj.GetInspector().WordEditor.Windows(1).Selection
body.ParagraphFormat.SpaceAfter = 0