Outlook 起動時任意の位置に表示させるには？

Question

###前提・実現したいこと
OutLookの起動（時の表示）位置を任意に、VBAで指定することが可能かを確かめたい。

###該当のソースコード
VBA　→　ThisOutlookSession　に下記コード作成。

Private Sub Application_Startup()

ActiveWindow.Top (540)
ActiveWindow.Left (960)
ActiveWindow.Width (960)
ActiveWindow.Height (540)

End Sub

###試したこと
解像度1920＊1080で右下1/4に表示されることをイメージしたのですが、Startupの実行時点でウインドウがまだ表示されていないため、Activewindowを把握できず下記エラーになります。
MAPILogonComplete、Reminderでも試しましたが、同様であったため、ウインドウの表示を10秒待ってからマクロ実行としてもみましたが、エラーとなりました。

###発生している問題・エラーメッセージ

実行時エラー 91 オブジェクト変数またはWithブロック変数が設定されていません。

①起動時表示前　表示ウインドウの位置を指定することができるのでしょうか？
②表示後例えば3秒後にマクロを実行させるにはどのような記述が有るのでしょうか？

ヒントをいただけますと幸いです。

Answer 1

①起動時表示前　表示ウインドウの位置を指定することができるのでしょうか？

について、Outlook 2013 (+ Windows 7)で試した限りですが、以下のコードでOutlook起動後に指定の座標、大きさで表示することができました。ThisOutlookSession に記述します。

Option Explicit

Private Sub Application_Startup()

'    MsgBox "Application_Startup"

    Dim obj As Outlook.Explorer

    Set obj = Application.ActiveExplorer
    If obj Is Nothing Then
        MsgBox "Application.ActiveExplorer is not found!"
    Else
        ' 座標、幅高さを指定
        obj.Top = 50
        obj.Left = 100
        obj.Width = 300
        obj.Height = 200
    End If
End Sub

Application.ActiveExplorerメソッドで取得したExplorerオブジェクトを使うと良いようです。
Application.ActiveExplorer メソッド
Explorerオブジェクト

②表示後例えば3秒後にマクロを実行させるにはどのような記述が有るのでしょうか？

こちらはご質問の(1)を実現できたので確認していません。タイマーのようなオブジェクトがあればできそうなのですが、リファレンスを軽く見た限りでは見つかりませんでした。

---

追記：タイマーについて
タイマーについて気になったので調べてみました。Outlook VBAに適当なものが存在しないのはそのままなのですが、Stack OverflowにWin32 APIのSetTimerを使用した解決策の提示がありましたので参考の為にご紹介しておきます。
Outlook VBA - Run a code every half an hour

Answer 2

以下では指定できないのでしょうか？
Application.Top = 540
Application.Left = 960
Application.Width = 960
Application.Height = 540

Comments

[dodox86]

ウィンドウではないApplicationオブジェクトにはTop, Left, Width, Heightプロパティは存在しないようです。