• ベストアンサー
  • すぐに回答を!

BASP21メール送信(SMTP-AUTH認証)ASP

ご存知の方、宜しくお願いします。 あるプロバイダのメールサーバへBASP21を使用してメールの送信を 行いたいのですが、以下のエラーMSGが表示されて できません。 「エラー530 Sorry,Please use SMTP-AUTH instead」 outlook Expressだと問題なく送信できます。 outlook Expressの設定は ・送信メールサーバ このサーバは認証が必要・・・にチェック  受信メールサーバと同じ設定を使用する SMTPポートは「587」 BASPでは、 MailServer="xxxx.co.jp:587 mailfrom="user1:pass1" と設定しています。 詳しい方、宜しくお願いします。

共感・応援の気持ちを伝えよう!

  • 回答数1
  • 閲覧数8946
  • ありがとう数4

質問者が選んだベストアンサー

  • ベストアンサー
  • 回答No.1

> 「エラー530 Sorry,Please use SMTP-AUTH instead」  お使いのプロバイダではメールの送信に SMTP-AUTH (SMTP認証)が必要なようです。(OutlookExpressで「このサーバは認証が必要」にチェックが入っているのは、このSMTP認証を使うという意味です。)  つまり、BASP21でメールを送信するときも、このSMTP認証を使うように指定してあげなければいけないのです。 下記参考URLのページに > ●SMTP AUTH を使う 2000.07.20 New! という項目がありますので、その辺を参考にしていろいろ実験してみてください。

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

共感・感謝の気持ちを伝えよう!

質問者からのお礼

解決しました。ありがとうございました。

質問者からの補足

回答ありがとうございます。 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" 上記の通り設定しても同じエラーでした。 詳しい方、お願いします。

関連するQ&A

  • 続BASP21メール送信(SMTP-AUTH認証)ASP

    以前こちらのサイトでremon999さんの質問を拝見したのですが、 私も会社のメールサーバーからBASP21を使用してメールの送信を 行おうとすると認証が必要で同じようなエラーが発生し、回答にある とおりやってみたのですがうまくいきませんでした。  まったくの初心者なので回答を見てもよくわからないため もう少しわかりやすく教えていただければ助かります。

  • basp21でメールが2通送信される

    ASPからBASP21を利用してメールを送信しています。 その際、1つの宛先に対して2通のメールが送信される現象が発生しています。 下にソースを表示します。 メール内容は同一ですので、宛先をデータベースから取得し、Loop処理の中で宛先だけを変更して送信処理を行っています。 rec.Open scmd,,adOpenStatic,adLockReadOnly Set basp = CreateObject("basp21") logfile = "D:\" svname = "xxx.xxx.xx.xx" mailfrom = "xxxx@xxx.xx.xx" subj = "件名" body = "内容" Do Until rec.EOF   mailto = rec("email")   msg = basp.SendMailEx(logfile,svname,mailto,mailfrom,subj,body,"")   If msg <> "" Then     エラー処理   End If   rec.MoveNext Loop この処理を通すと、1つの宛先に2通づつメールが送信されます。 皆様のお力をお貸しください。お願いします。

  • BASP21を使ってEXCELからメールの送信

    BASP21を使ってEXCELからメールの送信をしたいのですが、できません。 自分なりに調べた結果、下記のコードになったのですが、どこかおかしいのでしょうか? エラー表示は次になります。 530 5.7.1 client was not authenticated from メールアドレス よろしくお願いいたします。 Sub ボタン2_Click() ''[送信]ボタン Dim bobj, msg As String, i As Long Dim Server As String, Mailto As String, MailFrom As String Dim Subject As String, Attach As String, Body As String On Error Resume Next Set bobj = CreateObject("basp21") ''BASP21オブジェクト ''BASP21がインストールされているかどうかを判定する If Err = 429 Then MsgBox "BASP21がインストールされていません。", vbCritical Exit Sub End If ''必須データのチェック Server = "mail.○○○.com:587:60" ''SMTPサーバー Mailto = "○○○@hotmail.co.jp" ''宛先 MailFrom = "△△△@×××.co.jp" ''差出し人 Subject = "更新連絡" ''タイトル Body = "システムが更新しました" ''本文 msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, Attach) Set bobj = Nothing If msg <> "" Then MsgBox msg, vbExclamation Else MsgBox "メールを送信しました。", vbInformation End If End Sub

  • 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 ところが受信を実行するとそれ以降送信が可能になります。 プログラムが走っている間は良いのですが一度閉じてまた立ち上げると同じ症状になります。 その都度受信をするのは大変ですので何とかしたいのですがご存じの方教えてください。 よろしくお願いします

  • basp21を利用した送信

    basp21を利用した送信 エクセル2002使用です。 VBAを利用してbasp21.dll(Proではない)を使ってメール送信ををしたいのですが、 フリーソフト版のbasp21.dllで、(POP before SMTP)は利用できるのでしょうか? sub test() dim bobj as Object dim kekka as string, strkk as string, strjikan as string dim mailServer as string, mailFrom as string, mailTo as string, MailSubject as string, mailBody as string, mailFiles as string Set bobj = CreateObject("basp21") mailServer = "mail.***.com"    ’←(POP before SMTP)にしたいのです。 mailFrom = "***@***.com" mailTo = "***@***.com" MailSubject = "タイトル" mailBody = "本文" mailFiles = "d:\autocsv\wddc\" & strkk & strjikan & ".doc" kekka = bobj.SendMail(mailServer, mailTo, mailFrom, MailSubject, mailBody, mailFiles) end sub よろしくお願いします。

  • BASP21でメール送信で認証エラー

    BASP21(http://www.hi-ho.ne.jp/babaq/basp21.html)を使って VC++でメール送信させようとしています。 BSendMail関数を使って BSendMail( "smtp.lolipop.jp:587", // (1) SMTPServer ※ "myname@ezweb.ne.jp", // (2) MailTo "myname@domain.com myname@domain.com:password", // (3) MailFrom ※ "件名" "本文", NULL, errmsg ) のように書いたのですが次のようなエラーになります。 AUTH LOGIN error 535 Authentication failed for myname@domain.com - auths 認証失敗とのことですが、Outlookから接続すると正常にメール送信できるので (3)で指定したユーザ名とパスワードが間違っているとは思えません。 自分では(3)の書式が間違えているのではないかと思っていろいろ書式を 変えてやってみたのですがどうもうまくいきません。 どなたかご教示をお願いします。 ※ 接続先(ロリポップ)のSMTPサーバーはポート587番を採用しています。 ※ 接続先(ロリポップ)のSMTPサーバーはSMTP認証を採用しています。

  • Excel VBA basp21でメール送信エラー

    メール送信エラーとなってしまいます。 ”Cant connect Server 11004” 同アカウントでメーラーからの送受信は成功しております。 原因はSMTP設定の関係だと思うのですが、どのようにコードを書き足せば良いのでしょうか。 また参照設定は完了しています。 ご存知のかたご回答をよろしくお願いします。 コードは以下です。 Private Sub cmd送信_Click() Dim bobj As Object Dim svname As String Dim id As String Dim pass As String Dim msg As Variant '送信チェック用 Dim strMLadr As String Dim strDPadr As String Dim strPW As String 'SMTPサーバ名:ポート番号:タイムアウト秒 svname = "サーバー:587:60" 'ログインID id = "" 'パスワード pass = "" 'オブジェクトを作成 Set bobj = CreateObject("basp21") '宛先 mailto = "" '送信者 strMLadr = "" '(送信者のメールアドレス' strDPadr = "テスト" '(送信者の表示文字列) strPW = "" '(送信者メールアドレスのパスワード) mailfrom = strDPadr & "<" & strMLadr & ">" & vbTab & id & ":" & strPW '件名 subj = "送信テスト" '本文 改行はvbCrLf body = "おはようございます。" & vbCrLf & "今日は良い天気ですね。" 'メール送信 msg = bobj.SendMail(svname, mailto, mailfrom, subj, body, "") ' 送信チェック If msg <> "" Then MsgBox "送信できませんでした。" & vbCrLf & msg, vbOKOnly + vbCritical, "エラー" Else MsgBox "送信に成功しました。", vbOKOnly + vbInformation, "完了" End If End Sub

  • BASP21でメールが送信できない

    ASPでBASP21を使用してメールを送信しようとしたのですが、SMTPサーバーが停止していたため処理結果が取得できませんでした。 このような場合、何か良い対策はありませんでしょうか。 ご教示の程よろしくお願いいたします。 以下にソースの概要を記載いたします。 Dim objBasp21 Dim strMailSendErr Set objBasp21 = CreateObject("Basp21") strMailSendErr = objBasp21.SendMail(パラメータ) '↑↑↑ メールサーバが停止している場合ここで処理が止まってしまう? If strMailSendErr <> "" Then  'エラーの場合の処理 End If

  • yahooのフリーメールでPHPでSMTP-AUTH認証の仕方がわかりません。

    PHPを始めたばかりの初心者です。yahooのフリーメールでPHPでSMTP-AUTH認証の仕方がわかりません。どなたか経験された方、具体的なソースを教えて頂きたいのですが・・。 php.iniのportを587にしてもSMTP-AUTH認証ではじかれてるみたいなんです。ぐぐったのですが、あまり具体的な内容が書かれてなかったもので・・。 SMTP server response: 530 Sorry, please use SMTP-AUTH instead - for help go to http://help.yahoo.co.jp/help/jp/mail/whatisymail/whatisymail-51.html というエラーが出るのでそのページで調べても素人なもので、よくわからなくて・・。 すいません、宜しくお願い致します。

    • ベストアンサー
    • PHP
  • メール送信時の認証について

    サーバー変更に伴い、メール送信時の認証が必要となりました。 ところが、これまで使っていたAL-mailのツール-オプション-アカウント-高度な設定-メール送信時に認証するを設定すると、SMTP Authentication(CRAM-M05)に対応していませんというエラーがでてしまいます。 Outlook expressでツール-アカウント-メール-プロパティ-サーバ-で送信メールサーバ欄でこのサーバーは認証が必要にチェックを入れると問題なく送信できます。 これはAL-mailとOutlook expressでは認証の方法が違うのでしょうか? これまでAL-mailを使っていたので他のメーラーに移行したくないのですが、なにかよい対策があれば教えてください。