Foros Club Delphi - Problema con email

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Problema con email (https://www.clubdelphi.com/foros/showthread.php?t=28697)

Problema con email

Hola, tego un codigo para mandar emails, funciona perfectamente el problema es cuando escribo el texto del email, no consigo cambiar de linea de texto (intro). E probado de poner esto despues del texto +#13+ i de poner varias lineas de texto. Pero no funciona, todo el texto me aparece en una misma linea.

Codigos que e probado:

Código:

MailMessage.Body.Text :=

'Mensaje del email'+#13+

'Mensaje del email' ;

Código:

MailMessage.Body.Text :=

 'Mensaje del email'+

 'Mensaje del email' ;

Prueba con Carriage Return (#13) + Line Feed (#10)

Código Delphi [-]MailMessage.Body.Text := 'Mensaje del email'#13#10'Mensaje del email';

Saludos!

No funciona cuando pongo ese codigo sale asi.

Mensaje del email Mensaje del email

¿De qué clase es MailMessage?.... Por casualidad la propiedad Body no es un TString???

Aqui dejo el codigo completo

Código:

procedure sendmail(Address:string);

var

MXResolver : TMXResolver;

recip:string;

I : Byte;

SMTP: TIdSMTP;

MailMessage: TIdMessage;

begin

MailMessage:= TIdMessage.Create(nil);

smtp:= TIdSMTP.Create(nil);

recip:=address;

MXResolver:=TMXResolver.Create(Copy(Recip,Pos('@',Recip)+1,Length(Recip)));

MxResolver.ListOfSMTPServers.Create();

FOR I:=0 TO MXResolver.ListOfSMTPServers.Count DO BEGIN

smtpserver:=MXResolver.ListOfSMTPServers.strings(I);

SMTP.Host := smtpserver;

SMTP.Port := 25;

MailMessage.From.Address := 'somemoron@google.com';

MailMessage.Recipients.EMailAddresses := address + ',' + '';

MailMessage.Subject := 'SUBJECT DEL EMAIL';

MailMessage.Body.Text := 'MENSAJE DEL EMAIL';

mailmessage.ContentType:=  'text/HTML';

SMTP.Connect;

SMTP.Send(MailMessage);

end;

end;

prueba con '%0D%0A' en lugar de #13