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.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm

"Ivan" <Iv...@discussions.microsoft.com> wrote in message
news:C9958333-B806-4737...@microsoft.com...

[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("us...@example.com")
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

"Ivan" <Iv...@discussions.microsoft.com> wrote in message
news:C9958333-B806-4737...@microsoft.com...