エクセルマクロ メール作成
お世話になります。
メールの定期配信業務があり、簡略化のためマクロ作成しております。
WSHを使った構文を見つけましたので、以下のような構文を作りました。
＜エクセルシート＞
横に【宛先1（to）】【宛先2（ｃｃ）】【件名】【本文】【添付ファイルパス】
の順に並んでおり、列方向にはリストとなっています。
＜Module＞
Sub メール書き込み()
Dim 宛先1 As String
Dim 件名 As String
Dim 本文 As String
Dim 添付 As String
Dim 宛先2 As String
Dim 行 As Long, 行下端 As Long
Dim sComd As String
行下端 = Range("B65536").End(xlUp).Row
行 = 2
Do While 行 <= 行下端
宛先1 = Cells(行, 1).Text
宛先2 = Cells(行, 2).Text
件名 = Cells(行, 3).Text
本文 = Cells(行, 4).Value
添付 = Cells(行, 5).Text
sComd = "Mailto:" & 宛先1 & "?Subject=" & 件名 & "&body=" & 本文
Debug.Print sComd
CreateObject("WScript.Shell").Run sComd
行 = 行 + 1
Loop
End Sub
この状態で、複数メールを作成することはできましたが、不満点があり、御教示願いたく考えております。
mailto 以下の書き方が分からず困っているのが以下の点です。
１、CC（宛先2）を追加したい。
２、添付を追加したい。
また、本文の改行も反映できるようにしたいのですが、これは可能でしょうか？
複数件質問になってしまい恐縮ですが、よろしくお願い致します。
お礼
早速に ありがとうございました せっかくでしたが 待ちきれなくて バックアップデータ から 半月ほど前の ものを リストアしています 後９時間ぐらい かかるようです セカンドマシンで お返事しています ありがとうございました