[ツリー表示へ] [ワード検索] [Home]
タイトル ： vb6からFAX送信を行い送信状況を取得するには？ 投稿日 ： 2008/06/10(Tue) 10:21 投稿者 ： バルブチャン
| Windows XP VB6でFAX送信を構築しています FAX送信を行い、FAXコンソールの状況を取得し、正常に送信されたか、送信されなかったかを判別して再度ＦＡＸ送信を行う処理を作成しています 【ロジック】 '送信ドキュメントの定義変数 Dim objFaxDocument As FAXCOMEXLib.FaxDocument Dim WithEvents g_objFaxServer As FAXCOMEXLib.FaxServer Dim pJobStatus As FAXCOMEXLib.FaxJobStatus 'Fax Serverオブジェクトを作成する Set g_objFaxServer = New FAXCOMEXLib.FaxServer 'FAXサーバへ接続 g_objFaxServer.Connect ("") g_objFaxServer.ListenToServerEvents fsetFXSSVC_ENDED + fsetOUT_QUEUE '送信ドキュメントのオブジェクトを作成 Set objFaxDocument = New FAXCOMEXLib.FaxDocument '優先度は普通に設定 objFaxDocument.Priority = fptNORMAL 'C:\直下においてあるXlsファイルを指定 objFaxDocument.Body = "C:\2008031900001.xls" objFaxDocument.Subject = "テスト送信です" objFaxDocument.DocumentName = "test.xlsです。" '送信先を指定、Addで同報先として複数指定可能 objFaxDocument.Recipients.Add "03-1234-5678" objFaxDocument.AttachFaxToReceipt = True 'ここで送信 varFaxJobIdsに送信したFAXJOBの管理情報が格納される 'varFaxJobIds = objFaxDocument.ConnectedSubmit(g_objFaxServer) FAXJOBの管理番号は取得できますが送信状態が掴めません WithEventsイベントからイベント状況が判るとありますがその方法が調査していますが良くわかりません 参考になるサンプルコード情報等ありましたらご教授下さい |
をクリックするとツリー全体を一括表示します） - vb6からFAX送信を行い送信状況を取得するには？ - バルブチャン 08/06/10-10:21No.12493