• ベストアンサー

BASP21 のようなコンポーネント

Perl で使える BASP21 のようなDLLはないでしょうか。 サーバーからメールの受信と、ファイルアップなど できれば願ったり叶ったりなのですが・・・

  • yasu
  • お礼率79% (173/218)
  • Perl
  • 回答数2
  • ありがとう数6

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

  • ベストアンサー
  • 2nd
  • ベストアンサー率30% (19/63)
回答No.2

> BASP21 のようなDLLはないでしょうか。 これから察するに Perl は Windows 上で ActivePerl 等を使用されているのでしょうか? もしそうなら、Perl で BASP21.dll を利用することができます。 Win32::OLE というパッケージを用いることで実現できるようです。 簡単に説明してくれているページがありますので参考 URL に挙げておきます。

参考URL:
http://member.nifty.ne.jp/hippo2000/perltips/perlmail.htm#2.
yasu
質問者

お礼

ありがとうございました!! まさに待ちのぞんでいたような回答です。 手持ちポイントが30ポイントしかないのが 残念です。

その他の回答 (1)

  • a-kuma
  • ベストアンサー率50% (1122/2211)
回答No.1

perl は、ほとんど使ったことが無いのですが、SMTP と POP3 を扱うモジュールが それぞれあるようです。 Net::SMTP と Net::POP3 がそれです。 探せば、サンプルなど山のように出てきます。そのうち、ひとつを参考URLに 紹介しておきます。

参考URL:
http://www5a.biglobe.ne.jp/~n_rieko/perl/smtp.htm
yasu
質問者

お礼

ありがとうございます。 さっそく大いに参考にさせていただきます。 ほんと、手持ちポイントが30ポイントしかない のが残念です。

関連するQ&A

  • BASP21でのメール送信

    ASP(VBScript)でシステム作成しています。 メール送信には、BASP21を用いています。 BASP21でメール送信すると、メールヘッダーに X-Mailer: BSMTP DLL .... と自動でついてしまいます。 受信側ではこのようなメールが迷惑メールと判断されてしまい、 受信できない状況が多発しています。 BASP21でメール送信時に、X-Mailer を変更したり、つけないように することはできないのでしょうか。

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

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

  • BASP21について

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

  • basp21でping

    2つのWindows2003ServerでASP(VBScript)での開発を行なっております。 コマンドプロンプトから行うような処理が必要になりBASP21を入れました。 しかし、1つのサーバーは成功しもう一つは失敗してしまいます。 行いたい処理は以下のとおりです。 Set objBasp = Server.CreateObject("basp21") ver = objBasp.Version() result = objBasp.Execute("ping -n 1 -w 50 192.168.0.1", 1, stdout) 【結果は以下のとおりです】 ver = BASP21.DLL = Sep 11 2001 BSMTP.DLL = Sep 11 2001 result = -1 stdout = 空 【期待する結果は以下のとおりです】 ver = BASP21.DLL = Sep 11 2001 BSMTP.DLL = Sep 11 2001 result = 0 stdout = Pinging 192.168.0.1 with 32 bytes of data: Reply from 192.168.0.1: bytes=32 time<1ms TTL=128 Ping statistics for 192.168.0.1: Packets: Sent = 1, Received = 1, Lost = 0 (0% loss), Approximate round trip times in milli-seconds: Minimum = 0ms, Maximum = 0ms, Average = 0ms 期待する結果は別のサーバー(同じ環境のはず)ではうまくいきます。 両サーバーからコマンドプロンプトで同様のpingを行うと全く同じ結果(期待する結果)が帰ってきます。 sysytem32/cmd.exe にインターネットゲストアカウントは追加しております。 考えられる原因を教えて頂けますか。 すみませんが、よろしくお願い致します。

  • Basp21で大きなファイルのアップロード

    ファイルを4つ選択することができる画面があります。 アップロードボタンを押下すると選択したファイルを サーバーにアップします。 inputのnameは、File1~4です。 Basp21のページでは 大きなファイルは、FormSaveAsを複数回呼ぶ と書いてありました。 どんなループを回せばよいのか分かりません。 よろしくお願いします

  • 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のエラーについて

    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でのメール受信について

    ACCESS2000でBASP21を利用してメールを受信してファイルを保存しているのですが もしウィルスに感染したメールを受信した場合に 感染メールが保存されて PCがウィルスに感染する危険性はないのでしょうか。 ウィルス対策ソフトを導入していれば大丈夫でしょうか 宜しくお願いします

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

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

  • BASP21 DLL

    http://www.hi-ho.ne.jp/~babaq/basp21.html からBASP21 DLLを使おうと思い、 Down Load! Bsmtp20070629-587.lzh(119KB) を解凍したのですが、 開けません。 Down Load! Bsmtp20070531.lzh(119.1KB) も同じ結果でした。 環境はwin10 Homeです。 実行ファイルの「Bsendm.exe」をダブルクリックで開こうとすると BSENDM cannot open となります。