Code snippt for sending an email through Outlook in VB.net

You can use the following code of lines for sending an e-mail from your MS-Outlook programmatically.

Dim strEmailTo As String ' email ids for 'To' fields seperated with (;)
Dim strCC As String ' email ids for 'CC' fields seperated with (;)
Dim strBody As String ' email body
Dim strSubject As String ' email subject
Dim outLookApp As New Outlook.Application()
 
Dim objNameSpace As Outlook.NameSpace = outLookApp.GetNamespace("MAPI")
Dim objFolder As Outlook.MAPIFolder = objNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
Dim mailItem As Outlook.MailItem = DirectCast(outLookApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)
mailItem = DirectCast(objFolder.Items.Add("IPM.Note"), Outlook.MailItem)
 
mailItem.[To] = strEmailTo
mailItem.CC = strCC
mailItem.BodyFormat = Outlook.OlBodyFormat.olFormatPlain
mailItem.Body = strBody
mailItem.Subject = strSubject
mailItem.Send()

If you want to display the Outlook E-mail’s compose window with per-entered data through C# or VB.net – see this How to create Outlook email item using C# and vb.net