VBA 改行について

Question

前提

Excel VBAにてOutlookメールを作成したい。

発生している問題・エラーメッセージ

どのように改行コードを入れたらいいかがわかりません。

試したこと

vbLfなどを色々と試しましたが、一行で表示されてしまいます。
Dim i As Long
Dim LastRow As Long
LastRow = Range("A1048576").End(xlUp).Row
For i = 3 To LastRow
If Cells(i, 3) = "S" Then
objMail.HTMLBody = objjMail.HTMLBody & "注意事項" & vbLf & "ご利用いただく際の注意事項について説明します。" & vbLf & "
ご利用いただくにあたっての注意事項の詳細は <a href=""https://www.google.co.jp/"">こちら1</a>" & vbLf & "
その他サービスをご利用いただくための注意事項は<a href=""https://www.google.co.jp/"">こちら1</a>"
ElseIf Cells(i, 3) = "M" Then
objMail.HTMLBody = objjMail.HTMLBody & "注意事項2" & vbLf & "ご利用いただく際の注意事項について説明します。" & vbLf & "
ご利用いただくにあたっての注意事項の詳細は <a href=""https://www.google.co.jp/"">こちら2</a>" & vbLf & "
その他サービスをご利用いただくための注意事項は<a href=""https://www.google.co.jp/"">こちら2</a>"
Else
objMail.Body = strBody
objMail.HTMLBody = objjMail.HTMLBody & "注意事項3" & vbLf & "ご利用いただく際の注意事項について説明します。" & vbLf & "
ご利用いただくにあたっての注意事項の詳細は <a href=""https://www.google.co.jp/"">こちら3</a>" & vbLf & "
その他サービスをご利用いただくための注意事項は<a href=""https://www.google.co.jp/"">こちら3</a>"
End If
Next

Answer 1

コメントの補足です。VBAで文字列を二行以上書くときは少々めんどくさいルールがあります。

objMail.HTMLBody = objMail.HTMLBody & "注意事項 <br>" & _
           "ご利用いただく際の注意事項について説明します。"
          ElseIf Cells(i, 3) = "M" Then
          objMail.HTMLBody = objMail.HTMLBody & "注意事項2 <br>" & _
          "ご利用いただく際の注意事項について説明します｡ > "

Comments

[koko2]

pig_vbaさん、ご丁寧に説明頂きありがとうございました。試しに上記”該当ソースコード”の欄を修正してみましたが黄色いマーカー部分が出てしまいます。オブジェクトが必要とのエラーメッセージでした。コード上に何かが不足しているのでしょうか。ずっとあれこれ修正してみましたが黄色いマーカー部分が消えません。

[pig_vba]

私の環境でA列に１５行ほど適当に文字入力して実行してみましたが正常終了できてます。何行目でエラーになっていますか?

[koko2]

objMail.HTMLBody = objjMail.HTMLBody & "注意事項 <br> _
ご利用いただく際の注意事項について説明します。"""
ここの部分がエラーとなります。

[pig_vba]

objMail.HTMLBody = objjMail.HTMLBody & "注意事項 <br>"& _
"ご利用いただく際の注意事項について説明します。"

ですよ。修正済み質問文の方は正しく修正されているように見えますが…?

[koko2]

コメントありがとうございました。すみませんが画像を添付いたしました。Module1の値がpig_vbaさんと同じか見てもらえますでしょうか。

[pig_vba]

objMail.HTMLBody = objjMail.HTMLBody & ...
　　　　　　　　　　　↑
もしかして、[objMail.HTMLBody & ]のtypo説ないですかね?

[koko2]

コメントありがとうございました。再作成してみましたらできました！
出来たと思ったら、マクロを実行した結果でoutlookに表示されるもが全部その他の注意事項３が選択されてしまいました。
そのためDimをVariantにしてみましたがだめでした。
メールシートのデータが1行だけならうまくいきましたが、複数行にはすべてElseになりました。

[pig_vba]

二週目以降だけがおかしいという事なら、activesheetが変わってるんじゃないですかね？
一旦横着せずにcellsとかの省略してる部分のワークシートを指定してみてください。
個人的には最初のうちに
set ws1=thisworkbook.sheets(1)みたいに変数に格納しておいて、ws1.cells()のように呼び出せるようにすることをオススメします

[koko2]

どうもありがとうございました。一つずつ修正してみたら、うまく動きました！今回はおかげで、問題が解決しました。本当に感謝です。

Answer 2

HTMLなら、改行は"<br>"でしょう

Comments

[koko2]

コメントありがとうございました。<br>とすべきところを、< br >としていたのが違っていたようです。どうもありがとうございました。
ただ
objMail.HTMLBody = objjMail.HTMLBody & "注意事項" <br>ご利用いただく際の注意事項について説明します。<br>ご利用いただくにあたっての注意事項の詳細は <a href=""https://www.google.co.jp/"">こちら1</a><br>その他サービスをご利用いただくための注意事項は<a href=""https://www.google.co.jp/"">こちら1</a>"と一行で記載すると問題ないのですが、長すぎるので<br>でリターンして折り返すと<br>の後ろに　"　が自動で付きエラーとなります。

[pig_vba]

VBAは２行以上の折返しは _が必要ですよ

[koko2]

コメントありがとうございました。試しに文を短くして半角スペースとアンダーバーを入れて実行してみたのですがコンパイルエラーとなります。補正候補：ステートメントの最後とのメッセージが出て、色々と修正してみましたがうまくいきませんでした。
そのため、また元に戻して一行で書き直したら今度は実行時エラー424、オブジェクトが必要です。となり、自分のコードをもう一度見直しが必要みたいです。

Dim i As Long
Dim LastRow As Long
LastRow = Range("A1048576").End(xlUp).Row
For i = 3 To LastRow
If Cells(i, 3) = "S" Then
objMail.HTMLBody = objjMail.HTMLBody & "注意事項 <br> _
ご利用いただく際の注意事項について説明します。"""
ElseIf Cells(i, 3) = "M" Then
objMail.HTMLBody = objjMail.HTMLBody & "注意事項2 <br> _
ご利用いただく際の注意事項について説明します｡ > """

Else
objMail.Body = strBody
objMail.HTMLBody = objjMail.HTMLBody & "注意事項3 <br> _
ご利用いただく際の注意事項について説明します。"""
End If
Next

[pig_vba]

説明が不足していましたね。VBAでは文字列を二行以上続けて記述することは禁止されています。
なので一行ごとに""でくくり、[ _]結合子で一行分と認識させながら文字列同士を&で結合しなければなりません。ここじゃ書きにくいので回答枠で補足します。