You're welcome.

>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
>>
>>