Sub mailEN()
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim template As String
template = ActiveWorkbook.Path & "\Templates\ENGLISH.oft"
Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate(template)
With MyItem
.To = Worksheets("Listing").Range("J5")
.Subject = "Your invoice N° " & Worksheets("Listing").Range("J6")
.HTMLBody = Replace(.HTMLBody, "<<INTRO>>", Worksheets("Listing").Range("J7"))
.Display
End With
Set MyItem = Nothing
Set myOlApp = Nothing
End Sub