M
Marc
Created an Outlook mail item programmatically
and sent it by using Redemption safemailitem.
Next I created a new folder in Personal Folders
and dragged and dropped that sent mail item in to that
new folder from Sent Items folder.
Then I checked the Received date value of the mail,
that is empty. This is my VFP code to send mails.
Pls someone help..
poOutlook = CREATEOBJECT("Outlook.Application")
loOutBox = poOutlook.GetNameSpace("MAPI").GetDefaultFolder(4)
loRedemption = CREATEOBJECT("Redemption.SafeMailItem")
loOutBox = poOutlook.GetNameSpace("MAPI").GetDefaultFolder(4)
loRedemption.Item = toOutBox.Items.Add(0)
loEmailItem = loRedemption
loEmailItem.To = "chamara@sltnet.lk"
loEmailItem.Subject = "Test received date "+TTOC(DATETIME())
loEmailItem.BodyFormat = 1
loEmailItem.Body = "Test received date"
loOutBoxMailItem = loEmailItem.Move(loOutBox)
loMailItem = CREATEOBJECT("Redemption.SafeMailItem")
loMailItem.Item = loOutBoxMailItem
loMailItem.Send()
and sent it by using Redemption safemailitem.
Next I created a new folder in Personal Folders
and dragged and dropped that sent mail item in to that
new folder from Sent Items folder.
Then I checked the Received date value of the mail,
that is empty. This is my VFP code to send mails.
Pls someone help..
poOutlook = CREATEOBJECT("Outlook.Application")
loOutBox = poOutlook.GetNameSpace("MAPI").GetDefaultFolder(4)
loRedemption = CREATEOBJECT("Redemption.SafeMailItem")
loOutBox = poOutlook.GetNameSpace("MAPI").GetDefaultFolder(4)
loRedemption.Item = toOutBox.Items.Add(0)
loEmailItem = loRedemption
loEmailItem.To = "chamara@sltnet.lk"
loEmailItem.Subject = "Test received date "+TTOC(DATETIME())
loEmailItem.BodyFormat = 1
loEmailItem.Body = "Test received date"
loOutBoxMailItem = loEmailItem.Move(loOutBox)
loMailItem = CREATEOBJECT("Redemption.SafeMailItem")
loMailItem.Item = loOutBoxMailItem
loMailItem.Send()