Checklistbox/Pop3 - Error Message ?

[chris]

hi,

Zitat:

if copy(Message1.Subject, 0, 4) = 'News' then <-- ich nehme mal an die 0, 4 bedeutet quasi jede mail die die anfangsbustaben 0-4aus 'text' enthält....könnte also auch 'News:' nehmen und anstatt der 4 ne 5 reinsetzen oder?
hab ich ja doch was gelernt hehe.

jupp, siehe OH: copy()

Zitat:

vieleicht noch zuletzt, da ich die mails ja nun inner checkbox habe würde ich gerne (davon ausgegangen das die mails alle nen anhang haben -> pdf bzw doc) würd ich gerne die markierten mailanhänge in einen vorher definierten ordner speichern (z.b. C:\Morgenpost) ist das auch möglich? dann wärs aber alles fertig *g

ja das ist möglich, klar

sollte in etwa so gehen (ungetestet):

Delphi-Quellcode:

procedure TForm1.clMessageParser1GetBodyStream(Sender: TObject; 
   ABody: TclMessageBody; const AFileName: String; var AStream: TStream; 
   var Handled: Boolean); 
var att_path: string;
begin 
   att_path := 'c:\morgenpost'; 
   forcedirectories(att_path);
   AStream := TFileStream.Create(att_path +'\'+ afilename, fmCreate)
end;

guck doch einfach mal hier nach:

http://www.clevercomponents.com/prod...suitehowto.asp