successfully Refresh the draft folder using redemption send,one more question please.

  • Thread starter Thread starter Julia
  • Start date Start date
J

Julia

Hello,
The problem I had is that messages which was put in the draft and selected
or opened
(for example when user select the draft the first message was selected)
was not being sent until user open them and press send/receive.

I successfully make the message 'sendable' using redemption,
In the FolderSwitch event of my Explorer wrapper I enumerate all messages
in the draft,
attach them to safemailitem and call the send method

My question is how I can I distinguishes between messages which have
diagonal font(being sent)
and those which don't.(sent=none), which mapi property is set?

thanks
 
PR_MESSAGE_FLAGS (0x0E070003) property will have the MSGFLAG_SUBMIT (4) bit
set.
You can also move the message to Outbox first - see my reply to your
previous question.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
I am getting two messages when using on error resume next
and the following error when not

"The items where copies instead of move because the originla items colud not
be deleted.
The item could not be deleted.it was either moved or already deleted,or
access was denied"


Dim Folder As Outlook.MAPIFolder
Set Application = CreateObject("Outlook.Application")
Set MailItem = Application.CreateItem(olMailItem)
MailItem.To = (e-mail address removed)"
Set MailItem =
MailItem.Move(Application.Session.GetDefaultFolder(olFolderOutbox))
MailItem.Save
Set sItem = CreateObject("Redemption.SafeMailItem")
sItem.Item = MailItem
sItem.Send
 
Back
Top