>>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() >>>>