エクセルＶＡＢの変更の仕方

質問

ＶＢＡ初心者です。
エクセルのデータをメール送信したく、ネットで検索して希望に近いＶＢＡを見付けたのですが改造の仕方が分からず、どのように記述したらいいのか教えてください。

シート１『宛先マスタ』のＡ列に担当者の名前が入ってます。
Ｂ列にメールアドレス
Ｃ列に『１』を入れたところだけメール送信

シート２『送信文章』のＡ７セルにメール件名
Ａ１０から本文
となってます。

現状のままだとＡ列が入らず、他にも入れたいことがあるので
シート１『宛先マスタ』の
Ｄ列に商品
Ｅ列に購入日付
を入れて、Ａ・Ｄ・Ｅに明記されている内容をメール本文に載せたいのですが、どのように記述したらよいのでしょうか？

以下、現状のプログラムの一部です。

*********

'作成開始の確認
If MsgBox("メールを作成します、よろしいですか？", vbYesNo, "確認") = vbNo Then
Exit Sub 'vbNo いいえ だったら、関数をすぐに抜ける。
End If

'件名に 送信文章シートのA7の件名をセットする
Dim strTITLE As String 'メールの件名、タイトル。
strTITLE = Trim(Sheets("送信文章").Range("A7")) '隣の送信文章のA7セルを代入

'本文は、送信文章シートのA10から ”↑ここまで” を つなげ、セットする。
Dim strDOC As String '送信する文章
Dim strWORK As String '一時変数
Dim yLINE As Integer 'Y行目のカウント
'本文を作る
strDOC = "" '初期化する
For yLINE = 10 To 999 '10行目から最大999行まで
strWORK = Sheets("送信文章").Cells(yLINE, "A") 'A列のY行目の文字を取り出す
If strWORK = "↑ここまで" Then Exit For '↑ここまで だったら ループを抜ける
strDOC = strDOC & strWORK & vbCrLf '１行、文字を追加する
Next yLINE
Debug.Print "作られた本文は:[" & strDOC & "]です。" & vbCrLf & vbCrLf

' Outlook を 起動
Dim oApp As Object 'OutlookのApplication オブジェクトを入れる
Dim myNameSpace As Object '名前のスペースと言われても、、
Dim myFolder As Object 'フォルダー指定

'outlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を
Set oApp = CreateObject("Outlook.Application")

******

『本文は、送信文章シート…』からの辺りに記述すればいいのかなと参考書を調べたりしたのですがサッパリ分からず…。
ＶＢＡに詳しい方、教えていただけると大変助かります。

回答No.1

keithin · ベストアンサー

手順の組み立ては次のとおりになります。

１．マスタシートのＡ列の上から下までのセルをFor Next巡回する
２．各セルのＣ列が１でなかったらスルーする、１なら次の作業を行う
３．各列のＡＤＥ列のセルの内容を、雛形シートの所定のセルに転記する
４．拾ったマクロでアドレス設定、メールの本文整形、Outlookで送出まで行う
５．１に戻って繰り返す。

サンプル：
sub Macro1()
dim h as range

’１
for each h in worksheets("宛先マスタ").range("A2:A" & worksheets("宛先マスタ").range("A65536").end(xlup).row)

’２
if h.offset(0, 2) = 1 then

’３
worksheets("送信文章").range("A17") = h
worksheets("送信文章").range("A18") = h.offset(0, 3)
worksheets("送信文章").range("A19") = h.offset(0, 4)

’４
　アドレスのセット（掲示されていない）
　メール件名のセット
　メール本文の生成と送出

’５
End If
Next

End Sub

補足

早々の回答ありがとうございます。
http://outlook.vba-ken3.jp/sample/001/2009-05-11.html

すみません、こちらのサイト様のサンプルファイルなのですが回答頂いたプログラムはどこに記述したらよいのでしょう？
一応上の方に記述してみたのですがエラーが出てしまいまして…。
どうしたらいいのかサッパリ分からないので再度教えていただけるとありがたいです。ｍ(＿)ｍ