Главная страница
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.035 c
1-71639
Kremen
2003-09-11 15:33
2003.09.22
Преобразование Char в Integer


3-71553
nikkkk
2003-08-28 17:22
2003.09.22
Как работать с составными(expression) индексами ???


1-71606
AndreyAs
2003-09-11 15:16
2003.09.22
некорректная работа PopupMenu в трее


3-71463
koks
2003-09-01 15:02
2003.09.22
упаковка Access - базы...


8-71768
Vyacheslav
2003-05-27 16:04
2003.09.22
Снова про компоненты для работы с различными растровыми форматами