Dim strServer As String = strMailServer
Dim mail As New System.Net.Mail.MailMessage(strFrom, strTo)
Dim htmlView As Net.Mail.AlternateView = Net.Mail.AlternateView.CreateAlternateViewFromString("Here is the image... <img src=cid:myImage>", Nothing, "text/html")
Dim oImage As New Net.Mail.LinkedResource(strFilename)
oImage.ContentId = "myImage"
htmlView.LinkedResources.Add(oImage)
mail.Subject = strSubject
mail.Body = strBody
mail.Priority = intPriority
mail.AlternateViews.Add(htmlView)
Dim serv As New System.Net.Mail.SmtpClient(strServer)
serv.Send(mail)