'Verweis auf COM Microsoft.Office.Interop.Outook.16.xxx muss gesetzt sein!
Imports Outlook = Microsoft.Office.Interop.Outlook
 
Public Class Form1
 
Dim Vorlage As String = "D:\Daten\vorlage.oft"
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
GenerateMail()
End Sub
 
Private Sub GenerateMail()
 
Dim app As New Outlook.Application
Dim folder As Outlook.Folder = CType(app.Session.GetDefaultFolder( _
  Outlook.OlDefaultFolders.olFolderDrafts), Outlook.Folder)
 
Dim mail As Outlook.MailItem = CType(app.CreateItemFromTemplate(Vorlage, _
  folder), Outlook.MailItem)
 
mail.To = "irgendwer@irgendwas.de"
mail.Subject = "Achtung: Heute ist Freitag!"
mail.Body = "Hallo! Hier steht der Text."
 
mail.Display()
 
End Sub
 
End Class

EALA FREYA FRESENA