[joelphi]

mi buen amigo tengo un problema similar al tuyo, y al igual que tu ya he probado muchisimas veces codigo y nunca me queda..el codigo que mas se acerco al envio es este..

Código Delphi [-]

procedure TForm1.prueba;
var SMTP: TIdSMTP;
   mensaje: TIdMessage;

begin
   mensaje := TIdMessage.Create(nil);
smtp := TIdSMTP.Create(nil);
smtp.Username := 'notificaciones.1@gmail.com';
smtp.Password := 'contr@seña';
smtp.Host := 'smtp.gmail.com';
SMTP.Port := 587;
smtp.AuthType:=atSASL;

mensaje.Subject := 'Aviso de vencimiento de pago';
mensaje.From.Name := 'ventas elmar';
Mensaje.From.Address := 'correo _destino@hotmail.com';

mensaje.Body.Text := 'Probando el servicio de correo .......................';
mensaje.ContentType := 'text/html';


mensaje.Recipients.Add;
mensaje.Recipients[0].Address := 'correo_destino@hotmail.com'; // destinatario
 smtp.UseTLS:=utUseRequireTLS;

smtp.Connect;
try
try

smtp.SendMsg(mensaje,true);
//smtp.Send(mensaje);
ShowMessage('se envio correctamente a ');
except
on E: Exception do
ShowMessage(E.Message);
end;
finally
if smtp.Connected then
smtp.Disconnect;
end;
end;

Uso Delphi 2007
te agradeceria infinitamente si me ayudaras con un ejemplo o alguna referencia..por favor mi buen amigo...

de antemano Gracias...