>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