Problemas al enviar Mail con Indy

[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!!!