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