procedure Tfo3EmailOpstellen.SendGEmail;
const   ConnectSSLAuto = 1;
var body_html    : string;
begin
    Oauth := TOauthWrapper.Create;
    oSmtp := TMail.Create(nil);
  try
    Oauth.InitGoogleSmtpProvider;
    oSmtp.LicenseCode := 'xxxxxxxx';

    // Set Asynchronous mode
    oSmtp.Asynchronous := 1;

     Oauth.accesstoken  := email.EmailAccountNil.GMail_AccessToken; // from database
     Oauth.refreshtoken := email.EmailAccountNil.GMail_RefreshToken; // from database

     if not DoOauth() then
     begin
       showmessage('Failed to request/refresh access token!');
       exit;
     end;

    oSmtp.Charset := 'utf-8';
    oSmtp.FromAddr := email.EmailAccountNil.SMTP_Inlognaam;
    oSmtp.ReplyTo :=  email.EmailAccountNil.SMTP_Inlognaam;

    // Add recipient's
    oSmtp.ClearRecipient();
    oSmtp.AddRecipientEx(trim(email.EmailAdresNaarOverflow), 0);
    // Set subject
    oSmtp.Subject := email.Onderwerp;

    // Using HTML FORMAT to send mail
    oSmtp.BodyFormat := 1;

    body_html := email.AntwoordHtmlOverflow2;

    oSmtp.ImportHtml( body_html, GetCurrentDir());
    oSmtp.ServerAddr := email.EmailAccountNil.SMTP_Servernaam;
    oSmtp.ServerPort := 587; //ports[lstPort.ItemIndex];
    oSmtp.Protocol := 0; //SMTP protocol

    oSmtp.UserName := Oauth.UserEmail;
    oSmtp.Password := Oauth.AccessToken;
    oSmtp.AuthType := 5; //  XOAUTH2;

    // Use SSL/TLS based on server port.
    oSmtp.ConnectType := ConnectSSLAuto;
    oSmtp.SendMail();

    if oSmtp.GetLastErrDescription() <>'' then
      ShowNBMessage('Fout : ' + oSmtp.GetLastErrDescription())
    else
      ShowNBMessage('Mail verstuurd');
  finally
    Oauth.free;
    oSMTP.free;
  end;

end;