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

stan_16_11

Дата 28.11.2006, 00:09 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.11.2006

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

У меня такая проблема, моя специальность вообще не связана с программированием, а преподу взбрело в голову, что мы должны сделать программу на delphi, которая работает с компонентом indeo(если не правильно, извиняюсь), а программирования у нас не было, как он объяснил программа должна например отсылать письма, по протоколу smtp, если не трудно выложите пожалуйста исходник такой программы, самой простой, главное, что бы она работала.
P.S. Заранее благодарен...

Snowy

Дата 28.11.2006, 00:28 (ссылка)

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

Загрузка ...

Эксперт

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

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

Indy.
Indeo - это интеловские видеокодеки.
Отправляется при помощи TIdSMTP.

Код


uses IdSMTP, IdMessage;

function SendMail(Host, AdressTo:String, AdressFrom, Subject, txt:String, FileAttach: String):Boolean;
var    
  smtp: TIdSMTP;    
  Msg: TIdMessage;    
begin    
  smtp := TIdSMTP.Create(nil);
  smtp.Host:=Host;
  Msg:=TIdMessage.Create(smtp);
  Msg.ReplyTo.EMailAddresses := AdressFrom;
  Msg.Recipients.EMailAddresses := AdressTo;
  Msg.Subject:=Subject;
  Msg.Body.Text:=Text;
  if FileAttach <> '' then
    If FileExists(FileAttach) then    
       TIdAttachment.Create(Msg.MessageParts, FileAttach);
  try
    smtp.Connect;    
    smtp.Send(Msg);
    smtp.Disconnect;    
    Result:=true;
  except 
    Result:=False;
  end;
  smtp.Free;
end;

Пример отправки:

Код


  SendMail('mail.server.ru', // почтовый SMTP сервер
  '[email protected]', // кому
  '[email protected]', // от кого
  'Тест', // Тема письма
  'Привет, Вася! Это Петя. Раз-раз - проверка связи', // текст письма
  ''); // приложенный файл ('' - без файла)

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