Forum: Netzwerke
Delphi
by chris,
16. Feb 2005
hi,
*g* ok
z.b.
public
var str: TStringlist;
procedure TForm1.FormCreate(Sender: TObject);
Forum: Netzwerke
Delphi
by chris,
16. Feb 2005
hi,
na das zwischenspeichern und auslesen sollte ja mit ner stringlist kein problem sein
vereinfacht:
str.add(inttostr(i)) //schreiben der messagenummer bei TForm1.ffnen1Click
strtoint(str.strings) //lesen der messagenummer bei TButton2Click
Forum: Netzwerke
Delphi
by chris,
16. Feb 2005
hi,
am besten du lädst dir das mal hier runna und guckst es dir an:
clevercomponents MailClient demo
ich kann dir da leider nicht so gut helfen weil ich nicht mit cis arbeite.
Forum: Netzwerke
Delphi
by chris,
16. Feb 2005
hi,
erstmal musst du dir die gecheckten mails besorgen, du hast ja bis jetzt nur die header
das würde dann so aussehen:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
with CheckListBox1 do
Forum: Netzwerke
Delphi
by chris,
16. Feb 2005
hi,
na super, dann haben wir es ja fast :)
dann noch den rest:
if copy(Message1.Subject, 0, 4) = 'News' then
um das zu komplettieren:
Forum: Netzwerke
Delphi
by chris,
16. Feb 2005
hi,
wa??
if checklistbox1.Items.IndexOf(Message1.Subject) = -1 then checklistbox1.Items.AddObject(Message1.Subject, Pointer(1))
MUSS klappen!
Forum: Netzwerke
Delphi
by chris,
16. Feb 2005
hi,
du kannst das einfügen doppelter einträge im voraus verhindern.
z.b. hiermit:
if checklistbox1.Items.IndexOf(Message1.Subject) = -1 then checklistbox1.Items.Add(Message1.Subject);
ob das so im sinne des erfinders ist sei mal dahingestellt.
Forum: Netzwerke
Delphi
by chris,
16. Feb 2005
hi,
gmail .. naja ich denke dann liegt es an ssl, ohne das geht es nicht.
nochmal zu dem oben .. ich glaube ich weiss warum es nicht geht ..
mach es mal so:
MessageParser: TclMessageParser;
Forum: Netzwerke
Delphi
by chris,
16. Feb 2005
hi,
kann ich nicht soviel zu sagen, probier dochmal erstmal das, vllt zählen die cis komps ja anders:
for i := 0 to pop1.MessageCount - 1 do
sollte so klappen:
if Message1.Subject = 'News' then checklistbox1.Items.Add(Message1.Subject)