メール本文の改行が反映されない

Question

サンダーバードがメールツールとしては主流であるため、VBAでサンダーバードを起動してメール作成というところを実現しようとしています。

セルの番地にしたがってメールの宛先や本文などを割り当てているため、
For文では参照する形にしています。

本文が書かれたセルでCHAR(10)を用いて、文字列と結合することでセル上は改行ができています。
しかし、
いざ実行してもメールの下書き段階で本文が全く改行されずに
文字列が一文として出てきてしまいます。

以下、詳細のコードです。

Dim sPath As String

Dim mailadto As String
Dim mailadcc As String
Dim substring As String
Dim bodystring As String
Dim i As Integer
Dim cmax As Long
cmax = Range("A1048576").End(xlUp).Row

sPath = """C:\Program Files\Mozilla Thunderbird\thunderbird.exe"" -compose "

For i = 3 To cmax
mailadto = Worksheets("顧客アドレス").Cells(i, "D").Value
mailadcc = Worksheets("顧客アドレス").Cells(i, "E").Value
substring = Worksheets("顧客アドレス").Cells(i, "G").Value
bodystring = Worksheets("顧客アドレス").Cells(i, "H").Value

Shell sPath & "to=" & mailadto & "," & "cc=" & mailadcc & "," & "subject=" & substring & "," & "body=" & bodystring & ","

Next i

End Sub

Answer 1

セル内改行であれば、それでいいのですが、この場合は改行は「%0d%0a」ではないでしょうか？