Einzelnen Beitrag anzeigen

tr909

Registriert seit: 5. Nov 2004
193 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: über pop3 Mails abfragen?

  Alt 2. Jan 2008, 15:37
probier mal das hier.
Delphi-Quellcode:
Msg.MessageParts.Count > 0 then
for ii := 0 to Pred(Msg.MessageParts.Count) do
begin
   application.processmessages;
   if Msg.MessageParts.Items[ii] is TIdText then
   begin
// Memo1.Lines.Clear;
     Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[ii]).Body);
   end;
end
else begin
 memo1.Lines.AddString(IdMsg.Body);
end;
in deinem Fall wird die schleife ja nicht ausgeführt, wenn Msg.MessageParts.Count = 0 ist.

Gruß
tr909
  Mit Zitat antworten Zitat