EXCEL/VBAで、OUTLOOKのウインドを閉じる方法を教えて下さい。
OUTLOOKを立ち上げた状態で、EXCEL/VBAで下記のようにOUTLOOKのフォルダーを指定してウインドを表示していますが、
VBAで開いたウインドのみ閉じたいのですが、うまく行きません。
oApp.Quitだと元々立ち上げていたoutlookも含めて終了してしまいます。宜しく、お願いします。
Sub OL_TEST()
Dim oApp As Object 'OutlookのApplication オブジェクト
Dim myNameSpace As Object '名前スペース
Dim myFolder As Object 'フォルダー指定
Set oApp = CreateObject("Outlook.Application")
Set myNameSpace = oApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー olFolderInbox=6 指定
myFolder.Display '表示
No.2ベストアンサー
- 回答日時:
><EXCEL/VBA>
ですよね。
1)VBE(Visual Basic Editor) の コードウィンドウ で [oApp] の部分を [右クリック] - [ウォッチ式の追加(A)] します。
コード の進行に応じて、何某(なにがし)か、Outlook の『ウィンドウ に関する プロパティ』に変化が生じはしないだろうか、と考えた訳です。
2)[F8] キー を押下しながら、ステップ イン デバッグ します。
「myFolder.Display '表示」の行まで来たら、ウォッチウィンドウ で [oApp] の前の「+」を クリック し、配下の プロパティ 等を一つずつ見ていきます。
3)この場合、闇雲に全部開いても、物によっては無数の星の中から探すようなことになってしまいますので、表示された「名前」を見て、(1)に書きました『ウィンドウ に関する プロパティ』に関連ありそうな「名前」だけを、「どこにあるかなぁ」と想像しながら一つずつ開いていきます。
英語の センス も必要でしょうかね。
4)ちなみに、 [oApp] の直下には [AnswerWizard]・[Applicaion]・[Assistant]・・・と15個の「名前」が並んでいますね。
ここで、幸いにも2番目の [Applicaion] を開くと、その直下に [Explorers] という「名前」があるではありませんか!
これ、臭そうです。 (^0^)/
5)ということで、[oApp] - [Applicaion] - [Explorers] を開いてみますと...
ありました!
6)[oApp] - [Applicaion] - [Explorers] - [Count] が開いている Outlook の数と合致しています。
7)[Item 1]・[Item 2]・[Item 3]・・・
これですよ、これ!
8)これから先は、少々、経験と勘を要しますが。。。
恐らく、今、開いた Outlook が、一番最後の Item、つまり
oApp.explorers.Count
番目の Item になるはずです。
9)従って、
oApp.explorers.Item(oApp.explorers.Count)
で、その『ウィンドウ』を名指しにできるのではないかなと考えました。
10)ご質問には、
>oApp.Quit
と書いていらっしゃいますが、
oApp.explorers.Item(oApp.explorers.Count).Quit
は、見るからにおかしいですし、実際、エラー になります。
11)それなら [Close] だろうと思って、
oApp.explorers.Item(oApp.explorers.Count).Close
とした次第です。
12)ですから、
>いける「みたい」です。
と書いたのでした。 (^凹^)
とまぁ、ざっと、こんな感じですが、
>自分でも色々と試してみましたが、
>このコードは自分でいくら考えても分からないでしょうね。
そうですね。
材料無しでは考えつきませんし、実際「まぐれ」みたいなものです。
>何処で勉強されたのでしょうか。
>OutlookのVBAのhelpでしょうか
キーポイント は [ステップ イン デバッグ] と [ウォッチ ウィンドウ] です。
WEB検索 しても、なかなか見付からないときは、こうやって、地道に探すしか手がありませんものね。
再度のご回答有難うございました。
[ステップ イン デバッグ] と [ウォッチ ウィンドウ] について、理解できました。
また、とても丁寧に説明して頂き、本当に有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- Excel(エクセル) Excel-VBAの「しばらくお待ちください」のダイアログが自動的に閉じない 2 2023/05/24 15:31
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでOutlookを終了させたい ExcelVBAで既に起動されているOutlookを終了させる
Visual Basic(VBA)
-
アウトルックが起動しているかどうかを取得するには?
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
VBAで二重起動を防止したいのですが、
その他(Microsoft Office)
-
5
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
6
Excel VBA Outlook送信済メール削除
Excel(エクセル)
-
7
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
8
Application.ActiveInspectorでエラーがでます。
Visual Basic(VBA)
-
9
エクセルでエラーが出て困っています。
Excel(エクセル)
-
10
VBA:小数点以下の数字を取得できる関数は?
Visual Basic(VBA)
-
11
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
12
エクセルで1つのセルにスクロールバーをつけたい
Excel(エクセル)
-
13
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
14
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
15
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
16
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
17
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
18
エクセル UserForm 呼び出しでフリーズしてしまいます
その他(Microsoft Office)
-
19
vbaから他のアプリを終了
Visual Basic(VBA)
-
20
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Javascript_submit()完了後に処...
-
エクセルのシート上に別のシー...
-
ポップアップと作業ウィンドウ...
-
インタネットからPDFファイルだ...
-
ウィンドウの2重起動を防止したい
-
履歴を残さないResponse.Redire...
-
子ウィンドウを常に手前表示、...
-
新しく開いたウィンドウへの要...
-
ブラウザ(IE)からエクスプロー...
-
タスクバーに非表示
-
子ウィンドウの存在確認
-
チェックボックス付きツリービュー
-
VBAで任意のウインドウのサイズ...
-
別フレームのページを更新させたい
-
助けてGmailでボタン表示が消え...
-
Javascript 親から設定したaddE...
-
VBScriptでリンクをクリックし...
-
1クリックでモーダルを開いてか...
-
サブウィンドウから親ウィンド...
-
デジタル時計の時刻合わせの方...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのシート上に別のシー...
-
Javascript_submit()完了後に処...
-
VBAで任意のウインドウのサイズ...
-
ウィンドウの2重起動を防止したい
-
VBの画面で、全ウィンドウを一...
-
ポップアップと作業ウィンドウ...
-
子ウィンドウから親ウィンドウ...
-
ウィンドウ名からウィンドウオ...
-
子→親ウインドウへデータを受け...
-
子ウィンドウの存在確認
-
子ウィンドウから親ウィンドウ...
-
window.openで新しいページを後...
-
<EXCEL/VBA> OUTLOOKのウインド...
-
親ウィンドウから開いた子ウィ...
-
window.Openをモーダルにできま...
-
1クリックでモーダルを開いてか...
-
孫ウインドウを閉じたら親をリ...
-
子ウィンドウの「閉じる(×)」...
-
JavaScriptで指定Windowを最大...
-
助けてGmailでボタン表示が消え...
おすすめ情報