Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Мой вопрос заключается в следующем:
При нажатии на кнопку назовем ее «Отправить Файл» программа отравляет файл (имя которого записано в компоненте Edit) на e-mail.
Как можно реализовать выше изложенное.

Вопрос задал: Kyran29 (статус: Посетитель) Вопрос отправлен: 6 января 2010, 22:12 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Паровоз

Здравствуйте, Kyran29!
Можно сделать так. Кладем на форму компонент IdSMTP с вкладки Indy Clients и пишем обработчик нажатия кнопки:

var
  attach:TidAttachment;
  msg:Tidmessage;
begin
  IdSMTP1.AuthenticationType:= atLogin;
  IdSMTP1.Username:='aaa';//свое имя
  IdSMTP1.Password:='aaabbbccc';//свой пароль
  IdSMTP1.Host:='smtp.bk.ru';//адрес smtp-сервера
  IdSMTP1.Port:=25;
  msg:=TIdMessage.Create(nil);
  msg.Body.Add('Текст сообщения');
  msg.Subject:='Тема сообщения';
  msg.From.Address:='aaa@bk.ru';//свой E-mail
  msg.From.Name:='Begemot';//имя отправителя
  msg.Recipients.EMailAddresses:='ddd@bk.ru';//адрес получателя
  msg.IsEncoded:=true;
  //вложение:
  attach:=TIdAttachment.Create(msg.MessageParts,'C:\Temp\tmp.ccc');
  IdSMTP1.Connect;
  IdSMTP1.Send(msg);
  IdSMTP1.Disconnect;
  attach.Free;
end;

Ответ отправил: Паровоз (статус: 10-ый класс) Время отправки: 7 января 2010, 19:28 Оценка за ответ: 5 Комментарий к оценке: Спасибо !

Мини-форум вопроса

7 января 2010, 10:04: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с сетями и протоколами модератором Ерёмин А.А.

Kyran29 (статус: Посетитель), 7 января 2010, 23:42 [#1]: Здравствуйте, Паровоз ! С Прошедшими Вас !!! Мой - Delphi 7 выдает ошибки. Разобраться сам не смог. [Error] Unit1.pas(31): Undeclared identifier: 'TIdAttachment' [Error] Unit1.pas(33): Undeclared identifier: 'TIdMessage' P.S Если бы смог тогда бы не задавал вопросов !

Вадим К (статус: Академик), 8 января 2010, 01:33 [#2]: Известная проблема, в раздел uses добавляем idmessage кажется (как я давно инди не мучил...) и/или IdAttachment Галочка "подтверждения прочтения" - вселенское зло.

Kyran29 (статус: Посетитель), 8 января 2010, 03:07 [#3]: Здравствуйте, Вадим К. Спасибо ! Помогло ! (uses idmessage)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.