• 締切済み

VB6.0とBASP21を用いてyahooメールからメール送信する方法

VB6.0とBASP21を用いてyahooメールからメール送信をしようとしているのですが、 実行すると、「SMTP AUTH password invalid」というエラーが出てしまいます。 色々調べてみましたが、原因が全く判りません。 分かる方が居ましたらご教授願います。 [環境] WindowsXPおよびWindows2000 IIS設定済 VB6.0とBASP21インストール済 [パラメータ] strSendAddress：ドメイン名を含むEメールアドレス strMyAddress　：user@yahoo.co.jp:pass の形式 strTitle　　　：メール件名：現在は半角文字（動作確認でき次第、全角文字に変更予定） strPrint　　　：メール本文：全角文字 strFileName　 ：現在はヌル文字列。"" [ソース] strRet = objBasp.SendMail("smtp.mail.yahoo.co.jp:587", strSendAddress, strMyAddress & vbTab & "CRAM-MD5", strTitle, strPrint, strFileName) If Len(strRet) Then MsgBox strRet End If

みんなの回答

  • dsuekichi
  • ベストアンサー率64% (171/265)
回答No.2

> Cant connect Server 11004” > というエラーが出てしまいます。 これは、メッセージどうり「サーバに接続できない」と言う意味です。 サーバ指定（第１引数）に誤りがあるか、または通信環境の所為でサーバ名が解決できない/接続が拒否されているのでは？ 普通のメールクライアント（Outlookとか）で、上記の設定をした場合、メール送信できますか？

TAKA797979
質問者

補足

メーラでの送受信は正常にできるんですけどね・・・。 昨夜試したら、 “Cannot connect Server 11001”というエラーに変わりました。 googleでこのメッセージを検索しても英文だらけでさっぱりです。。。

  • dsuekichi
  • ベストアンサー率64% (171/265)
回答No.1

> strMyAddress　：user@yahoo.co.jp:pass の形式 > strRet = objBasp.SendMail("smtp.mail.yahoo.co.jp:587", strSendAddress, strMyAddress & vbTab & "CRAM-MD5", strTitle, strPrint, strFileName) となってますが・・・ （http://www.hi-ho.ne.jp/babaq/basp21.html#0002） を見ると、第３引数は、 > "ユーザ名:パスワード" & vbTab & "認証方式" > ●SMTP AUTH を使う 2000.07.20 New! > mailfrom = "<hoge@barbaz>" & vbTab & "user1:pass1" ' AUTH LOGIN > mailfrom = "<hoge@barbaz>" & vbTab & "user1:pass1" & vbTab & "CRAM-MD5" ' AUTH CRAM-MD5 となってますけど・・・

TAKA797979
質問者

補足

回答有難うございます。 strMyAddressを "<user@yahoo.co.jp>" & vbTab & "user:pass" "<user@yahoo.co.jp>" & vbTab & "user:pass" & vbTab & "CRAM-MD5" "<user@yahoo.co.jp>" & vbTab & "user@yahoo.co.jp:pass" "<user@yahoo.co.jp>" & vbTab & "user@yahoo.co.jp:pass" & vbTab & "CRAM-MD5" などを試してみましたが、どれも Cant connect Server 11004” というエラーが出てしまいます。

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

関連するQ&A

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

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

  • edmaxで送信できなくなりました

    受信はできるのですが送信するとエラーが出ます smtpログに 220 smtp18.mail.bbt.yahoo.co.jp ESMTP EHLO smtp.mail.yahoo.co.jp 250-smtp18.mail.bbt.yahoo.co.jp 250-AUTH LOGIN PLAIN 250-PIPELINING 250 8BITMIME AUTH CRAM-MD5 504 auth type unimplemented (#5.5.1) socketログに Connect smtp.mail.yahoo.co.jp 25 EHLO smtp.mail.yahoo.co.jp 0 AUTH CRAM-MD5 0 とでます。どういう意味なのでしょう？ どうすればなおるか教えてくださいお願いします

  • メールの送信について

    ASPを使ってwebアプリ見たいなのを作ろうとしています。 データの登録時に予め登録されてているユーザに登録された旨を伝える メールを送信したいです。 いろいろ試した結果、直でbsap21を呼び出すのではなく、bsmtp.dllを 呼び出して送信するほうが動きがいい（というか、basp21のほうはSMTPサーバに接続しない）ので、その方向で行きたいのですが。。。 見つけたコードが以下です。 ------------------------------------------------------------ Private Declare Function SendMail Lib "bsmtp"_ (strServer As String, strTo As String, strFrom As String, _ strSubject As String, strBody As String, strFile As String) As String Public Function SendViaBASP() As String Dim strMailServer As String: strMailServer = "***.***" Dim strFrom As String: strFrom = "hoge@hoge.com" Dim strTo As String: strTo = "hoge@hoge.com" Dim strBcc As String: strBcc = "" Dim strToBcc As String: strToBcc = "" Dim fHTML As Boolean: fHTML = False Dim strSubject As String Dim strBody As String Dim strAttachments As String: strAttachments = "" Dim strRet As String strSubject = "BASP21" strBody = "このメールは、BASP21経由で送信しました." If Len(strTo) Then strToBcc = strTo Else strToBcc = strBcc End If If fHTML Then strToBcc = ">Content-Type: text/html; charset=iso-2022-jp" _ & vbTab & strToBcc End If strRet = SendMail(strMailServer, _ strToBcc, strFrom, strSubject, strBody, _ strAttachments) SendViaBASP = strRet End Function --------------------------------------------------------------- で、これをACCESSのモジュールに登録し、実行したところ問題なく 動くのですが、これをASPに組み込む方法がわかりません。 ACCESSはデータの登録先ではありますが、常に起動しているわけでは ないので、おそらくモジュールとした場合、動かないですよね？ ASPから上記のコードを動かすには、どうしたらいいでしょうか。 普通にASPの中（<%～%>）に入れると「ステートメントの末尾が不正」 とのメッセージがでてしまいます。 どうかよろしくお願いします。

  • Becky! で ヤフーメールを送信できません。

    Becky!2.31 で ヤフーメールを送信できません。 送信をすると 「530 Sorry, please use SMTP-AUTH instead - for help goto 　http://help.yahoo.co.jp/help/jp/mail/whatisymail/whatisymail-51.html」 のエラーが出ます。 それを元にいろんな質問やサイトも合わせて読みましたが、成功に至っていません。 ほかにここも設定は必要だ！というところはありますでしょうか？ 設定は下記のとおりです。SMTP認証のID,PWはハズしても試しています。 メールアドレス　ヤフーID@yahoo.co.jp POP3サーバー　pop.mail.yahoo.co.jp SMTPサーバー　smtp.mail.yahoo.co.jp ユーザーID　ヤフーID パスワード　ヤフーPW 認証方式　●標準 SMTP: 587 レSMTP認証 レCRAM-MD5 ユーザーID　ヤフーID パスワード　ヤフーPW レPOP before SMTPを使用 レESMTPを使用

  • BASP21を使ってファイル添付メールを送信したい

    basp21 pro（http://www.b21soft.co.jp/basp21/）でメールにファイル添付したいのですが エクセルファイルを添付したいのですが、SendMailで型が一致しませんというエラーが出ます。 教えてください＞＜； ファイル名に指定しているセルCells(i, 28) は　=AC3&"\"&AD3　の様に場所を指定しています （AD3 部分が変わっていくので。ここを変えた方がいいでしょうか？） 内容は一部省略しておりますが　↓です Sub SendMailMacro1() Dim szServer, szTo, szFrom, szSubj, szBody, ret, szLogfile, z As String Dim szFile As Variant Dim i, j As Long Dim fs, a As Object On Error GoTo Err_Handler Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("C:\Program Files\log.txt", True) szServer = Worksheets("maildata").Cells(10, 2) szFrom = Worksheets("maildata").Cells(8, 2) With Worksheets("senddata") i = 2 Do While .Cells(i, 1) <> "END" If .Cells(i, 1) = "1" Then If .Cells(i, 3) = "1" Then szTo = .Cells(i, 5) & vbTab & "bcc" & vbTab & .Cells(1, 36) End If szBody = .Cells(i, 26) szSubj = .Cells(i, 25) szFile = .Cells(i, 28) ret = SendMail(szServer, szTo, szFrom, szSubj, szBody, szFile) If Len(ret) <> 0 Then a.WriteLine (Date & " " & Time & " " & ret & "－" & szTo & "－" & szBody) MsgBox "エラー　・・・　" & i & "行目　( " & ret & ")" .Cells(i, 1) = "エラー" Else .Cells(i, 1) = "完了" End If End If i = i + 1 Loop End With MsgBox "終了" GoTo Exit_sub Err_Handler: MsgBox Err.Description, vbCritical, "Error" GoTo Exit_sub Exit_sub: a.Close 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認証を採用しています。

  • 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

  • メール送信について　「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

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する