仕事でExcelのVBAを活用して効率化をしようとしています。
その中でメールを送信するためにOutlookを使用する作業があります。
１．Outlookが起動しているか確認
２．Outlookが起動していなければ起動（起動していればなにもしない）
３．Outlookのウィンドウの状態を取得して最大化していなければ最大化
４．メールを作成（NamespaceやMAPIの処理は割愛）
５．メールを送信
という流れを考えています。１・２・４・５はできたのですが、３が実現できずにいます。
どのようなコードを記述すれば良いかご教示ください。
※ExcelのVBAで参照設定の項目にOutlook Object Libraryを追加済みです。
No.1
173
14
http://www.ken3.org/cgi-bin/group/vba_outlook.asp
にかいてある
'通常サイズ olNormalWindow=2 で表示(ほかに olMaximized=0,olMinimized=1)
oApp.ActiveWindow.WindowState = 0
とすればよいのでは？
試してません。ごめんね。
No.2
2711
試していたら、偶然に発見（！？）したようなものですが、
まず
oApp.ActiveWindow.WindowState = 2 'olNormalWindow
を実行し、続けて
oApp.ActiveWindow.WindowState = 0 'olMaximized
を実行します。
1
1
2
1
222
0
これでできなかったので質問しています。
2018/02/17 20:38:57on error resume next を使用して
for文で-100000～100000を試してみましたが通常サイズで起動されるだけでした。