目次
環境
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)」というのは改行を意味しています。
まとめ
こんな感じで美しくできました。
参考になれば幸いです。
ここまで読んでいただきありがとうございました。
