Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.22;
Скачать: CL | DM;

Вниз

IdPOP3 или NMPOP3 что лучше использовать   Найти похожие ветки 

 
Jonni_M   (2003-07-24 18:04) [0]

Извиняюсь заранее ... но мне пришлось сменить тему сообщения что бы не вводить Вас всех в заблуждения. Простите новичка пожалуйсто. Впредь спешить не буду. Кто может поможет вот в таком случае

procedure TForm1.BitBtn2Click(Sender: TObject);
var
S: String;
M: Integer;
begin
if NMPOP31.MailCount > 0 then
begin
if InputQuery("Retrieve an E-Mail message", "Which message? (1-"+IntToStr(NMPOP31.MailCount)+")", S) then
begin
M := StrToIntDef(S, -1);
If (M < 0) or (M > NMPOP31.MailCount) then
ShowMessage("Invalid message index")
else
NMPOP31.GetMailMessage(M);
Memo1.Text := NMPOP31.MailMessage.Body.Text;
Edit1.Text := NMPOP31.MailMessage.Subject;
Edit2.Text := NMPOP31.MailMessage.From;
end;
end
else
( "No Messages to Get") Извиняюсь заранее ... но мне пришлось сменить тему сообщения что бы не вводить Вас всех в заблуждения. Простите новичка пожалуйсто. Впредь спешить не буду. Кто может поможет вот в таком случае

procedure TForm1.BitBtn2Click(Sender: TObject);
var
S: String;
M: Integer;
begin
if NMPOP31.MailCount > 0 then
begin
if InputQuery("Retrieve an E-Mail message", "Which message? (1-"+IntToStr(NMPOP31.MailCount)+")", S) then
begin
M := StrToIntDef(S, -1);
If (M < 0) or (M > NMPOP31.MailCount) then
ShowMessage("Invalid message index")
else
NMPOP31.GetMailMessage(M);
Memo1.Text := NMPOP31.MailMessage.Body.Text;
Edit1.Text := NMPOP31.MailMessage.Subject;
Edit2.Text := NMPOP31.MailMessage.From;
end;
end
else
ShowMessage("No Messages to Get");
end;
это всё почти из книжки. Проблема в том что програмка пробует сохранять темповский файл на POP3 сервере. Отсюда ошибка. Как сделать по другому кто подскажет. Можно с примером!


 
Jonni_M   (2003-07-24 18:25) [1]

Во кажись вопрос прорисовался полностью. Всё на самом деле, для Вас наверное, обстоит просто.. мне необходимо используя Делфи забрать заголовки писем с POP3 сервера и записать их в базу данных. Вот через 15 часов наконец то правильно сформулировал вопрос!


 
Fay   (2003-07-24 18:48) [2]

top?



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

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

Наверх




Память: 0.47 MB
Время: 0.024 c
1-71682
drdred
2003-09-09 23:37
2003.09.22
Как скопировать файл?


3-71497
www
2003-09-01 14:24
2003.09.22
Сохранение изменений в форме


1-71701
Andery
2003-09-11 15:32
2003.09.22
FastReport и DLL


14-71887
uw
2003-08-29 11:19
2003.09.22
---|Ветка была без названия|---


14-71834
Skier
2003-09-01 17:46
2003.09.22
Как вам Ярцев в качестве тренера сб. России ?