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

環境

Windowsの仕様

エディション:Windows 10 Pro

バージョン:20H2

経緯

VBAを使って、メール送信を試みたのですが、メールの本文の改行がうまくいかず、つながって出力してしまいます。

なので、今回は本文を改行する方法を勉強しました。

「vbCrLf」使う

「＆」だけではできない

うまくいかなかった、コードを載せます。*コードはメールの本文のところだけ載せてます。

objMail.Body = .Range("D6").Value & _
                    .Range("D7").Value & _
                    .Range("D8").Value & _
                    .Range("D9").Value 'メール本文

セルは変えてるから、あとは「＆」でつなげたら、改行されてるかなと思ったら、だめでした。

「vbCrLf」を使おう

「vbCrLf」を使うとうまくいきました。

objMail.Body = .Range("D6").Value & vbCrLf & _
                    .Range("D7").Value & vbCrLf & _
                    .Range("D8").Value & vbCrLf & vbCrLf & _
                    .Range("D9").Value 'メール本文

まとめ

こんな感じできました。

私の場合はセルの値が毎回変わるので、こんな形になりましたが、

もし、本文が変わらないのであれば、セルの中身を「Alt + Enter」で改行してもいいと思います。

技術書の購入コストを抑えてスキルアップするなら

ここまで読んでいただきありがとうございます。最後に宣伝をさせてください。

プログラミングの技術書や参考書は、1冊3,000円〜5,000円するものも多く、出費がかさみがちです。Kindle Unlimitedであれば、月額980円で500万冊以上の書籍が読み放題となります。

気になる言語の入門書から、アルゴリズム、基本設計の専門書まで、手元のスマホやPCですぐに参照可能です。現在は「30日間の無料体験」や、対象者限定の「3か月499円プラン」なども実施されています。まずはご自身のアカウントでどのようなオファーが表示されるか確認してみてください。

[Kindle Unlimited 読み放題プランをチェックする]