PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
16579 01/11/15 09:27:06 RE(1):PB5.0.02: BSMTP.DLLを使用したメール送信について By konyagayamada
16574 01/11/14 17:05:21 PB5.0.02: BSMTP.DLLを使用したメール送信について By konyagayamada

カテゴリ:スクリプトの記述
日付:2001年11月14日 17:05 発信者:konyagayamada
題名:PB5.0.02: BSMTP.DLLを使用したメール送信について

はじめまして。
現在PB5.0.02を使用してメール送信のプログラムを作成できるかと検討中です。
そこで、この会議室の過去ログなどを参考にメールを送信するにあたってBSMTP.DLLを使用するということを知りまし
た。そこでBSMTP.DLLをダウンロード&C\\windows\\system\\内にコピーし、NO.006562のにしやんさんの発言内容を参考
にScriptを作成したのですが、実際のメール送信時に\"Syntax error from xxx-xxx.co.jp\"とエラーメッセージが出
ます。またエラーメッセージ部分で\"xxx-xxx.co.jp\"と表示されているのですが、Script上では\"xxx@xxx.co.jp\"とし
ています。\"@\"がなぜか\"-\"に変わってしまっています。
Scriptは以下の通りです。


//ローカル外部関数定義
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 = \"xxx.xxx.xxx.xxx\"//xxx部分にはプライベートIPアドレスが入ります
szTo = \"abc@abc.co.jp\"
szFrom = \"xxx@xxx.co.jp\"
szSubject = \"Test\"
szBody = \"Test\"
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

このようなエラーがでるのはScript上の問題なのでしょうか?それとも開発環境の問題なのでしょうか?
お手数ですが、対処策などご助言頂けますようお願いします。

付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows98
DBMS Oracle SQL*Net 2.1
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.