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