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

I fail to understand the logic of what you're doing.

You are creating an email item in the Outbox, which is usually something not
done, assigning it to a SafeMailItem, moving the SafeMailItem to the same
folder it's already in as a different SafeMailItem, creating yet another
SafeMailItem, assigning that from the superfluous SafeMailItem you just
created, and then sending that final item.

Is there a reason for all this pretzel logic?

Why not just follow the KISS principle:

poOutlook = CREATEOBJECT("Outlook.Application")

loMail = poOutlook.CreateItem(0)
loMail.To = "
loMail.Subject = "Test received date "+TTOC(DATETIME())
loMail.BodyFormat = 1
loMail.Body = "Test received date"

loRedemption = CREATEOBJECT("Redemption.SafeMailItem")
loRedemption.Item = loMail
loRedemption.Send()

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Marc" wrote in message
...

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

Thanks Ken,
According to your code the mail store in Drafts
folder until it send. But I want to move that mail item
in to my Outbox and send.

"Ken Slovak - [MVP - Outlook]" wrote in message
...
I fail to understand the logic of what you're doing.

You are creating an email item in the Outbox, which is usually something
not
done, assigning it to a SafeMailItem, moving the SafeMailItem to the same
folder it's already in as a different SafeMailItem, creating yet another
SafeMailItem, assigning that from the superfluous SafeMailItem you just
created, and then sending that final item.

Is there a reason for all this pretzel logic?

Why not just follow the KISS principle:

poOutlook = CREATEOBJECT("Outlook.Application")

loMail = poOutlook.CreateItem(0)
loMail.To = "
loMail.Subject = "Test received date "+TTOC(DATETIME())
loMail.BodyFormat = 1
loMail.Body = "Test received date"

loRedemption = CREATEOBJECT("Redemption.SafeMailItem")
loRedemption.Item = loMail
loRedemption.Send()

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Marc" wrote in message
...

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

That's just cosmetic, but if that's what you want just add a line to move
the item to Outbox before calling Send on that referenced moved item.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Marc" wrote in message
...
Thanks Ken,
According to your code the mail store in Drafts
folder until it send. But I want to move that mail item
in to my Outbox and send.

"Ken Slovak - [MVP - Outlook]" wrote:

That's just cosmetic, but if that's what you want just add a line to move
the item to Outbox before calling Send on that referenced moved item.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Marc" wrote in message
...
Thanks Ken,
According to your code the mail store in Drafts
folder until it send. But I want to move that mail item
in to my Outbox and send.



Hi, can i ask you to post just few lines to move it to SentItems ?
Thank you very much.

Replace the line

loRedemption.Item = toOutBox.Items.Add(0)

with

loOutlookItem = poOutlook.CreateItem(0)
loOutlookItem = loOutlookItem .Move(loOutBox )
loRedemption.Item = loOutlookItem

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"Gianluca Vannozzi" Gianluca wrote in
message ...


"Ken Slovak - [MVP - Outlook]" wrote:

That's just cosmetic, but if that's what you want just add a line to move
the item to Outbox before calling Send on that referenced moved item.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Marc" wrote in message
...
Thanks Ken,
According to your code the mail store in Drafts
folder until it send. But I want to move that mail item
in to my Outbox and send.



Hi, can i ask you to post just few lines to move it to SentItems ?
Thank you very much.