Dave Mustaineさん、こんにちは。

BSMTP.DLL の BSendMail はＶＢやＰＢでは使えないです。
ＶＢで使用するときは SendMail の方を使うらしいので、ＰＢでもこちらだと思います。
そもそも、Dave Mustaine さんが記述した宣言も SendMail の形式です。

でも、SendMail でもなぜかエラーが出てしまいますね。

そこで逆アセンブルして解析してみたところ、各引数は、文字列のポインタのポインタを
渡すようになっていることがわかりました。

説明文と違うような気もするのですが‥‥‥
本当にＶＢでは利用できているのでしょうか？

とにかく、そういうわけで次のようにすれば利用できることがわかりました。

外部関数
FUNCTION String SendMail(REF Long szServer,REF Long szTo,REF Long szFrom,REF Long szSubject,&
　　　　REF Long szBody,REF Long szFile) LIBRARY \"BSMTP.DLL\"
FUNCTION Long lstrcpyn(REF String dst, REF String src, Long length) &
　　　　LIBRARY \"KERNEL32.DLL\" ALIAS FOR \"lstrcpynA\"

スクリプト
//変数宣言
String szServer,szTo,szFrom,szSubject,szBody,szFile
Long lpszServer,lpszTo,lpszFrom,lpszSubject,lpszBody,lpszFile
String ErrorMessage

//引数セット
szServer = \"SMTPサーバのアドレス\"
szTo = \"宛先メールアドレス\"
szFrom = \"送信元メールアドレス\"
szSubject = \"件名\"
szBody = \"本文\"
szFile = \"添付ファイル名\"

//引数のポインタ値取得
lpszServer = lstrcpyn(szServer,szServer,0)
lpszTo = lstrcpyn(szTo,szTo,0)
lpszFrom = lstrcpyn(szFrom,szFrom,0)
lpszSubject = lstrcpyn(szSubject,szSubject,0)
lpszBody = lstrcpyn(szBody,szBody,0)
lpszFile = lstrcpyn(szFile,szFile,0)

//メール送信処理
ErrorMessage = SendMail(lpszServer,lpszTo,lpszFrom,lpszSubject,lpszBody,lpszFile)
IF ErrorMessage = \"\" THEN
　　MessageBox(\"送信成功\",\"送信成功\")
ELSE
　　MessageBox(\"送信失敗\",ErrorMessage)
END IF