OutLookの本文を改行したい(改)【VBA】

環境

Windowsの仕様

エディション:Windows 10 Pro

バージョン:20H2

経緯

VBAを使ってて以前、OutLookの本文を改行したのですが、「&」と「vbCrLf」だらけになってしまい、

美しくありませんでした。

なので、今回は他のやり方を勉強しました。

For文を回す

調べるとFor文を回すとすっきりきれいでした。

プログラムを書きます。

前提に”sheetのD列の5行目から62行目のセルにメール本文がある”とします。

For i = 5 To 62
objMail.Body = objMail.Body & Range("D" & i).Value & Chr(10)
Next

ちなみに「Chr(10)」というのは改行を意味しています。

まとめ

こんな感じで美しくできました。

参考になれば幸いです。

ここまで読んでいただきありがとうございました。