YOu need the SMTP sever details for sending the mail.
Private Sub SendMail(ByVal StrTo As String, ByVal StrFrom As String, ByVal Subject As String, ByVal body As String)
Try
Dim msgMail As New MailMessage
Dim mailclient As New SmtpClient
Dim toadd As New MailAddressCollection
Dim fromAddress As New MailAddress(StrFrom)
If StrTo.Trim = "" Or StrFrom.Trim = "" Then
Response.Write("<script language='javascript'>alert('No Email found')</script>")
Exit Sub
End If
toadd.Add(StrTo)
msgMail.To.Add(toadd.ToString)
msgMail.From = fromAddress
msgMail.Subject = Subject
msgMail.Body = Server.HtmlDecode(body)
msgMail.IsBodyHtml = True
Dim contentId As String = "imgBand"
Dim path As String = Server.MapPath("~") & "\"
Dim filename As String = path & "Images/imageFunction5.png"
Dim av1 As AlternateView
av1 = AlternateView.CreateAlternateViewFromString(body, Nothing, MediaTypeNames.Text.Html)
Dim linkedResource As LinkedResource = New LinkedResource(filename)
linkedResource.ContentId = contentId
linkedResource.ContentType.Name = filename
av1.LinkedResources.Add(linkedResource)
filename = path & "Images/Test logo.gif"
contentId = "imgLogo"
Dim linkedResource_img As LinkedResource = New LinkedResource(filename)
linkedResource_img.ContentId = contentId
linkedResource_img.ContentType.Name = filename
av1.LinkedResources.Add(linkedResource_img)
msgMail.AlternateViews.Add(av1)
mailclient.Host =
mailclient.Send(msgMail)
Exit Sub
End If