Исправление ошибки отправки электронных сообщений с использованием TListView и Indy в Delphi

Delphi , Компоненты и Классы , TListView

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

Описание проблемы

Пользователь столкнулся с проблемой, когда пытался отправить сообщение на список электронных адресов, хранящихся в компоненте TListView. Проблема заключалась в неправильной инициализации свойства TIdMessage.Recipients.EMailAddresses, где каждый новый адрес перезаписывал предыдущий, вместо добавления в список.

Оригинальный код

В коде, предоставленном пользователем, есть несколько ошибок:

1. Цикл for неверно инициализирован, он должен идти от 0 до lsvRecipients.Items.Count - 1.
2. Свойство msgEmail.Recipients.EMailAddresses должно быть перезаписано вызовом метода Add, а не присваиванием, так как это свойство предназначено для хранения одной строки с адресами, разделенных запятыми.

Исправленный код

Для решения проблемы нужно использовать метод Add свойства Recipients:

for i := 0 to lsvRecipients.Items.Count - 1 do
begin
  msgEmail.Recipients.Add.Address := lsvRecipients.Items[i].Caption;
end;

Также важно добавить блоки try..finally для корректного освобождения ресурсов в случае возникновения исключений.

Полный исправленный пример

procedure TfrmEmailer.btnSendClick(Sender: TObject);
var
  smtpServer: TIdSMTP;
  msgEmail: TIdMessage;
  ssl: TIdSSLIOHandlerSocketOpenSSL;
  i: Integer;
begin
  smtpServer := TIdSMTP.Create(nil);
  try
    msgEmail := TIdMessage.Create(smtpServer);
    ssl := TIdSSLIOHandlerSocketOpenSSL.Create(smtpServer);
    try
      // Инициализация параметров сообщения
      msgEmail.Sender.Address := edtSenderAddress.Text;
      msgEmail.Sender.Name := edtSenderName.Text;
      msgEmail.ReplyTo.EMailAddresses := edtReplyTo.Text;

      // Добавление адресатов из TListView
      for i := 0 to lsvRecipients.Items.Count - 1 do
      begin
        msgEmail.Recipients.Add.Address := lsvRecipients.Items[i].Caption;
      end;

      // Установка темы и тела письма
      msgEmail.Subject := edtSubject.Text;
      msgEmail.Body.Text := redBody.Text;

      // Настройка SSL и параметров SMTP сервера
      ssl.SSLOptions.Method := sslvTLSv1_2;
      ssl.SSLOptions.Mode := sslmUnassigned;
      ssl.SSLOptions.VerifyMode := [];
      ssl.SSLOptions.VerifyDepth := 0;
      smtpServer.IOHandler := ssl;
      smtpServer.Host := edtHost.Text;
      smtpServer.Port := StrToInt(edtPort.Text);
      smtpServer.Username := edtUsername.Text;
      smtpServer.Password := edtPassword.Text;
      smtpServer.UseTLS := utUseExplicitTLS;

      // Отправка письма
      smtpServer.Connect;
      try
        smtpServer.Send(msgEmail);
      finally
        smtpServer.Disconnect;
      end;
    finally
      ssl.Free;
    end;
  finally
    smtpServer.Free;
    msgEmail.Free;
  end;

  // Подтверждение отправки письма
  Beep;
  ShowMessage('Email Sent!');
end;

Заключение

В данной статье мы рассмотрели типичную ошибку, возникающую при работе с компонентами Indy и TListView в Delphi, и предложили исправленный код, который позволяет корректно отправить сообщение на список адресатов. Важно помнить о правильном использовании методов добавления адресатов и обработке исключений для предотвращения утечек памяти.

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

Контекст описывает проблему с корректной отправкой электронных сообщений на несколько адресатов, используя компонент TListView и библиотеку Indy в среде разработки Delphi, и предлагает исправление в коде для решения этой проблемы.

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

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

:: Главная :: TListView ::