Главная страница
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.022 c
14-71906
shelest
2003-09-03 13:29
2003.09.22
DOA for Delphi 7


14-71895
Developerr
2003-09-02 18:37
2003.09.22
Кто-нибудь использует F1Book версии 6.0 и выше?


14-71903
Ru
2003-09-03 13:28
2003.09.22
На счет хостинга:


14-71829
raiv
2003-09-02 08:49
2003.09.22
Установка компонентов


1-71737
bon
2003-09-10 14:07
2003.09.22
вопрос