- ベストアンサー
エクセル2013 マクロを使用して指定範囲と見出しをメール送信する方法
- エクセル2013のマクロを使用して、指定範囲と見出しをメールで送信する方法を紹介します。
- 具体的には、A～N列に存在する見出しを選択し、5行目のA～Nを指定範囲としてメールを送信します。
- メールの内容は、定型文として設定したAB3を件名、AC3を本文に含め、受信側に送信されます。
- maron1010
- お礼率64% (38/59)
- Excel（エクセル）
- 回答数1
- ありがとう数8
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
以下のページを参考に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
お礼
ありがとうございます。 一筋縄にはいかないですね。 インストールは、こちらの都合上、 出来ませんが、今後の参考とさせていただきます。