Макрос открытия сообщения по шаблону

[КТатьяна]

Подскажите, пожалуйста, как исправить данный макрос что бы outlook открывал письмо по шаблону?
Sub SendMail()

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

With OutMail
.To = Range("A1").Value
.Subject = Range("A2").Value
.Body = Range("A3")
.Display
End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub