I have the below code that only opens up a saved Outlook Template while in Excel. I attempted to then use With OutMail to update the subject line using specified cells in the Excel workbook but it isn't working. The macro only opens the template and doesn't do anything else to the subject line. What am I missing?

Sub Email()

Dim myolapp As Object
Dim myitem As Object

Set myolapp = CreateObject("Outlook.Application")
myolapp.Session.Logon

Set myitem = myolapp.CreateItemFromTemplate("V:\Outlook Templates\Email.oft")
myitem.Display

With OutMail
.Subject = Worksheets("Checklist").Range("B2") & " - " & Worksheets("Checklist").Range("B3") & " - " & Worksheets("Checklist").Range("H2") & "Approved Voucher w/Discrepancy - Pending Issues"
End With



End Sub