>sItem = safeitem >sItem.Item = oMailItem >tag = sItem.GetIDsFromNames("{00020386-0000-0000-C000-000000000046}", "From") >tag = BITOR( tag, 0x1E) && the type is PT_STRING8 (UNICODE) && Foxpro > >sItem.Fields.Item[Tag].Value = "Someone <whoever@domain.com>" > >sItem.Fields.Item(0x0C1E001E).Value = "SMTP" && type address >sItem.Fields.Item(0x0C1A001E).Value = "Someone" && sender name >sItem.Fields.Item(0x0C1F001E).Value = "whoever@domain.com" && sender email address > >sItem.Subject = sItem.Subject 'to trick Outlook into thinking that something has changed > >safeitem.save() >safeitem.send() >>