Agregar imagen a body usando SSIS

        Dim mail As New MailMessage()
        Dim enviadoA As String
        Dim fechaCumpleanos As String
        Dim cumpleanero As String
        enviadoA = Dts.Variables("User::To").Value.ToString()
        dato1= Dts.Variables("User::Dato1").Value.ToString()
        dato2= Dts.Variables("User::Dato12").Value.ToString()


        'set the addresses
        mail.From = New MailAddress("prueba@base.cl")
        mail.To.Add(enviadoA)

        'set the content
        mail.Subject = "Test"
        mail.Body = "<font color=#336699>Test</font>"
        mail.IsBodyHtml = True

        'send the message
        Dim smtp As New SmtpClient("smtp.test.cl")
        smtp.Send(mail)