Imports outlook = Microsoft.Office.Interop.Outlook
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim OutlookMessage As outlook.MailItem
        Dim AppOutlook As New outlook.Application
        Try
            OutlookMessage = AppOutlook.CreateItem( _
              outlook.OlItemType.olMailItem)
            Dim Recipents As outlook.Recipients = OutlookMessage.Recipients
            Recipents.Add("myemail@hotmail.com")
            OutlookMessage.Subject = "Sending through Outlook"
            OutlookMessage.Body = "Testing outlook Mail" & vbCrLf & "Hier steht" & _
              "noch was!"
            OutlookMessage.BodyFormat = outlook.OlBodyFormat.olFormatHTML
            OutlookMessage.Display()
            'OutlookMessage.Send()
        Catch ex As Exception
            MessageBox.Show("Mail could not be sent") 'if you dont want this 
            ' message, simply delete this line 
        Finally
            OutlookMessage = Nothing
            AppOutlook = Nothing
        End Try
 
    End Sub
 
End Class

EALA FREYA FRESENA