Accessから複数アドレスにメール送信
かなり初歩的な質問なのかもしれませんが、どうしても進まないのでどなたかご教授お願い致します。
access2003からBasp21を使用してメール送信フォームを作ってます。複数アドレスに一括で送れるように、宛名フォームから氏名を選択(例として3件)すると、メール送信フォームの「bcc」ボックスに、
"bcc" & vbTab & "abc@xx.com" & vbTab & "def@xx.jp" & vbTab & "ghi@xx.com"
と入るようにし、送信ボタンクリックで下記のようなコードを書いてます。
Dim bobj As Object
Dim svname As String
Dim ID As String
Dim Mailto As String
Dim MailFrom As String
Dim subj As String
Dim Body As String
Dim pass As String
Dim msg As Variant '送信チェック用
'SMTPサーバ名:ポート番号:タイムアウト秒
svname = Me.[smtpサーバー] & ":" & Me.[ポート番号] & ":" & Me.[タイムアウト秒]
'ログインID
ID = Me.[ログインID]
'パスワード
pass = Me.[パスワード]
'オブジェクトを作成
Set bobj = CreateObject("basp21")
'宛先
Mailto = Me.[bcc]
'送信者
MailFrom = Me.[送信者] & "<" & ID & ">" & vbTab & ID & ":" & pass
'件名
subj = Me.[件名]
'本文
Body = Me.[テキスト169]
'メッセージの送信
msg = bobj.SendMail(svname, Mailto, MailFrom, subj, Body)
' 送信チェック
If msg <> "" Then
MsgBox "送信できませんでした。" & vbCrLf & msg, vbOKOnly + vbCritical, "エラー"
Else
MsgBox "送信しました", vbOKOnly + vbInformation, "完了"
End If
これを実行すると、
「送信できませんでした。
555 5.5.4 Unsupported option: & to "bcc" & vbTab & "abc@xx.com" & vb」
というようなメッセージが出て送信できません。
Mailto = Me.[bcc]
の所を、
Mailto ="bcc" & vbTab & "abc@xx.com" & vbTab & "def@xx.jp" & vbTab & "fhi@xx.com"
にすれば送信できるのですが、送信先は毎回変わるので Me.[bbc] にアドレスを代入して送信できるようにするにはどうすればいいのでしょうか?
お礼
出来ました~。消せました! 確かにウィルスソフトを使用しています。 早々のご回答を有難うございました。