Send e-mail from Outlook from VB.NET

 To create an Outlook e-mail message in VB.net (2005)

Imports Microsoft.Office.Interop



  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("nick.gough@sprintcare.com")
            OutlookMessage.Subject = comid
            OutlookMessage.Body = "Testing outlook Mail"
            OutlookMessage.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
            OutlookMessage.Attachments.Add(myfile)
'##use  this to ----- to Open the message for editing
            OutlookMessage.Display() 

or
            OutlookMessage.Send()
to send message
        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