Отправить E-mail

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

procedure TForm1.Button1Click(Sender: TObject);
begin 
  NMSMTP1.Host   := 'mail.host.com'; 
  NMSMTP1.UserID := 'Username'; 
  NMSMTP1.Connect; 
  NMSMTP1.PostMessage.FromAddress       := 'your_mail@host.com';
  NMSMTP1.PostMessage.ToAddress.Text    := 'delphiworld@mail.ru';
  NMSMTP1.PostMessage.ToCarbonCopy.Text := 'your_mail@host.com';
  NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'second_your_mail@host.com';
  NMSMTP1.PostMessage.Body.Text         := 'This is the message from Delphi World project';
  NMSMTP1.PostMessage.Attachments.Text  := 'c:\File.txt';
  NMSMTP1.PostMessage.Subject           := 'Delphi World is Great!';
  NMSMTP1.SendMail;
  ShowMessage('Mail sent !');
  NMSMTP1.Disconnect;
end;

Here's the translation of the text into Russian:

Делфи-код, использующий компонент NMSMTP для отправки электронной почты. Вот разбивка каждого шага:

1. NMSMTP1.Host := 'mail.host.com'; - Устанавливает хост-имя SMTP-сервера в 'mail.host.com'.
2. NMSMTP1.UserID := 'Username'; - Устанавливает имя пользователя для электронной почты.
3. NMSMTP1.Connect; - Установливает соединение с SMTP-сервером.
4. NMSMTP1.PostMessage.FromAddress := 'your_mail@host.com'; - Устанавливает адрес отправителя электронной почты.
5. NMSMTP1.PostMessage.ToAddress.Text := 'delphiworld@mail.ru'; - Устанавливает адрес получателя электронной почты.
6. NMSMTP1.PostMessage.ToCarbonCopy.Text := 'your_mail@host.com'; - Устанавливает адрес carbon-copy (CC) получателя электронной почты.
7. NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'second_your_mail@host.com'; - Устанавливает адрес blind carbon-copy (BCC) получателя электронной почты.
8. NMSMTP1.PostMessage.Body.Text := 'This is the message from Delphi World project'; - Устанавливает текст тела электронной почты.
9. NMSMTP1.PostMessage.Attachments.Text := 'c:\File.txt'; - Устанавливает путь к файлу-приложению.
10. NMSMTP1.PostMessage.Subject := 'Delphi World is Great!'; - Устанавливает тему электронной почты.
11. NMSMTP1.SendMail; - Отправляет электронную почту с помощью SMTP-сервера.
12. ShowMessage('Мail sent !'); - Показывает сообщение об успешной отправке электронной почты.
13. NMSMTP1.Disconnect; - Разрывает соединение с SMTP-сервером.

Код запускается при клике кнопки на форме, которая вызывает процедуру Button1Click. Процедура настраивает свойства электронной почты и отправляет ее с помощью компонента NMSMTP.

Для улучшений кода предлагаются следующие предложения:

• Вместо жесткого кодирования адресов электронной почтыconsider хранить их в константах или конфигурационных файлах.
• Проверьте ввод пользователя, чтобы предотвратить ошибки при настройке свойств электронной почты (например, проверьте, является ли адрес электронной почты валидным).
• Рассмотрите добавление обработки ошибок для потенциальных проблем с отправкой электронных писем (например, таймаут соединения, недопустимые учетные данные).
• Если планируете отправлять несколько электронных писем, рассмотрите использование цикла вместо повторения кода для каждого электронного письма.
• Вы можете также использовать встроенный компонент Delphi TEmail для упрощения процесса.

В целом, этот код функционирует, но может потребовать некоторых улучшений и обработки ошибок.

В статье описывается отправка электронной почты из приложения Delphi с использованием компонента NMSMTP и пример кода на Pascal, демонстрирующий процесс отправки письма с вложением.

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

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