BorlandTalk.com

Omega · Guest

Hello,

I use POP and i want to read some mail in a mail box.
On this part i have no worries.

But when i try to save the attachement and the body in the same stream, i
can 't see the attachement after.

I did some thing like this :

procedure toto;
var
s : TStrings;
myEmail : TMyEmail;
intIndex: integer;
iProp : Integer;
i : integer;
sDir : string;
sStream : TMemoryStream;
myMsgDecoder : TIdMessageDecoder;
begin
.....
for i := 0 to msg.MessageParts.Count -1 do
begin
if msg.MessageParts.Items[i] is TIdAttachment then
begin
s := TIdAttachment(msg.MessageParts.Items[i]).Headers;
end;

if msg.MessageParts.Items[i] is TIdText then
s := TIdText(msg.MessageParts.Items[i]).Body;

end;
sStream.Position := 0;

s.SaveToStream(sStream);
end;

Thank you for your Help !

Remy Lebeau (TeamB) · Guest

"Omega" <omega.ch (AT) bluewin (DOT) ch> wrote

Omega · Guest

I connect to a mailbox with Indy pop.
When I'm connected i check if there is some mail in it.
If there is some i open the first one and after i load the message with
idMessage
When i load it i take the body and i save it in a stream but loose the
attachement.
After it i save the body in a database and create a log for your helpdesk
team.

My question : How can i but the body and the attachement on the same stream
because after it i save it in HTML mode and i do a convertion to RTF with
Word.

thank you for your help.

"Remy Lebeau (TeamB)" <no.spam (AT) no (DOT) spam.com> wrote

Ciaran Costelloe · Guest

"Omega" <omega.ch (AT) bluewin (DOT) ch> wrote