* 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