thanks Sergey, it works fine
:-)
Alessio

>>sorry
>>Could you send me an example of how i should implement the decoder code in your program to receive email
>
>

>* Full name of the file with saved email
>lcFileName = ...
>* The folder where to save attachments
>lcSaveDir = ...
>
>loStm = CREATEOBJECT("ADODB.Stream")
>loMsg = CREATEOBJECT("CDO.Message")
>loStm.Open()
>loStm.LoadFromFile(lcFileName)
>loDsrc = loMsg.DataSource
>loDsrc.OpenObject(loStm, "_Stream")
>loStm.Close()
>
>? loMsg.Subject
>? loMsg.From
>? loMsg.TextBody
>? loMsg.HTMLBody
>? loMsg.To
>
>FOR i=1 TO loMsg.Attachments.Count
>	loAttachment = loMsg.Attachments[i]
>	? loAttachment.FileName	
>	* Save with the same name
>	loAttachment.SaveToFile(ADDBS(lcSaveDir) + loAttachment.FileName)
>ENDFOR
>
>