Uno de los problemas tipicos de los envios masivos de emails es que las imagenes tienen que incrustarse en el email o la url tiene que estar disponible (no pueden aputar a tu disco duro). WinDev soluciona esto incrustando las imagenes en el propio email.
Tengo el siguiente fichero HTML:
La imagen está fisicamente al lado de este fichero html pero en mi disco local (no en internet)
Aplicaría el siguiente código:
// Start an SMTP session
MySession is EmailSMTPSession
MySession..ServerAddress = «mail.mihost.com»
MySession..Name=»alice@mihost.com»
MySession..Password=»clave»
EmailStartSession(MySession)// Build the message
MyMessage is Email
MyHTMLText is string = fLoadText(«d:\windev\006\prueba.html»)EmailImportHTML(MyMessage, MyHTMLText, «d:\windev\006\»)
MyMessage..Sender =»alice@mihost.com»
Add(MyMessage..Recipient, «pep@mihost.com»)
MyMessage..Message = «hola»
MyMessage..Subject = «asunto»// Send the message
EmailSendMessage(MySession, MyMessage)