メールを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