Try this @raghuramk
Dim e_mail As New MailMessage()
e_mail.From = New MailAddress("mail address")
e_mail.[To].Add("mail address")
e_mail.Subject = "Mail through VB"
Dim smtp As New SmtpClient("SMTP")
e_mail.Body = "Body of mail"
e_mail.Attachments.Add(data)
smtp.Send(e_mail)
This will work if the mail is configured in your machine and if you provide the same smtp in the code
Let me know if you don’t have your outlook configured in your machine. that is somewhat different from this @raghuramk