Function mailMessage(ByRef htmlMessageBody As String, ByRef textMessageBody As String, ByRef toAddress As String, ByVal attachedFilePath As String) As Boolean
    Dim objMail As New MailMessage
    objMail.From = New MailAddress("you@you.com")
    objMail.To.Add(toAddress)
    objMail.Subject = "Message Subject"
    objMail.Body = htmlMessageBody
    objMail.IsBodyHtml = True

    ' If we chose to attach a file, attach it
    If attachedFilePath.Length > 0 Then
        Dim attachedFile As Attachment = New Attachment(attachedFilePath)
        objMail.Attachments.Add(attachedFile)
    End If

    ' Create the text/plain version
    Dim txtView As AlternateView = AlternateView.CreateAlternateViewFromString(textMessageBody, Nothing, "text/plain")
    ' Attach text/plain version to the email
    objMail.AlternateViews.Add(txtView)

    ' Create inline image
    ' Image is in the directory this script is running from. you could have one uploaded.
    Dim Attch_CSLogo As LinkedResource
    Dim imgPath As String = Server.MapPath("inlineimage.gif")
    Attch_CSLogo = New LinkedResource(imgPath, "image/gif")
    Attch_CSLogo.ContentId = "YOURIMAGE_CID"
    ' Create the text/html version
    Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString(htmlMessageBody, Nothing, "text/html")
    ' Attach inline image
    htmlView.LinkedResources.Add(Attch_CSLogo)

    ' Attach text/html version to the email
    objMail.AlternateViews.Add(htmlView)

    'Send our message
    Dim smtp As New SmtpClient("localhost")

    Try
        smtp.Send(objMail)
    Catch ex As Exception
        Return False
    Finally
        objMail.Dispose()
        smtp = Nothing
    End Try
    Return True
End Function