Code to place outlook email window on screen

[DougRobertson]

Hello,

I use a macro to generate emails for various reports I send, but I want to have the email window show up in a specific place on the screen - in 'normal' mode.

Here's the code I'm trying to accomplish it with. The screen-sizing section works when using a macro to resize excel windows, but not Outlook email windows.

Sub Macro1()
'
' Macro1 Macro
'
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(otlMailItem)
With otlNewMail
.To = "YOU"
.Subject = "BROADCAST ANALYSIS REPORT"
.Body = Chr(14) & "Hello Everyone!"
.Display
.Application.ActiveWindow.WindowState = 2

With ActiveWindow
.Top = 3
.Left = 2.2
.Width = 600
.Height = 300
End With

End With
End Sub

Thanks in advance,

~ Doug

 

[ChrisOswald]

It appears that the macro's grabbing the Excel window, not the outlook mailitem macro: Running the slightly modified code below gives me an output of "Book1" for the name of the activeWindow. (and then it fails on the .top = 3 line)

Sub Macro1()
'
' Macro1 Macro
'
    Dim otlapp                      As Object
    Dim otlnewmail                  As Object
    Dim W
    Set otlapp = CreateObject("Outlook.Application")
    Set otlnewmail = otlapp.CreateItem(0)
    With otlnewmail
        .To = "YOU"
        .Subject = "BROADCAST ANALYSIS REPORT"
        .Body = Chr(14) & "Hello Everyone!"
        .Display
        .Application.ActiveWindow.WindowState = 2
        With ActiveWindow
            MsgBox .Caption
            .Top = 3
            .Left = 2.2
            .Width = 600
            .Height = 300
        End With
    End With
End Sub

This code seems to do what you want, although I've had problems in the past using ActiveWindow type things with outlook. (nothing like having a meeting reminder popping up causing a code failure...)

Sub MacroFixedMaybe()
'
' Macro1 Macro
    Dim otlapp                      As Object
    Dim otlnewmail                  As Object
    Set otlapp = CreateObject("Outlook.Application")
    Set otlnewmail = otlapp.CreateItem(0)
    With otlnewmail
        .To = "YOU"
        .Subject = "BROADCAST ANALYSIS REPORT"
        .Body = Chr(14) & "Hello Everyone!"
        .Display
        .Application.ActiveWindow.WindowState = 2
    End With
    With otlapp.ActiveWindow
        .Top = 3
        .Left = 2.2
        .Width = 600
        .Height = 300
    End With
End Sub

 

[DougRobertson]

. . . . by George - you've got it!!

I've been looking for that for MONTHS.

Thanks Chris!

Blessings on you,

~ Doug