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.


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/answer/6010255?hl=es

Espero que te sea útil