Hace unos días me metí en el problema de mandar Mails Con Imágenes Incrustadas , el caso es que pude mandarlas con una liga en el cuerpo del mail , lo mande a mis propias cuentas de la empresa para hacer las pruebas correspondientes y funciono, pero me topo con el caso de que si las mando a cuentas de Gmail o Hotmail simple y llanamente no llegan, la verdad ni idea del porque espero me puedan ayudar a encontrar una solución al problema, les dejo el código del envío, de antemano mil gracias por su ayuda.

' gambas class file

PUBLIC imagen AS String
PUBLIC ruta AS String
PUBLIC archivo AS String

PUBLIC SUB Form_Open()

ME.Center()
ME.Title = "Envío de FACTURA "

END

PUBLIC SUB DirView1_Click()

FileView1.Dir = DirView1.Current

END

PUBLIC SUB FileView1_Click()

DIM tamano AS Integer

ruta = DirView1.Current
archivo = FileView1.Current
tamano = FileView1.Width

imagen = ruta & "/" & archivo
TextBox3.Text = imagen
PictureBox1.Picture = Picture[imagen]

END

PUBLIC SUB Button3_Click()

ME.Close

END

PUBLIC SUB Button2_Click()

DIM Correo AS SmtpClient
DIM remitente AS String
DIM Asunto AS String
DIM Mensaje AS String

Asunto = (TextBox1.Text)

' remitente = "micuenta@miservidor.com"
Mensaje = "<body><img src='http://www.miservidor.com/facturas/" & archivo & "'></body>"

'Envío del mensaje
Correo = NEW SmtpClient
Correo.To.Add(TextBox2.Text)
Correo.From = "micuenta@miservidor.com"
Correo.Subject = Asunto
Correo.Host = "mail.miservidor.com"
Correo.Port = "26"
Correo.Add(Mensaje, "text/html")
Correo.Send()
message.Info("Mensaje Enviado")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox2.SetFocus

END



PUBLIC SUB Button1_Click()

DIM FtpBCM AS NEW FtpClient

DIM servidor AS String
DIM usuario AS String
DIM llave AS String
DIM directorio AS String

directorio = "/httpdocs/facturas/"
servidor = "miservidor.com"
usuario = "usuario"
llave = "llave"


'Envío del FTP

FtpBCM.URL = servidor & directorio & archivo
FtpBCM.Timeout = 60
FtpBCM.User = usuario
FtpBCM.Password = llave
FtpBCM.Put(imagen)
TextBox4.Text = FtpBCM.Status
DO UNTIL FtpBCM.Status <= 0
IF FtpBCM.Status = 6
TextBox4.Text = "Conectando con servidor remoto (status:" & FtpBCM.Status & ")"
END IF
IF FtpBCM.Status = 4
TextBox4.Text = "Enviando archivo al servidor (status:" & FtpBCM.Status & ")"
END IF
IF FtpBCM.Status = 0
TextBox4.Text = "En espera (status:" & FtpBCM.Status & ")"
END IF
WAIT 0.01
LOOP

TextBox4.Text = "Transferencia terminada"

FtpBCM.Close()

END

PUBLIC SUB TextBox4_KeyPress()

END