Вниз
Скачать: CL | DM;

Прием-отправка файла   Найти похожие ветки 

 
Andrey V. ©   (2003-11-25 13:30) [0]

Возникла необходимость в программке , которая брала бы из почты файл и ложила его в заданный каталог и ,желательно, обратные действия. Научите, кто знает.


 
Anatoly Podgoretsky ©   (2003-11-25 13:32) [1]

The Bat! Но только в одну сторону.


 
REA ©   (2003-11-25 15:04) [2]

См. MAPI, SMTP, POP3 и комопненты для всего этого.


 
AleksandrKu   (2003-11-25 15:13) [3]

Это конечно неидеал но работает
пример отправки
NMSMTP1.PostMessage.Body.clear;
NMSMTP1.PostMessage.Body.add("-601-");
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.Attachments.clear;
NMSMTP1.PostMessage.ToAddress.add("601@obnb.ru");
NMSMTP1.PostMessage.Attachments.Add(fi+dop+".601");
if not(NMSMTP1.Connected) then NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
MessageDlg("Файл отправлен",mtConfirmation, [mbYes], 0);
Пример получения
{получение почты}

if not(NMPOP31.Connected) then NMPOP31.Connect;
i:=NMPOP31.MailCount;
while i>0 do
begin
if not(NMPOP31.Connected) then NMPOP31.Connect;
NMPOP31.GetMailMessage(1);
filname:=NMPOP31.MailMessage.Attachments.Strings[0];

{ NMPOP31.MailMessage.Attachments.SaveToFile(filname);}
NMPOP31.DeleteMailMessage(1);
коечто настраивается в инспекторе обектов



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c
1-93569
maxic
2004-01-17 11:53
2004.01.29
Как передать параметром переменную file of byte?


9-93322
alxx
2003-07-15 12:13
2004.01.29
Точка на отрезке, ближайшая к данной.


7-93701
lovres
2003-11-14 13:18
2004.01.29
Подскажите комоненту для Delphi6 для чтения COM-port a


3-93341
MagaSoft
2004-01-04 21:28
2004.01.29
Суммирование в БД Access


3-93345
VID
2004-01-02 03:04
2004.01.29
Серьёзный вопрос: отображение текста Exception после Suspend;




   Наверх