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