>sItem.Item = oMailItem >tag = sItem.GetIDsFromNames("{00020386-0000-0000-C000-000000000046}", "From") >tag = tag or &H1E && the type is PT_STRING8 && Foxpro doesn’t like this line >sItem.Fields(Tag) = "Someone <whoever@domain.com>" && and this line give an invalid subscript reference >sItem.Subject = sItem.Subject 'to trick Outlook into thinking that something has changed >safeitem.save() >>