Устранение проблем с отправкой писем через Gmail в Delphi XE3: инструкция по Indy компонентам

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

Отправка электронной почты через Gmail и Indy в Delphi XE3

При работе с электронной почтой в Delphi XE3 через компоненты Indy, пользователи могут столкнуться с рядом проблем, особенно при использовании сервиса Gmail. В данной статье рассмотрим одну из таких проблем и предоставим инструкцию по её устранению.

Проблема отправки писем через Gmail

Пользователь столкнулся с ошибкой при попытке отправки письма через Gmail с использованием компонентов Indy в Delphi XE3. Пример кода, полученный с сайта www.andrecelestino.com, не работал корректно, несмотря на установку необходимых библиотек libeay32.dll и ssleay32.dll. Пользователь получал сообщение от Gmail о необходимости авторизации через веб-браузер.

Пример кода

uses
  // Подключение необходимых модулей
  ...

procedure TForm1.Button1Click(Sender: TObject);
var
  IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketOpenSSL;
  IdSMTP: TIdSMTP;
  IdMessage: TIdMessage;
  IdText: TIdText;
begin
  // Инициализация объектов
  ...
  try
    // Настройка SSL-протокола
    IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23;
    IdSSLIOHandlerSocket.SSLOptions.Mode := sslmClient;
    // Настройка SMTP-сервера
    IdSMTP.IOHandler := IdSSLIOHandlerSocket;
    IdSMTP.UseTLS := utUseImplicitTLS;
    IdSMTP.AuthType := satDefault;
    IdSMTP.Port := 465;
    IdSMTP.Host := 'smtp.gmail.com';
    IdSMTP.Username := 'MYLOGIN@gmail.com';
    IdSMTP.Password := 'MYPASS';
    // Настройка сообщения
    ...
    // Подключение и аутентификация
    try
      IdSMTP.Connect;
      IdSMTP.Authenticate;
    except
      on E:Exception do
      begin
        MessageDlg('Ошибка аутентификации: ' + E.Message, mtWarning, [mbOK], 0);
        Exit;
      end;
    end;
    // Отправка сообщения
    try
      IdSMTP.Send(IdMessage);
      MessageDlg('Сообщение отправлено успешно!', mtInformation, [mbOK], 0);
    except
      On E:Exception do
      begin
        MessageDlg('Ошибка при отправке сообщения: ' + E.Message, mtWarning, [mbOK], 0);
      end;
    end;
  finally
    // Освобождение объектов
    FreeAndNil(IdMessage);
    FreeAndNil(IdSSLIOHandlerSocket);
    FreeAndNil(IdSMTP);
  end;
end;

Решение проблемы

Проблема, с которой столкнулся пользователь, заключалась в том, что Google заблокировал авторизацию через такое приложение. После проверки всех настроек в коде, был найден способ решения:

1. Перейдите в настройки безопасности вашей учетной записи Gmail: https://www.google.com/settings/security/lesssecureapps.
2. Включите доступ для "менее безопасных приложений".

Обновление:

После этого, если отправка письма не удалась, зайдите в свою учетную запись Gmail и посетите следующие страницы:

• Активность устройств
• Безопасность учетной записи

Подтвердите, что новое "неизвестное устройство" принадлежит вам (это ваше приложение Delphi).

Альтернативное решение

Если вы не хотите включать "менее безопасные приложения", вы можете сгенерировать пароль приложения и использовать его вместо вашего обычного пароля Gmail в свойстве TIdSMTP.Password. Для генерации пароля перейдите по ссылке: https://support.google.com/accounts/answer/185833?hl=en.

Заключение

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

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

Пользователь столкнулся с проблемой отправки электронных писем через Gmail в Delphi XE3 с использованием компонентов Indy и нашел решение, связанное с настройками безопасности учетной записи Gmail.

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

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

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