Accessから複数アドレスにメール送信

質問

かなり初歩的な質問なのかもしれませんが、どうしても進まないのでどなたかご教授お願い致します。

access2003からBasp21を使用してメール送信フォームを作ってます。複数アドレスに一括で送れるように、宛名フォームから氏名を選択(例として3件)すると、メール送信フォームの「ｂｃｃ」ボックスに、

"bcc" & vbTab & "abc@xx.com" & vbTab & "def@xx.jp" & vbTab & "ｇhi@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] にアドレスを代入して送信できるようにするにはどうすればいいのでしょうか？

回答No.1

NotFound404 · ベストアンサー

"bcc" & vbTab & "abc@xx.com" & vbTab & "def@xx.jp" & vbTab & "ｇhi@xx.com"
↑テキストボックスに入れた『vbTab』がタブコードとして
認識されていないから。ダブルクォーテーションも必要ありません。
>・・・
>の所を、
>Mailto ="bcc" & vbTab & "abc・・・
にすれば送信できるのですから
msgbox mailto とか イミディエイトウィンドウで確認すると
bcc□abc@・・・になってるハズです。
（Tabコードは見えないので□で代りに表しました）

テキストボックス中でタブキーを押すと次に飛んで行ってしまうので
bcc abc@xx.com def@xx.jp ｇhi@xx.com
と半角スペース区切りで入れておいて
Mailto = replace(Me!bcc," ",vbtab)
とか
Mailto = replace(Me!bcc,chr(32),chr(9))
では？

お礼

早速の回答ありがとうございます。
Mailto = replace(Me!bcc," ",vbtab)

で出来ました。
独学でここまで作ってきたので基本的な事が分らず困っていました。
本当に有難うございました。