この教えてgooや外のネットの記事などから次の様なExcelVBA上のマクロでローカルに保存していた過去のNotesメールを参照したいと思いましたが、DBがOpenしてくれません。
どこに問題があるのでしょうか?何方か、お教えいただけないでしょうか。
状況
、NotesはVer4.6でローカルに保存している過去のメール
・当然Notesからは見る事が出来ますし、Notesを動かしている状況でマクロを動かしています。
・ExcelはVer2010。Windows10 HomeEdition
動かしてみたマクロは下記の通り。
Sub Macro1()
Dim ses As Object 'The notes session
Dim db As Object 'The notes database
Dim view As Object 'The notes view
'Start a session to notes, and get notes view
Set ses = CreateObject("Notes.NotesSession")
Set db = ses.GETDATABASE("[Local]", "[d:\notes\ki_tky7.nsf]")
'ここまでは常道通りだと思っている。
Name = db.Filename 'Nameの値は"ki_tky7.nsf"でした。
flg = db.IsOpen 'flgの値はEmptyからFalseから変わりました。
If Not db.IsOpen Then
db.OPENMAIL 'flgの値はFalseから変わりませんでした。
End If
Set view = db.GetView("($Inbox)") 'この行で実行時エラー7063が出ます。
'エラーコメントは「データベース[Local]!![d:\notees\ki_tky7.nsf]はまだ開かれていません」です。
'Clean Up
Set doc = Nothing
Set db = Nothing
Set session = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Excel(エクセル) Excelからnotesメールを自動で送信出来るマクロを見つけました。 下記、URL先のマクロを使わ 1 2023/03/21 09:08
- Excel(エクセル) VBAのエラーが直せません 4 2023/06/12 22:10
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー3131 FROM 句の構...
-
VBAをつかってクエリの情報を抽...
-
単純ですが、意外と穴?なデー...
-
テキストボックスに入れた内容...
-
array_mapを使ったエスケープ処理
-
見られたくないファイル
-
SELECT文を発行して、ACCESSよ...
-
LocalのNotesメールDBをVBAで参...
-
エラー3011
-
MySQLでデータベースにデータin...
-
Pro*Cの構文エラー
-
エクセルVBAについて
-
JAVA SQLServerException 列名 ...
-
PHPでフォームからデータDBに書...
-
アラートでyes noを作りたいです。
-
DBのデータを表示させたい
-
PHPで[]の使い方について
-
MySQLのINSERT時にたまに重複に...
-
ランクの順位変動について
-
PHP 勤務時間の合計を出したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー3131 FROM 句の構...
-
VBAをつかってクエリの情報を抽...
-
SQL文が実行できません
-
テキストボックスに入れた内容...
-
in 'where clause'のエラーの理由
-
エラー3011
-
SQL文の実行に失敗しました???
-
LocalのNotesメールDBをVBAで参...
-
SELECT COUNTで取得した結果の表示
-
codeigniter 複数モデルでトラ...
-
PHP(PDO)でDBの情報を完全一...
-
Accessのテーブルへ複数の主キ...
-
phpのPEARのMDB2を使って出たエ...
-
ASPでRecordCountが使用でき...
-
Call to undefined method MDB2...
-
PHP4でのSmarty派生クラスの定...
-
zend(phpフレームワーク)でトラ...
-
データフォームウィザードで追...
-
DAOでデータベースを二つ開くに...
-
SQLiteでカラムを追加
おすすめ情報
お教え頂いた様に、
Set db = ses.GETDATABASE("[Local]", "[d:\notes\ki_tky7.nsf]")
の部分を
Set db = ses.GETDATABASE("", "d:\notes\ki_tky7.nsf")
とすると、このset文の後にflgはTrueとなって問題は解消しました。
ありがとうございます。感謝!