Envío de correos SMTP de office365 con Indy10

[navbuoy]

Le pregunte a mi querido ChatGPT y me dice:

Implementar el envío de correos electrónicos con OAuth2 en Delphi utilizando Indy10 implica varios pasos, incluyendo la configuración de OAuth2, el uso de las bibliotecas de Indy para enviar correos y la autenticación con el token de acceso. A continuación, te proporcionaré una guía paso a paso sobre cómo hacerlo.

Requisitos Previos
Delphi con Indy10: Asegúrate de que tienes Delphi instalado con las bibliotecas Indy10 disponibles.
Cuenta de Correo: Necesitarás una cuenta de correo electrónico que soporte OAuth2 (por ejemplo, Gmail, Outlook).
Bibliotecas Adicionales: Es posible que necesites las bibliotecas de OAuth2, como IdOAuth2 de Indy.
Paso 1: Configuración de OAuth2
Para usar OAuth2, necesitas registrar tu aplicación en la consola de desarrolladores de tu proveedor de correo electrónico (por ejemplo, Google). Esto te proporcionará:

Client ID
Client Secret
Redirect URI
Paso 2: Obtener el Token de Acceso
Para obtener un token de acceso, deberás realizar el flujo de autorización de OAuth2. Aquí te muestro cómo hacerlo utilizando una función de ejemplo. El proceso de obtención del token puede variar dependiendo del proveedor de servicios de correo electrónico.

Ejemplo de obtención del token de acceso:

uses
  IdHTTP, IdSSL, IdSSLOpenSSL, System.JSON;

function GetAccessToken(ClientID, ClientSecret, RefreshToken: string): string;
var
  IdHTTP: TIdHTTP;
  IdSSL: TIdSSLIOHandlerSocketOpenSSL;
  Params: TStringList;
  Response: string;
  JSONResponse: TJSONObject;
begin
  IdHTTP := TIdHTTP.Create(nil);
  IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  Params := TStringList.Create;
  try
    IdHTTP.IOHandler := IdSSL;

    // Establecer los parámetros para la solicitud de token
    Params.Add('client_id=' + ClientID);
    Params.Add('client_secret=' + ClientSecret);
    Params.Add('refresh_token=' + RefreshToken);
    Params.Add('grant_type=refresh_token');

    // Hacer la solicitud POST para obtener el token
    Response := IdHTTP.Post('https://oauth2.googleapis.com/token', Params);
    JSONResponse := TJSONObject.ParseJSONValue(Response) as TJSONObject;

    try
      Result := JSONResponse.GetValue('access_token').Value; // Extraer el token
    finally
      JSONResponse.Free;
    end;
  finally
    Params.Free;
    IdSSL.Free;
    IdHTTP.Free;
  end;
end;

Paso 3: Enviar Correo Electrónico con Indy10
Una vez que hayas obtenido el token de acceso, puedes usar Indy10 para enviar correos electrónicos.

Ejemplo de envío de correo:

uses
  IdSMTP, IdMessage;

procedure SendEmail(EmailAddress, Subject, Body, AccessToken: string);
var
  SMTP: TIdSMTP;
  Msg: TIdMessage;
begin
  SMTP := TIdSMTP.Create(nil);
  Msg := TIdMessage.Create(nil);
  try
    // Configurar SMTP
    SMTP.Host := 'smtp.gmail.com'; // Cambia según tu proveedor
    SMTP.Port := 587;
    SMTP.UseTLS := utUseExplicitTLS;
    
    // Establecer las credenciales con el token de acceso
    SMTP.AuthType := atOAuth2;
    SMTP.OAuth2.ClientID := '<Tu Client ID>';
    SMTP.OAuth2.ClientSecret := '<Tu Client Secret>';
    SMTP.OAuth2.AccessToken := AccessToken;
    SMTP.Username := EmailAddress; // La dirección de correo electrónico
    
    // Crear el mensaje
    Msg.From.Address := EmailAddress;
    Msg.Recipients.Add.Email := EmailAddress; // Cambia según el destinatario
    Msg.Subject := Subject;
    Msg.Body.Text := Body;
    
    // Conectar y enviar el mensaje
    SMTP.Connect;
    try
      SMTP.Send(Msg);
    finally
      SMTP.Disconnect;
    end;
  finally
    Msg.Free;
    SMTP.Free;
  end;
end;

Paso 4: Integrar Todo
Ahora puedes integrar los pasos anteriores en tu aplicación. Aquí tienes un ejemplo de cómo podrías usar las funciones:

procedure TForm1.btnSendEmailClick(Sender: TObject);
var
  AccessToken: string;
begin
  // Obtén el token de acceso
  AccessToken := GetAccessToken('<Tu Client ID>', '<Tu Client Secret>', '<Tu Refresh Token>');
  
  // Envía el correo
  SendEmail('<tu_email@gmail.com>', 'Asunto', 'Cuerpo del mensaje', AccessToken);
end;

Consideraciones Finales
Manejo de Errores: Asegúrate de implementar el manejo de errores en el código de producción.
Seguridad: Mantén tus credenciales seguras y no las incluyas directamente en el código.
Bibliotecas de Dependencia: Asegúrate de que las bibliotecas de Indy y las dependencias de SSL estén correctamente configuradas en tu proyecto.
Pruebas: Realiza pruebas exhaustivas para asegurarte de que el flujo de autorización y el envío de correos funcionen correctamente.
Con esto deberías poder enviar correos electrónicos utilizando Indy10 y OAuth2 en Delphi.