Outlook 2016 VBA для создания активного окна (например, электронной почты) определенного размера и местоположения на экране

Question

У меня есть это в Excel, но простое добавление того же кода в модуль Outlook не делает трюк

Sub ActiveSize_1()
Application.WindowState = xlNormal
Application.Top = 0
Application.Left = 972 
Application.Width = 468 
Application.Height = 780
End Sub

Answer 1

Как то так?

Sub ActiveSize()
    With Application.ActiveWindow
        .WindowState = olNormalWindow
        .Top = 0
        .Left = 972
        .Width = 468
        .Height = 780
    End With
End Sub