いつもお世話になっております。

BASP21でメール送信を行う以下のようなスクリプトを使用しているのですが
PB10にしてから「引数のポインタ値取得」で「lstrcpyn」の関数が正常に動作しません。
正確には、ファイルを添付して実行した時に、引数で渡した文字列が文字化けして
「SendMail」が「File notfound  ?」エラーを返します。

ご存知の方いらっしゃいましたらご教授ください<(_ _)>
以上、長文すみません・・・

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

外部関数
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

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