2008年11月14日

メールをBasp21で簡単に送信

Basp21という
http://www.hi-ho.ne.jp/babaq/basp21.html からダウンロードできるDLLがあります


これをパソコンにインストールすると


メールを送ったり、FTPのアップロードなんかも

むちゃくちゃ簡単にできます。



以下は、Sendmail before pop に対応して

一度

メールサーバーにログインをかましています。


それから、いまどきのプロバイダのメールように、587のポートで送信しています。

エラーがあればERRにはいります


       Dim objBsp As Object


        objBsp = CreateObject("Basp21")


        Dim Err As String


        'MailServerにログイン
        objBsp.RcvMail(MailServer, MailUser, MailPass, "STAT", Dirname)

        Sleep(500)


        'メールを送ってエラーがあると、ERRに番号を入れます
        'これは587でメール送信しています
        Err = objBsp.SendMail(MailServer & ":587", MailTo, MailFrom, MailTitle, MailBody, FileName)

        Return Err

ラベル:ftp メール Basp21
posted by kiyo at 20:01| メール | このブログの読者になる | 更新情報をチェックする
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。