Hallo zusammen,
ich hab ein paar Probleme mit dem Auslesen von Mailbody und Anhängen (ich hoffe ich hab das richtig ausgedrückt). Es wäre super nett wenn mir jemand den untenstehenden Code erklären könnte! (PS: ich bin kein Pro
)
Schon mal einen Dank im voraus!!
Code:
for intindex:= 0 to pred(idmessage1.messageparts.count) do begin
if (idmessage1.messageparts.items[intindex] is tidAttachment) then do begin
li := anhangViewMessageParts.Items.add;
li.caption := Tidattachment(idmessage1.messageparts.Items[intindex]).filename;
end //end 'if'
else begin
if idmessage1.MessageParts.items[intindex] is tidText then begin
memoNachricht.lines.clear;
MemoNachricht.lines.addstrings(tidtext(idmessage1.messageparts.items[intindex]).body);
end; //end 'if'
end; //end 'else'
end; //end 'for'
Ich hoffe der Code stimmt soweit!