Forum: Netzwerke
Delphi
by Brainstalker,
4. Mär 2006
Soweit ich den Code jetzt verstanden habe müsste der Fehler in den zwei Schleifen liegen.
i ist bei die Variable für die ListView Schleife und AttachCount für die Multipart Schleife. Der Fehler müsste also in folgenden Zeilen liegen:
if Msg.MessageParts.Items is TIDAttachment then
Attach := (Msg.MessageParts.Items as TIDAttachment).FileName;
Ich würde sagen das i in der ersten Zeile ist...
Forum: Netzwerke
Delphi
by Brainstalker,
3. Mär 2006
Das was du gepostet hast müsste genau das tun was du haben willst.
Als erstes wird geprüft ob Item i der Multipart Email text ist. Wenn das so ist, wird der text in Attach gespeichert. Wenn du dort anstatt Attach, RichEdit1.Text angeben würdest müsste der Text ausgegeben werden. Oder du weist eben dem RichEdit1.Text den Inhalt von Attach zu.