範囲選択した内容と見出しをメール

質問

こんな事って出来ますでしょうか?
エクセル2013 マクロを使用して下記のような事は出来ますでしょうか?

４行目 A～N列に見出しがあります。
例えば　５行目A～Nを範囲選択して下記　AA3　または　AD３宛にメールを送信します。
To： AA３ (メアド入力済)
件名：AB3 (定型文入力済)
本文：AC3 (定型文入力済)
Cｃ： AD3 (メアド入力済)

その時、受信側には　上記　AC3と
４行目A～N列の見出しと範囲選択した内容が
箇条書きの様にメール内容として送られてくるような事は出来ますでしょうか?

複数行、範囲選択した場合は受信側が見やすいように
改行等を設けて　
見出し　と
範囲選択した各行の内容ごと、メールに反映することは出来ますでしょうか?

または５行目以降のC列のいずれかのセルを選択すると
４行目A～N列見出しと選択行のA～Nを
メールで送信は可能でしょうか？

宜しくお願い致します。

回答No.1

kybo · ベストアンサー

以下のページを参考にBASPを使うと、
http://www.officetanaka.net/excel/vba/tips/tips45.htm
こんな感じじゃないかなと思います。

Sub mscro()
Dim bobj, msg As String, C As Range, T As String
Dim Server As String, Mailto As String, MailFrom As String, Subject As String, Body As String
Set bobj = CreateObject("basp21") ''BASP21オブジェクト
Server = "smtp.xxxxx.com" ''SMTPサーバー
Mailto = Range("AA3").Value & vbTab & "cc" & vbTab & Range("AD3").Value ''宛先
MailFrom = "info@xxxxx.com" ''差出し人
Subject = Range("AB3").Value ''タイトル
For Each C In Range("A4:N4")
T = T & vbCrLf & C.Value & ":" & Cells(ActiveCell.Row, C.Column).Value
Next C
Body = Range("AC3").Value & vbCrLf & T ''本文
msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, "")
Set bobj = Nothing
If msg <> "" Then MsgBox msg
End Sub

別途BASPはインストールする必要があります。
http://www.hi-ho.ne.jp/~babaq/basp21.html

お礼

ありがとうございます。
一筋縄にはいかないですね。
インストールは、こちらの都合上、
出来ませんが、今後の参考とさせていただきます。