• 締切済み

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認証を採用しています。

みんなの回答

  • notnot
  • ベストアンサー率47% (4847/10260)
回答No.1

ロリポップのマニュアルを見ると、SMTP AUTH は CRAM-MD5 のようですが。なので、 "myname@domain.com\tmyname@domain.com:password\tCRAM-MD5",//(3) MailFrom ※ では？

tsuruharu
質問者

補足

それもやってみました。 ですが同じエラーになります。 AUTH CRAM-MD5 error 535 Authentication failed for myname@domain.com - auths

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. C・C++・C#

関連するQ&A

  • BASP21メール送信（SMTP-AUTH認証）ASP

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

  • 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を使って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メール送信（SMTP-AUTH認証）ASP

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

  • メール送信について　「Net::SMTP」or「Basp21」

    メール送信機能部分を作成しているのですがちょっと困ったことが 起きましたので、みなさんのお力を貸していただければと思います。 環境は、本番はFreeBSDなのですが、設定が完了していない為 ウチにありますWinNTでCGI部分だけ動作させています。 その為、本番機ではSendMailが使えるのですが、ウチのサーバーでは 使えないため、Net::SMTPを使って送信しようと思ったのですが・・・。 ウチのメールサーバー（ExchangeServer)でスパムメール対策のため セキュリティを掛けているので、認証されていないとメールが 送信されない設定になっています。 Net::SMTPやBasp21の設定方法が載っているページはたくさんあるのですが 認証用のIDとPWをどこに書き込むのかが書いてあるサイトが見つけられませんでした。 ASP（ActiveServerPages)でBasp21を使った時は、Fromのアドレスの後ろに IDとPWを入れれば、認証されたので同様にしてみたのですが、送信されませんでした。 これだけの情報で回答いただけるかわかりませんが、みなさんにお力を貸して いただければ幸いです。 どうか、宜しくお願いしますm(_ _)m

    • ベストアンサー
    • Perl
  • メール送信について

    BASPを使用しないコーディングを行いたく、下記サンプルのとおり記述すると送信はうまく行えました。 そこで、追加機能としてSMTPサーバーのタイムアウトの設定を行いたいですが、方法はないでしょうか？ ちなみに、BASPのServerプロパティでは、ポート番号と通信タイムアウト値（秒単位）が指定可能なようです。 よろしくお願いします。 Dim from As String = "from@microsoft.com" Dim mailto As String = "to@microsoft.com" Dim subject As String = "UtilMailMessage001" Dim body As String = "<html><body>UtilMailMessage001 - success</body></html>" SmtpMail.SmtpServer = "MyMailServer" SmtpMail.Send(from, mailto, subject, body)

  • 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に詳しい方!!

    まったくの初心者です。 送信するメールにファイル添付されるようにしたいのですが、 どうしてもエラーが出てしまいます。 どこが間違えていますか？ ----------------------------------------------------------------------------------------------------------- 'Basp21でメールを送信します。 Set Basp = Server.CreateObject("basp21") tb = Request.TotalBytes br = Request.BinaryRead(tb) fn = Basp.FormFileName(br,"includedFile") fpath = Mid(fn,InstrRev(fn,"\")+1) leng = Basp.FormSaveAs(br,"includedFile",fpath) End If rc = Basp.SendMail(host, mailTo, mailFrom, subject, body, fpath) If rc = "" Then Response.Write "送信完了" Else Response.Write "送信失敗:" & rc End If set basp = Nothing

  • basp21 Proでのメールの暗号化について

    basp21で暗号化したメールを送信することを考えています。 そこで質問なのですが、アプリケーションガイドを見ていたところ メール送信側---SMTPサーバ---POPサーバ---メール受信側 　　　　　　 1 　　　　　 2 　　　　 3 とすると1と3に関しては書かれているのですが、2はどうなるのでしょうか？ 暗号化する方法はないのでしょうか？ 2が重要なのですが。 詳しい方ご返答の方、お願いします！！！

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する