Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6577 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【44377】ExcelとLotus Notesの連携 けんけん 06/11/14(火) 16:07 質問[未読]
【44385】Re:ExcelとLotus Notesの連携 でれすけ 06/11/14(火) 17:59 発言[未読]
【44403】Re:ExcelとLotus Notesの連携 けんけん 06/11/15(水) 9:08 発言[未読]
【44411】Re:ExcelとLotus Notesの連携 けんけん 06/11/15(水) 17:53 お礼[未読]
【44444】Re:ExcelとLotus Notesの連携 けんけん 06/11/16(木) 16:09 質問[未読]
【44377】ExcelとLotus Notesの連携
質問  けんけん  - 06/11/14(火) 16:07 -
引用なし
パスワード
   いつもお世話になっております。

VBAでLotus Domino Objectsを使用して
Notesのデータベースにアクセスしています。

ですが、NotessessionのInitializeで出てくる
パスワード入力ダイアログを「Cancel」などで閉じてしまうと、
再度Initializeしてもパスワード入力ダイアログすら出ずに
「パスワードプロンプトはユーザーによって終了しました。」
というメッセージが表示されてエラーになり先へ進めなくなってしまいます。


どのように回避したらよいでしょうか。
Notes関連のHPなども探してみたのですが、
該当する記述は見当たりませんでした。
どなたかご存知の方、ご教授願えませんでしょうか。
よろしくお願いいたします。


〜ソース〜
On Error GoTo EndHandle

Dim notesSes As New notesSession
Dim notesDB As NotesDatabase

'Notesセッションの確立
Call notesSes.Initialize

'Notes文書の取得
Set notesDB = notesSes.GetDatabase("", "XXX.nsf")

（中略）

EndHandle:
Set notesSes = Nothing
Set notesDB = Nothing
【44385】Re:ExcelとLotus Notesの連携
発言  でれすけ  - 06/11/14(火) 17:59 -
引用なし
パスワード
   こんにちは。

>ですが、NotessessionのInitializeで出てくる
>パスワード入力ダイアログを「Cancel」などで閉じてしまうと、
>再度Initializeしてもパスワード入力ダイアログすら出ずに
>「パスワードプロンプトはユーザーによって終了しました。」
>というメッセージが表示されてエラーになり先へ進めなくなってしまいます。

提示されているソースを使ってテストしてみましたが、
再現しませんでした。
再現させる方法が分かれば、解決に近づくことができると思いますが．．．

ちなみに私のNotesのバージョンは6.5です。

回答でなくてすみません。
【44403】Re:ExcelとLotus Notesの連携
発言  けんけん  - 06/11/15(水) 9:08 -
引用なし
パスワード
   ▼でれすけ さん：
>ちなみに私のNotesのバージョンは6.5です。
>
>回答でなくてすみません。

ご返信ありがとうございます。
私のNotesのバージョンは７なので、
その辺の違いなのかもしれませんね…。

もしまた何かあったらよろしくお願いします。
【44411】Re:ExcelとLotus Notesの連携
お礼  けんけん  - 06/11/15(水) 17:53 -
引用なし
パスワード
   InputboxでNotesパスワードを入力してもらい、
notesSes.Initializeの引数で渡し、
エラーをErr.Number = -2147217504で拾うことで解決できました！

ありがとうございました。
【44444】Re:ExcelとLotus Notesの連携
質問  けんけん  - 06/11/16(木) 16:09 -
引用なし
パスワード
   その後Sessionは取得することは出来ました。
ですが今度はExcelからNotesの文書を開こうとしたら
「オートメーションエラーです。サーバーによって例外が返されました。」
とエラーが出て開くことが出来ませんでした。
（NotesデザイナーヘルプにNotesUIWorkspaceはCOMでは
サポートされないと書いてあったので、もしかしてムリなのでしょうか。。。）


度々の質問で申し訳ありませんが、
ご存知の方いらっしゃいましたらご教授願えますでしょうか。

〜〜〜以下ソース〜〜〜
　　Call notesSes.Initialize
　　Set notesDB = notesSes.GetDatabase("", "aaa.nsf")
　　Set notesDoc = notesDB.CreateDocument
　　
　　With notesDoc
　　　　Call .ReplaceItemValue("Form", "fmAAA")
　　　　Call .ReplaceItemValue("flAAA", "テストですよ。")
　　End With
　　
　　Set objUIWs = CreateObject("Notes.NotesUIWorkspace")
　　Call objUIWs.EDITDOCUMENT(notesDoc)
〜〜〜以下ソースここまで〜〜〜
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6577 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free