How to store new message item in Sent folder

[Ivan]

When I create new message item and move it to 'Sent' folder this message has
'message was not sent' flag. I'd like to see this message as if it was
usually sent, but I don't wnat to send it using Outlook.
Is it possible?

 

[Ken Slovak - [MVP - Outlook]]

Not really. Not unless you create it with Extended MAPI or a wrapper for
MAPI. Even then you can only set some of the properties, others you will
never be able to get so the item really looks like it was sent.

 

[Dmitry Streblechenko]

On the Extended MAPI level, Sent/Unsent flag can only be set before the
message is saved for the very first time. The only Outlook item created in
the sent state is a post item; you can use that fact to fake a sent item:
see http://www.dimastr.com/redemption/faq.htm#8 for an example.

<plug>
You can also do that using Redemption - no dirty workarounds; RDOMail.Sent
property is settable before the message is saved for the very first time.
Try something like the following:

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set NewMsg =
Session.GetDefaultFolder(olFolderSentMail).Items.Add("IPM.Note")
NewMsg.Sent = true
NewMsg.Subject = "fake sent item"
NewMsg.Body = "test body"
set Recip = NewMsg.Recipients.Add("(e-mail address removed)")
Recip.Resolve
NewMsg.Sender = Session.CurrentUser
NewMsg.SentOnBehalfOf = Session.CurrentUser
NewMsg.SentOn = Now
NewMsg.ReceivedTime = Now
NewMsg.Save

</plug>

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool