Creating a template and adjusting window Size and position

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:

Code:

---

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