質問: objbasp21.sendmail(パラメータ) '↑↑↑ メールサーバが停止している場合ここで処理が止まってしまう? if strmailsenderr <> "" then 'エラーの場合の処理 end if
回答: メールサーバが止まっていてもエラーが返されるだけだと思いますけど・・・? time out とか not connect とかが返ってきたように記憶しています。 既存のメーラで送っても同じようなエラーが返されますか? 失礼ながら『パラメータ』の所で何か問題発生かも。 『止まる』事は無かったように記憶しています。 『メールサーバが停止している』事は確認されましたか? 以下、basp21のヘルプとほとんど一緒ですが (^^ゞ sub sendmailq() 'http://www.hi-ho.ne.jp/babaq/ dim objbasp21 as object 'basp21 dim strmessage as string '実行メッセージ dim strsvname as string 'smtpサーバ dim strmailto as string '宛先メールid dim strmailfrom as string '送信元ユーザid dim strsubj as string '表題 dim strbody as string '本文 dim strfiles as string '添付ファイル on error goto acerr '----( オブジェクト生成 )--------------------------------------- set objbasp21 = createobject("basp21") '----( パラメータ設定 )----------------------------------------- strsvname = "mail.goo.ne.jp" 'smtpサーバ名 strmailto = "あんたへ<*********@mail.goo.ne.jp>" '宛先メールid strmailfrom = "私" & "<*********@mail.goo.ne.jp>" '送信元ユーザid strsubj = "テスト発信" '表題 strbody = "送ってみました" & vbcrlf & "届いた" '本文 strfiles = "c:\windows\clock.avi" & vbtab & "c:\windows\winnt.bmp" '添付ファイル strmessage = objbasp21.sendmail _ (strsvname, strmailto, strmailfrom, strsubj, strbody, strfiles) '----( エラー判断 )----------------------------------------------- if strmessage <> "" then msgbox strmessage 'メッセージが表示される場合はエラー else msgbox "終了" end if set objbasp21 = nothing exit sub acerr: select case err.number case is = 429 msgbox "basp21がインストールされてないかも" case else msgbox "errorno= " & err.number _ & vbcrlf & err.description end select set objbasp21 = nothing end sub @酔なのでごめん・・・ winxppro or 2000 & access2002 or 2000 と仮定しています。