DoCmd.SendObject,,,"deneme@deneme.com",,,"Konu;Deneme","Şablonlu",,"C:\denemesablonu.html"

Dim objOutlook As Object
Dim objEmail As Object
Set objOutlook = CreateObject("Outlook.application")
UserName = Name Field
SubjectText = "Subject Text"
EmailTemplate = "C:\Users\Me\Templates\Test.Oft"
Set objEmail = objOutlook.CreateItemFromTemplate(EmailTemplate)
With objEmail
.To = UserName
.Subject = SubectText
.body = "The body doesn't matter, just the attachment"
.Attachments.Add "C:\Test.htm"
'.attachments.Add "c:\Path\to\theext\file.txt"
.Display
'.Send - this didn't work on my setup but .Display did
'.ReadReceiptRequested
 
End With