VPF::Отправка почты - Форум программистов

Akella

Дата 1.4.2005, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

Как в этом коде прикрепить файл? Именно в этом коде, в смысле с использованием стандартных компонентов. Использование интерфейса OutLook Express не предлагать, т.к. он у меня есть вполне рабочий.

MailMessage - TIdMessage
SMTP - TIdSMTP

Код


procedure TfmSendFiles.MailSend;
begin
 SMTP.Host := ledSMTP.Text;
 SMTP.Port := StrToInt(ledPort.Text);

 MailMessage.From.Text := ledFrom.Text;
 MailMessage.Recipients.EMailAddresses := ledAdress.Text;

 MailMessage.Subject := ledSubj.Text;
 MailMessage.Body.Text := '-';

 try
   try
     SMTP.Connect(100000);
     SMTP.Send(MailMessage);
     ShowMessage('Готово');
   except on E:Exception do
     begin
       StatusBar1.SimpleText:='ошибка: ' + E.Message; 
     end;
   end;
 finally
   if SMTP.Connected then SMTP.Disconnect;
 end;

end;

Snowy

Дата 1.4.2005, 09:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Как приаттачить файл http://forum.vingrad.ru/index.php?showtopic=44242

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »