Redemption - Flushing Outgoing Message

[Xcelsoft]

I am trying to flush the outgoin message from the drafts
folder after using Redemptions Safe Mail Item Send.

Listed below is the code that I am using:

objSafeMail.Send
Dim Utils As Object
Set Utils = CreateObject("Redemption.MAPIUtils")
Utils.delivernow

The mail items still is not set. It remains in the
Drafts folder.

Any help will be appreciated.

Thanks

 

[Dmitry Streblechenko \(MVP\)]

To put it simply, MS broke (removed) MAPI spooler in Outlook 2002. See
http://www.dimastr.com/redemption/faq.htm#1 for details.

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

 

[Xcelsoft]

Thanks,

I ran across this at your website and this seems to work
with Outlook 2000.

objSafeMail.Send

Dim SendUtils As Outlook.Application

Dim Btn As Object

Set SendUtils = CreateObject("Outlook.Application")

Set Btn =
SendUtils.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute

Let me know if you have another work around for this
problem.

Thanks,

Xcelsoft



SendUtils.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute

 

[Dmitry Streblechenko \(MVP\)]

Nope, that is pretty much the only workaround.

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