Revisando nuevamente el tema, gmail detecta el login y me envia el siguiente email:
Código:
Alguien acaba de intentar iniciar sesión en tu cuenta de Google,emailuser@gmail.com, en una aplicación que no cumple los estándares de seguridad modernos.
Te recomendamos encarecidamente que utilices una aplicación segura, como Gmail, para acceder a tu cuenta. Todas las aplicaciones creadas por Google cumplen estos estándares de seguridad. No obstante, si utilizas una aplicación menos segura, tu cuenta puede volverse más vulnerable.
Supongo que en algun otro server con menos restricciones si funcionara, te pongo el codigo del ejemplo que estoy usando.
Código Delphi
[-]procedure TForm1.Button3Click(Sender: TObject);
var
oSmtpClient: TSmtpClient;
begin
oSmtpClient := TSmtpClient.Create;
try
oSmtpClient.ServerAddress := 'smtp.gmail.com'; oSmtpClient.ServerPort := '587';
oSmtpClient.ServerLoginUsername := 'usuariouno@gmail.com';
oSmtpClient.ServerLoginPassword := 'xxxxxx';
oSmtpClient.MessageClear;
oSmtpClient.BodyAsPlainText.Text := 'Plain body text.';
oSmtpClient.BodyAsHtml.Text := 'Html body text';
oSmtpClient.AutoTLS := True;
oSmtpClient.FullSSL := True;
oSmtpClient.StartTLS;
if oSmtpClient.Send( 'usuariouno@gmail.com', 'usuario@gmail.com', '', '', 'Subject ... Buy more of our stuff' ) then
ShowMessage( 'Send ok' )
else
ShowMessage( 'Err: '+ oSmtpClient.SendResult );
finally
oSmtpClient.Free;
end;
end;
Saludos.