Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Add-ins for Outlook (http://www.outlookbanter.com/add-ins-outlook/)
-   -   How to store new message item in Sent folder (http://www.outlookbanter.com/add-ins-outlook/49489-how-store-new-message-item.html)

Ivan June 1st 07 05:53 AM

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?

Ken Slovak - [MVP - Outlook] June 1st 07 02:21 PM

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" wrote in message
...
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?



Dmitry Streblechenko June 1st 07 06:58 PM

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.A dd("IPM.Note")
NewMsg.Sent = true
NewMsg.Subject = "fake sent item"
NewMsg.Body = "test body"
set Recip = ")
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" wrote in message
...
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?





All times are GMT +1. The time now is 12:28 PM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com