[joelphi]

Primeramente gracias por contestar..mira el codigo pasado es muy simple..tengo este procedimientos que hace lo mismo pero me manda un error, te los describo acontinuacion..

Código Delphi [-]
procedure TForm1.EnviarMensaje(sUsuario, sClave, sHost, sAdjunto, sAsunto,
  sDestino, sMensaje: String);
var SMTP: TIdSMTP;
   Mensaje: TIdMessage;

   //Adjunto: TIdAttachment;
begin

  // Creamos el componente de conexión con el servidor
  SMTP := TIdSMTP.Create( nil );

  SMTP.Username := sUsuario;
  SMTP.Password := sClave;
  SMTP.Host := sHost;
  SMTP.Port := 587;
  smtp.AuthType:=atDefault;

  // Creamos el contenido del mensaje
  Mensaje := TIdMessage.Create( nil );
  Mensaje.Clear;
  Mensaje.From.Name := sDestino;
  Mensaje.From.Address := sDestino;
  Mensaje.Subject := sAsunto;
  Mensaje.Body.Text := sMensaje;
  
  try
    SMTP.Connect;
  except
    raise Exception.Create( 'Error al conectar con el servidor.' );
  end;
       if SMTP.Connected then
     SMTP.Send(Mensaje);

  FreeAndNil( Mensaje );
  FreeAndNil( SMTP );

  Application.MessageBox( 'Mensaje enviado correctamente.',
    'Fin de proceso',MB_ICONINFORMATION );
end;

Y LO MANDO A LLAMAR ASI..

Código Delphi [-]
EnviarMensaje('correo_proveedor@gmail.com', 'contr@seña', 'smtp.gmail.com',
             '-', 'Te envio mi documento',
             'Correo_destino@hotmail.com', 'Adjunto archivo: documento.zip');

EL ERROR ES ESTE..

"class EIdSMTPReplyError with Message 'Must issue a STARTTLS' command first"

SUCEDE CUANDO PASA POR ESTE CODIGO
SMTP.Send(Mensaje);

por ahora no enviare archivos adjuntos solo quiero enviar el correo..

NECESITO SU AYUDA...POR FAVOR...