• 締切済み

BASP21送信エラーVB.NET

環境 VB.NET(2003)+BASP21(フリー版)+Windows2003Server+SQLSERVER2000 処理内容 1.DBよりデータを抽出しテキストファイルを作成 2.テキストファイルを添付しBASP21のsendmail(ログモード)にて送信 　SMTPはSSL認証ではありません 上記プログラムをWindowsのタスクにて毎朝7:30に実行 　現在タスク登録時のユーザーはパスワード付でAdmin権限を与えてあります。Windowsはログオフ状態です。 　朝7:30頃にサーバーで起動しているプログラムはありませんので高負荷の状態ではありません。 7割がた正常終了するのですが下記MSGにて送信エラーが発生しています。 送信エラー時に即効でログインし手動でプログラムを実行すると正常終了します。(以下LOGファイルより） failed 530 authentication required for relay (#5.7.1) from XXXXXXX ログオン状態＋スクリンセーバーＯＦＦの状態でも実験してみたのですがエラー発生する場合があります。

みんなの回答

回答No.1

肝心の質問部分がないので、何を聞きたいのか不明です。。。 送信は同じ宛先・同じ中身でも成功するときと失敗するときがあるのでしょうか。だとすれば、プログラム側ではなくメールサーバー側に原因があるような気がします。 エラーメッセージを見る限り、リレーに失敗しているようですが、POP Before SMTPが設定されていたりしませんか？ BASP21だけでなく、メーラーでテストしてみたり、TELNETで直接SMTPコマンドを送ったりしてエラーが発生するかどうか確かめてみてはいかがでしょう？

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

関連するQ&A

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

    まったくの初心者です。 送信するメールにファイル添付されるようにしたいのですが、 どうしてもエラーが出てしまいます。 どこが間違えていますか？ ----------------------------------------------------------------------------------------------------------- '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のアップロードについて

    現在、BASP21を用いたファイルのアップロードを行うプログラムを作っております。 そこで困ったことがあり、質問させていただきます。 作成しているプログラムでは、ASPでBASP21(Proではない)を用いて大きなサイズのファイル(動画ファイルなど、最大で約250MB程度のファイル)をアップロードしたいと考えております。 しかしながら、50MB程度であればアップロード可能なのですが、70MB超のファイルになってくると「関数が｜を返しました。」というエラーが発生してしまいます。 どうも、 ------------------------------------------------------ <% fbin=Request.Totalbytes barray=Request.BinaryRead(fbin) … … %> ------------------------------------------------------ の「barray=Request.BinaryRead(fbin)」の部分でエラーが出ているようでした。 これは、BASP21のアップロード上限をオーバーしているためのエラーなのでしょうか？ そこで、このエラーの解決策、もしくはBASP21(Proではない)での最大約250MB程度のファイルをアップロードする他の方法があれば教えていただきたく、書き込みさせていただきました。 (フリーで使うことのできる、BASP21以外を用いた方法でも構いません！) 質問にお答えいただけると幸いです。 よろしくお願いいたします。

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

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

  • ASP＋basp21でメルマガ送信

    ASP＋basp21でメルマガ送信プログラムを作っています。 たくさんの件数を送信すると、100件ほどでタイムアウトしてしまいます。 一定時間ごとにサーバーを開放しながら最後まで送信したいのですが、どのような方法がありますでしょうか。 初歩的な質問で申し訳ありませんが教えてください。 なお、 <meta http-equiv="Refresh" は試してみたのですが、前のページにあるフォームから引数を渡しているので、うまくいきませんでした。 よろしくお願いいたします。

  • BASP21について

    こんにちわ Windows NT4.0 ワークステーションのファイルを サーバにFTP転送したいのですが、 WSHで転送する場合、BASP21しかないのでしょうか？ また、BASP21は、インストールが必要なんですよね デフォルトの状態で転送できる方法をご存知の方は 教えてください。 よろしくお願いします。

  • ”0xc0000142”のエラーでタスクスケジューラ実行中で固まる

    WinXPのタスクスケジューラでバッチが実行できません。 “タスク実行中”で止まってしまい、”0xc0000142”のエラーです。 タスクスケジューラから手動でタスクを実行出来、さらにログオンしていれば設定時間が来ると正常にジョブが流れます(当然、スケジューラはログオンしていなくても流れる様にチェックボックスは設定済み) バッチのログを取って調べてみると、MsAccessを起動する個所で止まっています。その行をコメントにすると正常終了。 アプリケーションの初期化失敗みたいです。Accessのファイルを別のものに替えてもダメ。レジストリを開いてサイズチェックOK。同サーバでAccessを起動する他のジョブは正常終了。正常に流れるバッチをコピーしてファイル名を変えてもダメ。 手詰まり状態です。どうすればいいか教えてください。

  • BASP21を利用してリネームファイルアップロード

    Set basp = Server.CreateObject("basp21") を利用して、 FilePath = Server.MapPath("../pictures") & "\" & GyoushaBangou & "\" & FilePath leng = basp.FormSaveAs(postData,"UpFile",FilePath) のプログラムを使って、ファイルアップをしてます。 ローカルのデータ画像のアップに際して、同じ画像を上げる事が無いように、ファイル名に日付けなどを付け加え、名前を変えて同じ名前のファイルを上げる事が無いようにしたいのです。 現在の仕組みでは、リネームされない状態でアップロード出来て、アップロードした名前はデータベースに記録されるようになっています。 出来る方法を教えていただけないでしょうか！ よろしく、お願いします。

  • 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

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する