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)
-


ループの中で mailItemObj.Display を送信終了後に次を実行するには?
Visual Basic(VBA)
-
-
4

VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
-
5

Application.ActiveInspectorでエラーがでます。
Visual Basic(VBA)
-
6

Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを
Visual Basic(VBA)
-
7

EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8

メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
9

メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
10

数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
11

エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
12

別ファイルを開かず、INDIRECT関数を使用せずに、別ファイルのデータを求めたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのシート上に別のシー...
-
Javascript_submit()完了後に処...
-
VBの画面で、全ウィンドウを一...
-
1クリックでモーダルを開いてか...
-
javascriptで開いたウィンドウ...
-
ウィンドウの2重起動を防止したい
-
JavaScriptでPDFを新規ウィンド...
-
VBAで任意のウインドウのサイズ...
-
デスクトップ画面を4分割するには
-
IEでのみ発生するJavaScriptエラー
-
ブラウザの×ボタンを効かなくす...
-
リンク時、親ウインドウを最前...
-
ポップアップと作業ウィンドウ...
-
同じURLのフォームが開いている...
-
別フレームのページを更新させたい
-
ウィンドウ名からウィンドウオ...
-
プロジェクタでメニューを非表...
-
履歴を残さないResponse.Redire...
-
子ウィンドウより親ウィンドウ...
-
インタネットからPDFファイルだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのシート上に別のシー...
-
Javascript_submit()完了後に処...
-
VBAで任意のウインドウのサイズ...
-
VBの画面で、全ウィンドウを一...
-
デスクトップ画面を4分割するには
-
ポップアップと作業ウィンドウ...
-
ウィンドウの2重起動を防止したい
-
1クリックでモーダルを開いてか...
-
子ウィンドウより親ウィンドウ...
-
javascriptで開いたウィンドウ...
-
<EXCEL/VBA> OUTLOOKのウインド...
-
ウィンドウ名からウィンドウオ...
-
子ウィンドウの存在確認
-
ブラウザ(IE)からエクスプロー...
-
子ウィンドウから親ウィンドウ...
-
履歴を残さないResponse.Redire...
-
IEで新しいウインドウを開き、...
-
子ウィンドウを常に手前表示、...
-
インタネットからPDFファイルだ...
-
孫ウインドウを閉じたら親をリ...
おすすめ情報












