Hola Alejandro, que tal?, mira trata para la proxima vez usar las etiquetas para que el contenido del mensaje sea mas legible.
Código Delphi
[-]procedure TForm002.BitBtn5Click(Sender: TObject);
var
smtp: TIdSMTP;
mail: TIdMessage;
begin
smtp := TIdSMTP.Create(Self);
mail := TIdMessage.Create(Self);
with smtp do
begin
Port :=25;
Host :='nombrehost';
Username:='';
Password:='';
end;
with mail do
begin
Recipients.Add;
Recipients[0].Name :=EditDestinatario.Text;
Recipients[0].Address:=EditDestino.Text;
From.Name :='xxxxx';
From.Address :='usuario@dominio';
Subject :=EditAsunto.Text
Body.Text :=Memo1.Lines.Text;
if EditConCopia.Text<>''
then begin CCList.Add.Address:=EditConCopia.Text;
end;
end;
smtp.Connect;
Screen.Cursor:=CrDefault;
try
try
smtp.Send(mail);
ShowMessage('Mensaje Enviado Satisfactoriamente');
except
on E: Exception do
ShowMessage('Ocurrio un Error al Intentar enviar Automaticamente el Mensaje');
end;
finally
if smtp.Connected then
smtp.Disconnect;
end;
mail.Free;
smtp.Free;
end;
Saludos.