Текущий архив: 2006.01.01;
Скачать: CL | DM;

Вниз

Интернетпочта   Найти похожие ветки 

← →
VS   (2005-09-13 10:53) [0]

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

---

← →
Digitman ©   (2005-09-13 11:33) [1]

> послать


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


> принять


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

---

← →
VS   (2005-09-21 09:45) [2]

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

---

← →
Digitman ©   (2005-09-21 09:58) [3]

> VS   (21.09.05 09:45) [2]


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

---

← →
Плохиш ©   (2005-09-21 11:44) [4]

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

500 Euro

---

← →
IceBeerg ©   (2005-09-21 11:59) [5]

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... бери бубен и копай дальше

---

Страницы: 1 вся ветка

Текущий архив: 2006.01.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.043 c