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 (記載なし)

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