BASP21のエラーについて

質問

Windows　XP　Excel2003でBASP21を使用してメールを送信させています。
次のようなコードを使用して送信すると
エラーの内容
"xxxsmtp.mail.yahoo.co.jp Closig transmission channel You must be pop-aut"
翻訳で
”あなたはホップアップ同型を伝送チャネルにする必要があり”

Sub AB_jidou()
Dim bobj, msg As String
Dim Server As String, Mailto As String, MailFrom As String, Subject As String, Body As String
Set bobj = CreateObject("basp21") ''BASP21オブジェクト
Server = "xxxsmtp.mail.yahoo.co.jp" ''SMTPサーバー
Mailto = "xxxx8743@xxxx.ne.jp"
MailFrom = "xxxxxx0@xxx.ne.jp" ''差出し人
Subject = " 取引情報" ''タイトル
Body = Sheets(1).Range("U34") ''本文
msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, "")
Set bobj = Nothing
If msg <> "" Then MsgBox msg
End Sub
ところが受信を実行するとそれ以降送信が可能になります。
プログラムが走っている間は良いのですが一度閉じてまた立ち上げると同じ症状になります。
その都度受信をするのは大変ですので何とかしたいのですがご存じの方教えてください。
よろしくお願いします

回答No.1

eku_abo · ベストアンサー

私もBASP21を使用している者です。

BASP21のサイトの引用になりますが、SMTP AUTH(認証)を使ってみては如何でしょうか？

-------------------------------------------------------

mailfrom [in] : 送信元メールID。SMTP AUTH(認証)を使う場合、タブで区切って
ユーザ名とパスワードを指定できます。
"ユーザ名:パスワード" & vbTab & "認証方式"
認証方式は、AUTH LOGIN (省略値)と AUTH CRAM-MD5 が使えます。
"user1:pass1"
"user1:pass1" & vbTab & "LOGIN"
"user1:pass1" & vbTab & "CRAM-MD5"
バージョン20010911よりAUTH PLAINサポート。
"user1:pass1" & vbTab & "PLAIN"

お礼

mailfrom [in] : 送信元メールID。SMTP AUTH(認証)
で次のように変更した結果エラーがでなく問題なく送信することができるようになりました。
20回ほどのテストで問題ありませんので大丈夫だと思います。
MailFrom = "差し出し人<xxxxxx0@xxx.ne.jp>" & vbTab & "ユーザー名:パ
スワード"
大変助かりましたありがとうございます。

補足

ご回答ありがとうがざいます。
Excel初心者で上記のプロシージャも引用したものでもう少し具体的コードでお願いできませんか、
それとBASP21のサイトを教えていただければ幸いです。
宜しくお願いします。

回答No.2

eku_abo

コード的には下記になります。
認証形式が１～４の様にいくつかありますので、試してみるといいかと思います。

１、MailFrom = "差し出し人<xxxxxx0@xxx.ne.jp>" & vbTab & "ユーザー名:パスワード"
２、MailFrom = "差し出し人<xxxxxx0@xxx.ne.jp>" & vbTab & "ユーザー名:パスワード" & vbTab & "LOGIN"
３、MailFrom = "差し出し人<xxxxxx0@xxx.ne.jp>" & vbTab & "ユーザー名:パスワード" & vbTab & "CRAM-MD5"
４、MailFrom = "差し出し人<xxxxxx0@xxx.ne.jp>" & vbTab & "ユーザー名:パスワード" & vbTab & "PLAIN

BASP21のサイトはこちらです。

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

お礼

No.1で説明のとおり成功しました。
大変助かりましたありがとうございます