皆様、初めまして。
os-aという物です。

現在、これと同じような問題に直面しております。
下記とほぼ同じスクリプトを利用させて頂いているのですが、
メール送信時に「cant connect server 10061」というエラーが
出てしまい、メールを送信する事ができませんでした。

SendMail;Ansi  -> SendMail
lstrcpynA;Ansi -> lstrcpynW

と変更したのですが、今度はエラーメッセージも文字化けしてしまいました。

SendMailとUNICODEの絡みだと思うのですが、解決方法が見つかりませんでした。
何かご存知の方がいましたら知恵を貸して頂けないでしょうか？
以上、よろしくお願い致します。

外部関数
FUNCTION String SendMail(REF Long szServer,REF Long szTo,REF Long szFrom,REF Long szSubject,REF 
Long szBody,REF Long szFile) LIBRARY \"BSMTP.DLL\" alias for \"SendMail;Ansi\"
FUNCTION uLong lstrcpyn(REF String dst, REF String src, Long length) LIBRARY \"KERNEL32.DLL\" alias 
for \"lstrcpynA;Ansi\"

スクリプト
//変数宣言
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

//??????????????---------------------------------------------------------------------
-