Как настроить отправку электронных писем через Gmail в приложении на Delphi для Android

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

Для того чтобы настроить отправку электронных писем через Gmail в приложении, разработанном на Delphi для Android, необходимо выполнить ряд шагов. Ниже приведен пошаговый план настройки SMTP клиента с использованием компонентов Indy, а также примеры кода на Object Pascal (Delphi).

Подготовка компонентов Indy

1. Создание формы и компонентов

На форме создайте следующие компоненты Indy: TIdSMTP, TIdMessage, TIdAttachmentFile и TIdSSLIOHandlerSocketOpenSSL. Убедитесь, что форма использует подходящую для Android версию Delphi.

pascal TForm1 = class(TForm) SendBtn: TButton; IdSMTP1: TIdSMTP; IdMessage1: TIdMessage; IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL; // Другие компоненты и процедуры end;

1. Настройка IOHandler

В процедуре FormCreate настройте IOHandler для TIdSMTP:

pascal procedure TForm1.FormCreate(Sender: TObject); begin IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; // Другие настройки SSL end;

1. Установка параметров SMTP

В той же процедуре укажите параметры SMTP: UseTLS, AuthType, Host, Port, Username, Password.

pascal IdSMTP1.UseTLS := utUseExplicitTLS; IdSMTP1.AuthType := satSASL; IdSMTP1.Host := 'smtp.gmail.com'; IdSMTP1.Port := 587;

1. Настройка SASL механизмов

Добавьте необходимые SASL механизмы, но убедитесь, что у каждого компонента SASL указано значение UserPassProvider.

pascal // ... IdSASLCRAMSHA11.UserPassProvider := IdUserPassProvider1; // ... IdSMTP1.SASLMechanisms.Add.SASL := IdSASLCRAMSHA11; // ...

Отправка электронного письма

1. Очистка сообщения

В процедуре SendBtnClick сначала очистите TIdMessage.

pascal IdMessage1.Clear;

1. Настройка сообщения

Настройте поля сообщения, такие как From, Recipients, Subject, Body, и добавьте прикрепленный файл.

pascal IdMessage1.From.Address := 'myemail@gmail.com'; // ... Attachment := TIdAttachmentFile.Create(IdMessage1.MessageParts, GetHomePath + '/Test.txt'); IdMessage1.ContentType := 'multipart/mixed';

1. Отправка сообщения

Отправьте сообщение, используя try/finally для корректного закрытия соединения:

pascal procedure TForm1.SendBtnClick(Sender: TObject); begin if IdSMTP1.Connected then IdSMTP1.Disconnect; IdSMTP1.Connect; try IdSMTP1.Send(IdMessage1); finally IdSMTP1.Disconnect; end; end;

Устранение проблем с безопасностью

• Если вы получаете сообщение об ошибке аутентификации от Google, убедитесь, что в настройках Google активированы "Менее безопасные приложения" или сгенерируйте "Пароль для приложения".
• Убедитесь, что файл для прикрепления существует и доступен по указанному пути.

Заключение

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

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

Описание процесса настройки и отправки электронных писем через Gmail в приложении, разработанном на Delphi для Android, с использованием компонентов Indy и настройки SMTP клиента.

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

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

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