Embed Image in Email

[trbyrne]

I am trying to embed an image in an email using VB.NET 2005 and system.net.mail. Each time I send it I get a red X where the image should be - I can't get it to work. My code is as listed below

Sub testing()
        'create the mail message
        Dim mail As New MailMessage()

        'set the addresses
        mail.From = New MailAddress("me@mycompany.com")
        mail.To.Add("rbyrne@brombergs.com")
        mail.To.Add("rbyrne1@charter.net")

        'set the content
        mail.Subject = "This is an email"

        Dim A As System.Net.Mail.Attachment = New System.Net.Mail.Attachment("c:\anniversary.jpg")
        Dim RGen As Random = New Random()
        A.ContentId = RGen.Next(100000, 9999999).ToString()
        mail.Body = "Here is the image --> <img src=""cid:" + A.ContentId + """>"
        mail.IsBodyHtml = True

        'send the message
        Dim smtp As New SmtpClient(mailserver.Text) 'specify the mail server address
        smtp.Send(mail)
    End Sub