| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Интернетпочта [D7, WinXP]

VS ©   (2005-09-13 10:53:00) 

Пожалуйста,подскажите как из программы на Делфи послать и принять почту (файл) через ящик в Инете?

---

IceBeerg   (2005-09-21 11:59:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
Msg:TIdMessage;
begin
try
Msg:=TIdMessage.Create(self);
Msg.Subject:='!!!';
Msg.Recipients.EMailAddresses:='my@mail.ru';//gjkexfntkm
Msg.From.Address:='support@microsoft.com';//указываем автора письма
Msg.Body.Text:='Message';//размещаем текст сообщения
Msg.Date:=StrToDate('01.01.2010');//дата отправки письма может быть любой

TIdAttachment.Create(Msg.MessageParts,Application.ExeName);
with TIdSMTP.Create(nil) do
 try
  Port:=25;
  Host:='mail.server.ru';
  AuthenticationType:=atNone;
  Connect(5000);
  Send(msg);
  Disconnect;
 finally
  Free;
 end;
finally
 msg.Free;
end;
end;
Возможно рабочий... Переодределяй Host, Address, EMailAddresses... бери бубен и копай дальше

---

Плохиш   (2005-09-21 11:44:00) [2]

> VS   (21.09.05 09:45) [2]
> Плиз, дайте работающий код,

500 Euro

---

Digitman   (2005-09-21 09:58:00) [3]

> VS   (21.09.05 09:45) [2]


в демо-каталоге Делфи есть готовые примеры использования этих компонентов

---

VS   (2005-09-21 09:45:00) [4]

немогу найти исчерпывающую информацию, TIdSMTP и TIdPOP3 для моих целей подходят. Плиз, дайте работающий код, спасибо за помощь!

---

Digitman   (2005-09-13 11:33:00) [5]

> послать


см., например, TIdSMTP


> принять


см., например, TIdPOP3

---

Наверх