エクセルで一括メール送信

質問

エクセルで名簿を管理しています。

メールアドレスも入れていますが，同じ内容の文をＢＣＣで一度に送りたいのですが，やり方がわかりません。

一から詳しくお教え頂けたら助かります。

回答No.5

kamicha1

No.3の回答者です。

> 難しくてわかりません。小さい文字でかかれている部分をコピーしてどこかに貼り付けるのですか？

ご紹介したのは、ExcelVBAを使う方法です。
参考URLに、Excelのサンプルがダウンロードできるページが紹介されています。
Excelからメールを送るには、VBAができないと難しいかもしれません。

回答No.4

imogasi

Sub SendMailSamp1()
Dim myRecipients
For i = 1 To 2 '何通・人の数字に変える
myRecipients = Workbooks("aaa15.xls").Worksheets("Sheet2").Cells(i, "A")
ActiveWorkbook.SendMail Recipients:=myRecipients, _
Subject:="今日の会議の資料です!" & i, ReturnReceipt:=True '---(2)
Next i
End Sub
エクセルVBAです。上記コードを、添付するエクセルブックのVBE標準モジュールにコピペします。
ブックaaa15.xlsのSheet2のA列に自分のメイルアドレスが２個入っています。それのブックを開いておいて
これを実行すると、自分当てのメールが２通届きました。
意外に簡単にプログラムでメールは送れます。
ただ警告メッセージが毎通出てくるのですが。
Subject:=もSheet2のB列に入れておけば、Cells(i,"B")をセットして各人当てに変化させられます。
（１）ご質問者のニーズに合いますでしょうか
（２）本番に合わせて、上記コードをどう修正したら良いかわかりますでしょうか、
（３）やたらメールを送れないので、テストが難しい
自信ないですが参考になれば。

回答No.3

kamicha1

私は、BSMTP.DLLを使って同じようなことをしています。
次のURLにExcelのメール送信サンプルがあります。
http://www.hi-ho.ne.jp/babaq/vbtips.html

参考URL：

http://www.hi-ho.ne.jp/babaq/vbtips.html

お礼

回答ありがとうございます。

難しくてわかりません。小さい文字でかかれている部分をコピーしてどこかに貼り付けるのですか？

回答No.2

Gin_F

メール送信と一言で言っても、いくつか方法があります。

まずは、前提条件・仕様を決め、それに合わせてどの方法を使うのか？を考える必要があると思います。

○環境（OS・メーラ）
○メーラに送信歴を残す必要があるのか？
○メールの送信までさせるのか、それとも作成画面に表示させるまででいいのか？

など。

回答No.1

noname#176215

利用されているメール送信ソフトに メールアドレスを
インポートする必要があります。データを CSV で保存
して下さい。

それをメール送信ソフトからインポートします。
あとは該当する Excel のファイルを添付して BCC に
インポートしたアドレスを入れて 自分宛に送信すれば
OK です。

表の構成が分かりませんし どのメール送信ソフトを利
用されているかも分かりませんので とりあえずはこの
へんで。