PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
20500 | 03/10/27 09:30:47 | RE(4):PB6.5: PBからOutlook98/2000の送信をさせる方法はありますか? By Rumba |
20496 | 03/10/24 20:24:27 | RE(3):PB6.5: PBからOutlook98/2000の送信をさせる方法はありますか? By めめ |
20493 | 03/10/24 15:13:26 | RE(2):PB6.5: PBからOutlook98/2000の送信をさせる方法はありますか? By M.M |
20491 | 03/10/24 14:33:42 | RE(1):PB6.5: PBからOutlook98/2000の送信をさせる方法はありますか? By Rumba |
20484 | 03/10/23 10:37:13 | PB6.5: PBからOutlook98/2000の送信をさせる方法はありますか? By Rumba |
カテゴリ:PowerBuilderの開発環境
日付:2003年10月27日 09:30 発信者:Rumba
題名:RE(4):PB6.5: PBからOutlook98/2000の送信をさせる方法はありますか?
めめさん、M.Mさんおはようございます。
keybd_eventを使用して無事解決いたしました
Outlookのウインドウ最小化を加えた完成(?)スクリプトを転記します
ありがとうございました♪
===================================
//変数の宣言
oleobject outlookobject
oleobject NamespaceObject
oleobject FolderObject
//OLE接続でoutlookを起動
outlookobject = create oleobject
//オブジェクト作成/関連付け
if outlookobject.ConnectToNewObject(\"outlook.application\") <> 0 then
messagebox(\"error\",\"ConnectToNewObject\")
goto owari
end if
//*** 表示 ***
NamespaceObject = OutlookObject.getnamespace(\"MAPI\")
FolderObject = NamespaceObject.getdefaultfolder(4)
FolderObject.display
//*** ツール(T)の送信(S)を実行 ***
//ALT:18(メニュー)
keybd_event(18,0,0,0)
keybd_event(18,0,2,0)
//T:84(ツール)
keybd_event(84,0,0,0)
keybd_event(84,0,2,0)
//S:83(送信)
keybd_event(83,0,0,0)
keybd_event(83,0,2,0)
//ウインドウの最小化
long ll_cnt
for ll_cnt = 1 to OutlookObject.Explorers.count
OutlookObject.Explorers.Item(ll_cnt).WindowState = 1 //Min
next
messagebox(\"送信完了\",\"メールの送信を確認して下さい。\")
//outlook終了
outlookobject.application.quit()
//インスタンス破棄
outlookobject.disconnectobject()
destroy outlookobject
owari:
===================================
・・・・メッセージボックスにフォーカスが当たらないことはナイショですw
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows98
DBMS Oracle SQL*Net 8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.