PC Review Forums Newsgroups Microsoft Outlook Microsoft Outlook Program Addins How to store new message item in Sent folder

Reply

How to store new message item in Sent folder

 
Thread Tools Rate Thread
Old 01-06-2007, 05:53 AM   #1
=?Utf-8?B?SXZhbg==?=
Guest
 
Posts: n/a
Default How to store new message item in Sent folder


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?
  Reply With Quote
Old 01-06-2007, 02:21 PM   #2
Ken Slovak - [MVP - Outlook]
Guest
 
Posts: n/a
Default Re: How to store new message item in Sent folder

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" <Ivan@discussions.microsoft.com> wrote in message
news:C9958333-B806-4737-B056-9E322C7DB80D@microsoft.com...
> 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?


  Reply With Quote
Old 01-06-2007, 06:58 PM   #3
Dmitry Streblechenko
Guest
 
Posts: n/a
Default Re: How to store new message item in Sent folder

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("user@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" <Ivan@discussions.microsoft.com> wrote in message
news:C9958333-B806-4737-B056-9E322C7DB80D@microsoft.com...
> 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?



  Reply With Quote
Reply



Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off