Hello,

I'm not really proficient with VBA, however i see the potential to optimize some of my work and wanted to ask a few questions regarding a macro i am trying to create atm. I have a code that opens multiple templates, however they all cascade on top of each other and also they are minimized. What i want to do is to have them as active windows each taking half of the left screen or just given dimensions. I found the Resize Method for outlook and also this piece of code:
HTML Code:
Sub ActiveSize()    With Application.ActiveWindow
        .WindowState = olNormalWindow
        .Top = 0
        .Left = 972
        .Width = 468
        .Height = 780
    End With End Sub

But i don't know how to connect it properly with the code i have managed to scramble:


Sub CreateEmailfromTemplate()    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\111.oft")
    NewMail.Display
 
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\222.oft")
    NewMail.Display


    Set obApp = Nothing
    Set NewMail = Nothing
End Sub
Appreciate the help and feedback