Problemas al enviar Mail con Indy

[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('[email protected]', 'contr@seña', 'smtp.gmail.com',
             '-', 'Te envio mi documento',
             '[email protected]', '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...

[Lenny]

Pregunta: Necesitas enviar/trabajar con GMAIL???, las respuestas seran enviadas a GMAIL?? o desde GMAIL???

Como sea, si necesitas por ahora enviar mails y luego adjuntos, revisa este codigo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var
   smtp: TIdSMTP;
   mail: TIdMessage;
 begin
   smtp := TIdSMTP.Create(Self);
   mail := TIdMessage.Create(Self);
   with smtp do
   begin
     Port := 587;
     Host := 'smtp.gmail.com';
     Username := '[email protected]';
     Password := '********';
   end;
   with mail do
   begin
     Recipients.Add;
     Recipients[0].Name := 'Lucho de las Rosas';
     Recipients[0].Address := '[email protected]'; //Puede ser cualqueira, no necesariamente GMAIL
     From.Name := 'Juanito Perez de los Palotes';
     From.Address := '[email protected]';
     Subject := 'Pruebas';
     Body.Text := 'Pruebas 2';
   end;
   TIdAttachmentFile.Create(mail.MessageParts, 'C:\Pruebas.txt');
   smtp.Connect;
   try
     try
       smtp.Send(mail);
     except
       on E: Exception do
         ShowMessage(E.Message);
     end;
   finally
     if smtp.Connected then
       smtp.Disconnect;
   end;
   mail.Free;
   smtp.Free;
 end;

Si no te sirve, u obligatoriamente deves trabajar con el codigo antes expuesto nos avisas, y veremos que podemos hacer, un abrazo... Byes!!!

[joelphi]

mi buen amigo algo no funciona con el ejemplo que me enviastes... o posiblemente sea yo :::
Adjunto el error..

[Lenny]

puedes enviar el codigo tal cual lo tienes ahora en tu Delphi???

[Enan0]

Te comento para enviar Emails a traves de Gmail tenes que Usar SSL,

hay varios ejemplos en la Seccion Internet. y varios en el FTP

Te recomiendo que Busques SMTP o GMAIL en la seccion Internet