初めての店舗開業を成功させよう>>

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

4行目 A~N列に見出しがあります。
例えば 5行目A~Nを範囲選択して下記 AA3 または AD3宛にメールを送信します。
To: AA3 (メアド入力済)
件名:AB3 (定型文入力済)
本文:AC3 (定型文入力済)
Cc: AD3 (メアド入力済)

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

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

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

宜しくお願い致します。

A 回答 (1件)

以下のページを参考にBASPを使うと、


http://www.officetanaka.net/excel/vba/tips/tips4 …
こんな感じじゃないかなと思います。

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
    • good
    • 0
この回答へのお礼

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

お礼日時:2014/10/24 07:24

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング