エクセルを使ってOutlookでメール送信

質問

エクセル Sheet1の各セルに下記のように既に入力があります。

To： AA３ (メアド入力済)
件名：AB3 (定型文入力済)
本文：AC3 (定型文入力済)
Cｃ： AD3 (メアド入力済)

下記マクロを実行した時
Sheet1のAC3の定型文と
改行して
Sheet2のA1からC列の最終入力行までの内容を
Outlookメールで飛ばすにはどうしたら宜しいでしょうか?

尚且つ、メールを飛ばしたあと、
Sheet2のA1からC3までは残して2行目以降を消去したいです。
ご教示の程、宜しくお願い致します。

Dim myOLApp As Object
Set myOLApp = CreateObject("Outlook.Application")
Set myDATA = myOLApp.CreateItem(olMailItem)
myDATA.To = Range("AA3").Value
myDATA.CC = Range("AD3").Value
myDATA.Subject = Range("AB3").Value
myDATA.Body = Range("AC3").Value & Worksheets("Sheet2").Range("A1")

myDATA.Send
Set myDATA = Nothing
Set myOLApp = Nothing

【例】
Sheet1
AC3 定型文・・・こんにちは。

Sheet2
A1・・・日付
B1・・・場所
C1・・・担当

A2・・・2014/10/26
B2・・・富士山
C2・・・鈴木

A3・・・2014/12/25
B3・・・TDL
C3・・・佐藤

回答No.1

hallo-2007 · ベストアンサー

＞Sheet1のAC3の定型文と
＞改行して
＞Sheet2のA1からC列の最終入力行までの内容を
＞Outlookメールで飛ばすにはどうしたら宜しいでしょうか?
質問の意味がよくわからないのですが、
試しに
Sub ボタン1_Click()
Dim Str As String
i = 1
Do Until Range("A" & i).Value = ""
Str = Str & Range("A" & i).Value & Range("B" & i).Value & Range("C" & i).Value & Chr(10)
i = i + 1
Loop
MsgBox Str
End Sub
を実行してみて希望する内容が表示される様であれば

myDATA.Body = Str
で良いかと

＞Sheet2のA1からC3までは残して2行目以降を消去したいです。
これもよくわからないのですが
Range(消した範囲).ClearContents
の一行を最後に追加します。

補足

回答ありがとうございました。
確かに、希望する内容が表示されました。
・・・が、それをメールで送るとなると
とても見辛いものでした。

(結果)
日付場所担当
2014/10/26東京鈴木
2014/12/25TDL佐藤

申し訳ありませんがメール受信側が見やすいように
下記のようなレイアウトにすることは出来ますでしょうか？
(質問ではA列からC列としていますが実際はA列からL列です)

2行目以降消去の件については、確認できました。ありがとうございました。

(メール受信レイアウト例)
こんにちは。　　　　　　　　　　

日付 2014/10/26
場所 富士山
担当 鈴木

日付 2014/12/25
場所 TDL
担当 佐藤

または　列ごとの区切りで横長に表示は出来ますでしょうか？
(勿論、日付が2015/1/1だったり場所が長い文字列だったり文字数は統一されていません)

日付　　　　　場所　担当
2014/10/26　東京　鈴木
2014/12/25　TDL　佐藤

お力をお貸しください。宜しくお願い致します。