ExcelのVBAで起動したOutlookのｳｨﾝﾄﾞｳを最大化する方法は？仕事でExcelのVBAを活用して効率化をしようとしています｡その中でﾒｰﾙを送信するためにOutlookを使用す…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

ExcelのVBAで起動したOutlookのｳｨﾝﾄﾞｳを最大化する方法は？

仕事でExcelのVBAを活用して効率化をしようとしています｡
その中でﾒｰﾙを送信するためにOutlookを使用する作業があります｡
1．Outlookが起動しているか確認
2．Outlookが起動していなければ起動(起動していればなにもしない)
3．Outlookのｳｨﾝﾄﾞｳの状態を取得して最大化していなければ最大化
4．ﾒｰﾙを作成(NamespaceやMAPIの処理は割愛)
5．ﾒｰﾙを送信
という流れを考えています｡1･2･4･5はできたのですが､3が実現できずにいます｡
どのようなｺｰﾄﾞを記述すれば良いかご教示ください｡
※ExcelのVBAで参照設定の項目にOutlook Object Libraryを追加済みです｡

●質問者: keijun5145
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

▽1 ● pinkymonk

http://www.ken3.org/cgi-bin/group/vba_outlook.asp

にかいてある

'通常ｻｲｽﾞ olNormalWindow=2 で表示(ほかに olMaximized=0,olMinimized=1)
oApp.ActiveWindow.WindowState = 0
とすればよいのでは？

試してません｡ごめんね｡

keijun5145さんのｺﾒﾝﾄ
これでできなかったので質問しています｡ on error resume next を使用して for文で-100000?100000を試してみましたが通常ｻｲｽﾞで起動されるだけでした｡

▽2 ● きむむ

試していたら､偶然に発見(！？)したようなものですが､

まず
 oApp.ActiveWindow.WindowState = 2 'olNormalWindow
を実行し､続けて
 oApp.ActiveWindow.WindowState = 0 'olMaximized
を実行します｡

これで最大化されたのですが､環境の違いとかあるかもしれませんが､
こちらはWindows10､Outlook2016です｡

どうも起動後初期状態のｳｲﾝﾄﾞｳ状態が最大と認識していてそこからの最大化を無視しているかのような動きに見えます｡
いったん最大以外に設定してから最大化を要求するとちゃんとやってくれるようです｡
勘違いとかだったらごめんなさい｡
試してみてください｡