Главная страница
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.027 c
1-71626
Сергей Суровцев
2003-09-08 22:40
2003.09.22
RichEdit - отключение смены языка


14-71847
Прохожий
2003-08-25 11:03
2003.09.22
Сколько потоков ??


1-71703
P0tia
2003-09-10 18:01
2003.09.22
Формы и как с ними бороться?


3-71478
hawkins
2003-09-02 13:52
2003.09.22
то таблица не редактируется, то курсор по записям не перемещается


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