I now use this code:

Set MailOutLook = appOutLook.CreateItemFromTemplate( _
"C:\Users\ksor\AppData\Roaming\Microsoft\Templates\KS-Mail.oft", OutLook.olMailItem)



and it stops there with this error:

KS-Mail-error.jpg