PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
18362 02/11/06 17:41:35 RE(3):PB7.0: ロータスノーツからOLEを使ってEXCELシートを添付する方法について。 By RedMoon
18352 02/11/05 01:00:01 RE(2):PB7.0: ロータスノーツからOLEを使ってEXCELシートを添付する方法について。 By morioka
18351 02/11/04 14:21:21 RE(1):PB7.0: ロータスノーツからOLEを使ってEXCELシートを添付する方法について。 By happa
18350 02/11/03 22:00:29 PB7.0: ロータスノーツからOLEを使ってEXCELシートを添付する方法について。 By morioka

カテゴリ:PowerBuilderの開発環境
日付:2002年11月04日 14:21 発信者:happa
題名:RE(1):PB7.0: ロータスノーツからOLEを使ってEXCELシートを添付する方法について。

moriokaさん、こんにちは。
当方では以下の文を追加して利用して動作しています
//宣言文に追加
item  = CREATE OLEObject
item = doc.CreateRichTextItem(\"Body\")
//passにEXCELが保存されているパスとファイル名を指定しておけばOKです
//1454の意味はちょっと忘れましたが
item.EmbedObject( 1454,\"\",pass)

>【実行環境】
>OS:Win2000Professional(SP2)
>開発ツール:PB7.03J
>メールソフト:ロータスノーツ5.0.1.0

>【質問】
>ノーツからPBのOLEを使用して本文を含むメールの送受信(自分自身)は出来ておりますが、
>Excelシートを添付する方法がわかりません。

>現在開発中のスクリプトは以下のとおりです。

><<<<<< スクリプト開始 >>>>>>
>OLEObject ws,db,doc

>ws = CREATE OLEObject
>db = CREATE OLEObject
>doc = CREATE OLEObject

>ws.ConnectToNewObject(\"Notes.Notessession\")
>db = ws.getdatabase(\"\",\"\")

>db.openmail(\'pass\')

>doc = db.createdocument

>doc.replaceitemvalue(\"SendTo\",\"auto/MORIOKA\")

>doc.replaceitemvalue(\"Subject\",\"kenmei\")

>doc.replaceitemvalue(\"Body\",\"honbun\")

>doc.send(false)

>result = ws.DisConnectObject()
>result = db.DisConnectObject()
>result = doc.DisConnectObject()
><<<<<< スクリプト終了 >>>>>>

>誰かわかる方教えてください。

>以上


付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows 2000
DBMS Oracle SQL*Net 8
Browser (記載なし)

Server SoftWare

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

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