delphi
var mail : TIDMessage; smtp : TIdSMTP; cArchivo: String; begin smtp := TIdSMTP.Create(self); smtp.Name := 'Smtp'; // CONFIGURACION DEL SERVIDOR AL QUE SE ENVIA EL CORREO with smtp do begin AuthenticationType := atLogin; Host := Sistema.hostcorreo; port := Sistema.portcorreo; Username := Sistema.username; Password := Sistema.Password; end; mail := TIdMessage.Create(Self); // CONFIGURACION DEL MENSAJE A ENVIAR with mail do begin From.Address := 'automaticosalvador@salvador.com.ve'; Recipients.EMailAddresses := Sistema.Correoenviar; Subject := 'TICKETS ' + Empresa.Nombre; body.text := 'CORREO GENERADO AUTOMATICAMENTE EL ' + DatetoStr(now) + ' A LAS ' + TimetoStr(Time) + ' DESDE ' + Empresa.Nombre + ' Trae: ' + cLinea1 + ' ' + cLinea2; end; //Archivo adjunto if FileExists(cArchivo) then TIdAttachment.create(mail.MessageParts, cArchivo); try // CONEXION CON EL SERVIDOR DE CORREO smtp.Connect(10000); try // ENVIO DEL MENSAJE smtp.Send(mail); ShowMessage('Se envio el correo'); except on E: Exception do ShowMessage('Fallo al enviar: ' + E.Message); end; finally if SMTP.Connected then SMTP.Disconnect; smtp.free; mail.free; end; end;
Este me permite enviar correos de texto plano, pero ahora necesito enviar correos que contienen imagenes y texto en formato HTML, alguien sabe como hacer esto?