i have found the reply...
Dim ox As New Outlook.Application
Dim omailitem As MailItem
Set omailitem = ox.CreateItemFromTemplate("c:\test.oft")
omailitem.BodyFormat = olFormatHTML
omailitem.Subject = "test from outlook"
omailitem.Recipients.Add "
[email protected]"
omailitem.Send