Envio de correo por gmail

[D1360666]

Hola gente como están??
Estoy haciendo un app con cliente de correo, el cual en el caso de usar una cuenta gmail, por razones de seguridad gmail, no me deja utilizar la cuenta desde mi app, en cambio probé utilizar una cuenta de Hotmail, y me anduvo barbaro.
Si alguno tiene idea de como solucionar el envío por gmail se agradece. Comparto el código que hice.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 DATA : TIdMessage;
 SMTP : TIdSMTP;
 SSL  : TIdSSLIOHandlerSocketOpenSSL;
begin
  SMTP := TIdSMTP.Create(nil);
  DATA := TIdMessage.Create(nil);
  SSL  := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

  SSL.SSLOptions.Method := sslvTLSv1;
  SSL.SSLOptions.Mode   := sslmUnassigned;
  SSL.SSLOptions.VerifyMode := [];
  SSL.SSLOptions.VerifyDepth := 0;

  DATA.From.Address := '@gmail.com';
  DATA.Recipients.EMailAddresses := '@hotmail.com';
  DATA.Subject := 'hola';
  DATA.Body.Text := 'hola este es el cuerpo del mensaje';

  SMTP.IOHandler := SSL;
//  SMTP.Host := 'smtp.gmail.com';
//  SMTP.Host :='smtp-relay.gmail.com';
    SMTP.Host := 'smtp.live.com';
    SMTP.Port := 465;
//gmail  SMTP.Port := 587;
  SMTP.Username := '@hotmail.com';
  //SMTP.Password := '';
  SMTP.Password := '';
  SMTP.UseTLS := utUseExplicitTLS;

  SMTP.Connect;
  SMTP.Send(DATA);
  SMTP.Disconnect;

  SMTP.Free;
  DATA.Free;
  SSL.Free;

end;

[EL WINDSURFISTA]

La APP es para IOS o Android ?

[D1360666]

Android con EX8, amigo El Windsurfista.

Saludos

[EL WINDSURFISTA]

Para que te funcione cambia en tu cuenta de gmail Permitir el acceso de aplicaciones menos seguras a si, puedes verlo en el siguiente enlace:

https://support.google.com/accounts/.../6010255?hl=es

Espero que te sea útil