Möchte in einem Programm ein einfachen Email oder Nachrichtensystem einbauen !!!

[Natcree]

Das Problem Wäre dann auch gelöst

Delphi-Quellcode:

var
  s : String;
  begin
  s:='Max Mustermann<[e-mail]>';
  delete(s,1,pos('<',s));
  delete(s,length(s),1);
  label1.text:=s;
 end;

Nunmehr würde es mich interressieren wie ich mehrere Nachricht aufrufen kann zur zeit funktioniert es nur mit einer Nachricht. Er Empfängt die Daten liest den Absender in ein edit.text sowie Betreff in ein anderes. Die Nachricht selber zeigt er in einem Memo Feld an. wenn aber nun 2 oder mehr nachrichten eingehen sind sie verloren weil er nur die letzte anzeigt.

Habt Ihr Vorschläge für die Umsetzung ????

[DeddyH]

Zitat von Natcree:

Nunmehr würde es mich interressieren wie ich mehrere Nachricht aufrufen kann zur zeit funktioniert es nur mit einer Nachricht. Er Empfängt die Daten liest den Absender in ein edit.text sowie Betreff in ein anderes. Die Nachricht selber zeigt er in einem Memo Feld an. wenn aber nun 2 oder mehr nachrichten eingehen sind sie verloren weil er nur die letzte anzeigt.

Habe ich doch gestern schon gesagt. Du brauchst irgendeine Form der Listendarstellung, sei es eine ListView, ein StringGrid oder meinetwegen auch ein PageControl mit dynamisch erzeugten Tabsheets, die dann einen Frame enthalten.

[Natcree]

Super Habs hinbekommen..

Delphi-Quellcode:

if idpop31.Connected then Nachrichtenliste:=idpop31.CheckMessages;
if Nachrichtenliste > 0 then
   begin
     for Index := Nachrichtenliste downto 1 do
       begin
         idmessage1.clear;
         idPOP31.RetrieveHeader(Index, IdMessage1);
         Form3.eltreestringgrid1.cells[0,index-1] := IdMessage1.From.Text;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[1,index-1]:= IdMessage1.Subject;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[2,index-1] := IdMessage1.body.GetText;
         {IdPOP31.Delete(index);}
       end;
     idmessage1.Free;
     IdPOP31.Disconnect;
     form3.show;
   end
 else
  IdPOP31.Disconnect; //Disconnected vom Server
end;

In der reihe sagt er mir variable Nachrichtenliste might not have been initialized
if Nachrichtenliste > 0 then Stimmt was nicht mit dem source oder ist es nur wegen dem if Befehl???

[wicht]

Code:

if idpop31.Connected then Nachrichtenliste:=idpop31.CheckMessages;
if Nachrichtenliste > 0 then

Nachrichtenliste wird nur dann ein Wert zugewiesen, wenn idpop31.Connected ist. Wenn idpop31 nicht verbunden ist, könnte Nachrichtenliste irgendeinen Wert haben - dann würde dein Programm wahrscheinlich Probleme bekommen. Schreib über das "if idpop31.Connected" noch ein "Nachrichtenliste := 0;", dann ist die Warnung auch weg.

[Natcree]

Danke Dir

noch ein anderes Problem wenn ich im Stringgrid was drin stehen habe dann meckert bei erneuten email
abholen er kann die Daten wohl nicht schreiben weil schon was drin steht muss ich da noch ein if stringgrid1.cells[x,x]='' then ´... schreiben oder wie mache ich das am besten ???

[Natcree]

Wie kann ich mir das Datum aus dem Header holen???

[Sir Rufo]

Zitat von Natcree:

Danke Dir

noch ein anderes Problem wenn ich im Stringgrid was drin stehen habe dann meckert bei erneuten email
abholen er kann die Daten wohl nicht schreiben weil schon was drin steht muss ich da noch ein if stringgrid1.cells[x,x]='' then ´... schreiben oder wie mache ich das am besten ???

Zitat von Natcree:

Wie kann ich mir das Datum aus dem Header holen???

Schalt doch mal einen Gang runter und versuche die Lösung durch Eigenrecherche zu bekommen.

Eigentlich gilt ja auch pro Frage ein Thread (jo, geht ja alles um das email-Geraffel, und der nächste möchte sein Weltbeherrschungsprogramm komplett durchprogrammiert und diskutiert haben)

[EWeiss]

Zitat:

die Lösung durch Eigenrecherche zu bekommen.

Tut er ja.. Hier im Forum.
Wo soll er sich sonst orientieren abgesehen davon. Wir haben doch alle mal angefangen

Die Definition "Eigenrecherche" kann weit bepflastert sein.
Wie auch immer.

gruss