PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 23713 | 10/08/17 16:50:37 | RE(8):PB10.0: BASP21でのメール送信について By mn |
| 23272 | 08/02/14 14:45:28 | RE(7):PB10.0: BASP21でのメール送信について By os-a |
| 23269 | 08/02/13 10:51:04 | RE(6):PB10.0: BASP21でのメール送信について By kiki |
| 23268 | 08/02/12 16:58:16 | RE(5):PB10.0: BASP21でのメール送信について By os-a |
| 23267 | 08/02/08 15:42:40 | RE(4):PB10.0: BASP21でのメール送信について By にしやん |
| 23265 | 08/02/07 16:22:45 | RE(3):PB10.0: BASP21でのメール送信について By os-a |
| 22267 | 05/10/21 22:26:31 | RE(2):PB10.0: BASP21でのメール送信について By cocoa |
| 22266 | 05/10/21 17:05:34 | RE(1):PB10.0: BASP21でのメール送信について By AzureRX-7 |
| 22264 | 05/10/20 16:02:57 | PB10.0: BASP21でのメール送信について By cocoa |
カテゴリ：スクリプトの記述
日付：2008年02月13日 10:51 発信者：kiki
題名：RE(6):PB10.0: BASP21でのメール送信について
もう遅いかもしれないけど
//ローカル外部関数定義
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\"
// lstrcpyn 外部関数を↓に変更
FUNCTION Long lstrcpyn(REF blob dst, REF blob 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
//追加の変数
Blob BzServer,BzTo,BzFrom,BzSubject,BzBody,BzFile
blob{1} lb_1 // Blob の終端
//
/* 引数セット */
szServer = as_Server
szTo = as_To
szFrom = as_From
szSubject = as_Subject
szBody = as_Body
szFile = as_File
//以下、追加分
//引数を ansi に変換
BzServer = Blob(trim(szServer),EncodingANSI!) + lb_1
BzTo = Blob(trim(szTo),EncodingANSI!) + lb_1
BzFrom = Blob(trim(szFrom),EncodingANSI!) + lb_1
BzSubject = Blob(trim(szSubject),EncodingANSI!) + lb_1
BzBody = Blob(trim(szBody),EncodingANSI!) + lb_1
BzFile = Blob(trim(szFile),EncodingANSI!) + lb_1
// ansi でポインタ取得
lpszServer = lstrcpyn(bzServer,bzServer,0)
lpszTo = lstrcpyn(bzTo,bzTo,0)
lpszFrom = lstrcpyn(bzFrom,bzFrom,0)
lpszSubject = lstrcpyn(bzSubject,bzSubject,0)
lpszBody = lstrcpyn(bzBody,bzBody,0)
lpszFile = lstrcpyn(bzFile,bzFile,0)
//追加終了
/* メール送信処理 */
ErrorMessage = SendMail(lpszServer,lpszTo,lpszFrom,lpszSubject,lpszBody,lpszFile)
RETURN ErrorMessage
-----
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows XP
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.