這是個從pop3郵箱裏讀取的程式,可是只能讀subject,而不能讀body(內容) 代碼如下: procedure TForm1.Button1Click(Sender: TObject); //connect to the pop3 mail server begin pop.Host:='pop.tom.com'; pop.Username:='mrgen'; pop.Password:='********'; pop.Connect(); if pop.Connected=true then begin self.Caption:=pop.Username; mailcount:=pop.CheckMessages; end; end; procedure TForm1.Button2Click(Sender: TObject); //顯示郵件,一切正常 var list:TListItem; ci:integer; begin for ci:=1 to mailcount do begin list:=listview1.Items.Add; application.ProcessMessages; msg.Clear; pop.RetrieveHeader(ci,msg); list.Caption:=msg.Subject; showmessage(inttostr(msg.MessageParts.Count)); end; end; procedure TForm1.ListView1DblClick(Sender: TObject); //顯示郵件內容,這一步無法顯示內容 //因為msg.MessageParts.count = 0 !!!! var findex:integer; begin pop.Retrieve(listview1.Selected.index 1,msg); showmessage(inttostr(msg.MessageParts.Count)); //msg.MessageParts.count = 0 why?????? for findex:=0 to pred(msg.MessageParts.Count) do begin if msg.MessageParts.Items[findex] is TidText then begin memo1.Clear; memo1.Lines.AddStrings(TidText(msg.MessageParts.Items[findex]).Body); end; end; end; 請各位高人指導指導! 發表人 - heartache 於 2003/10/13 23:13:13 發表人 - heartache 於 2003/10/13 23:28:08

不好意思,由於輸入法的緣故,沒有及時使用繁體,請大家原諒

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.