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 (記載なし)
Copyright © 2013 Power Future Co., Ltd.