Отправка email из Delphi с помощью Gmail и OAuth2: исправление ошибки в JSON

Delphi , Интернет и Сети , E-mail

В современном мире электронная почта является одним из основных способов связи и коммуникации. Многие приложения и сервисы требуют возможности отправки email для различных целей, таких как подтверждение регистрации, уведомления об активации аккаунта, оповещения о новых сообщениях и т.д. В этой статье мы рассмотрим, как отправить email из Delphi с помощью Gmail и протокола аутентификации OAuth2.

Для начала необходимо получить доступ к API Gmail и авторизоваться с помощью OAuth2. Это можно сделать, следуя инструкциям на странице developers.google.com/gmail/api/quickstart/dotnet. После авторизации вы получите access token и refresh token, которые можно использовать для отправки email.

Однако, многие разработчики сталкиваются с проблемой при отправке email с помощью Gmail API. Вопрос, заданный на StackOverflow, демонстрирует типичную ошибку, которая может возникнуть при отправке email из Delphi:

"Я пытаюсь отправить email с помощью Gmail API из моего клиента Delphi. У меня не было проблем с получением access token и refresh token, но я не могу отправить email. Я создал следующий JSON и сохранил его в TJSONObject под названием MessageObject:

{ "payload": { "headers":[ { "To":"some.random@mail.com" }] }, "raw":"A Base64 encoding of the email with RFC 2822 format" } Я также пытался с таким JSON: { "raw":"A Base64 encoding of the email with RFC 2822 format" } Я использую следующий код для отправки запроса:

SetLength(HTTPHeader, 2);
HTTPHeader[0] := TNetHeader.Create('Content-Type', 'message/rfc822');
HTTPHeader[1] := TNetHeader.Create('Authorization', 'Bearer ' + sToken);

HTTPClient := THTTPClient.Create;
HTTPResponse := HTTPClient.Post('https://gmail.googleapis.com/upload/gmail/v1/users/me/messages/send',
                                TStringStream.Create(MessageObject.ToJSON), nil, HTTPHeader);

У меня есть идеи, что я делаю не так?"

Ответ на этот вопрос кроется в использовании неверного endpoint для отправки email. Endpoint, используемый в примере кода, предназначен для загрузки вложений и не принимает JSON в теле POST запроса. Правильный endpoint для отправки email - gmail.googleapis.com/gmail/v1/users/me/messages/send с Content-Type application/json.

Давайте рассмотрим, как исправить ошибку в JSON и отправить email с помощью правильного endpoint. Для этого мы создадим функцию SendEmail, которая принимает в качестве параметров адрес получателя, тему и тело email. Функция будет использовать правильный endpoint и отправлять JSON в теле POST запроса.

function SendEmail(const Recipient, Subject, Body: string): Boolean;
var
  MessageObject, HeadersObject: TJSONObject;
  Header: TJSONArray;
  HTTPClient: THTTPClient;
  HTTPResponse: TStringStream;
  sToken: string;
begin
  // Получение access token
  sToken := GetAccessToken();

  // Создание JSON для сообщения
  MessageObject := TJSONObject.Create;

  // Создание JSON для заголовков сообщения
  HeadersObject := TJSONObject.Create;
  Header := TJSONArray.Create;
  Header.Add(TJSONPair.Create('To', Recipient));
  HeadersObject.AddPair('headers', Header);
  MessageObject.AddPair('payload', HeadersObject);

  // Добавление тела сообщения в Base64 формате
  MessageObject.AddPair('raw', EncodeBase64(Format('Subject: %s\r\n\r\n%s', [Subject, Body])));

  // Создание HTTP клиента и отправка запроса
  HTTPClient := THTTPClient.Create;
  try
    HTTPResponse := HTTPClient.Post('https://gmail.googleapis.com/gmail/v1/users/me/messages/send',
                                     TStringStream.Create(MessageObject.ToJSON), nil, ['Content-Type=application/json', 'Authorization=Bearer ' + sToken]);
    Result := (HTTPResponse <> '');
  finally
    HTTPClient.Free;
  end;
end;

Функция SendEmail использует TJSONObject для создания JSON, который будет отправлен в теле POST запроса. Сначала создается JSON для заголовков сообщения, в котором указывается адрес получателя. Затем создается JSON для всего сообщения, в котором указывается JSON для заголовков и тело сообщения в Base64 формате. После этого создается HTTP клиент, и отправляется POST запрос на правильный endpoint с JSON в теле запроса.

Пример использования функции SendEmail:

SendEmail('some.random@mail.com', 'Тема письма', 'Текст письма');

Если вы все сделали правильно, email должен быть отправлен успешно. Если вы по-прежнему сталкиваетесь с проблемами, убедитесь, что у вас есть правильные разрешения для отправки email и что вы используете правильный access token.

В качестве альтернативного решения можно рассмотреть использование библиотек, которые уже реализуют отправку email с помощью Gmail API и упрощают процесс для разработчиков. Например, можно использовать библиотеку Indy для работы с email и библиотеку OmniThreadLibrary для асинхронной обработки запросов. Однако, это уже выходит за рамки темы данной статьи.

В заключение, отправка email из Delphi с помощью Gmail и OAuth2 может показаться сложной задачей, но с правильным подходом и использованием правильного endpoint, можно добиться успеха. Используйте пример кода, приведенный выше, в качестве отправной точки для отправки email из вашего приложения Delphi.

Создано по материалам из источника по ссылке.

Устранение ошибки в JSON и корректная отправка email через Gmail API из Delphi с использованием OAuth2.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: E-mail ::