Sendmail using Redemption

  • Thread starter Thread starter Bob Phillips
  • Start date Start date
B

Bob Phillips

Hi Guys,

I have the following code that I use to send a mail from within Excel.

It all seems pretty straight-forward, Redemption seems to integrate well
with Outlook.

I have one major problem though, in that if I send directly in-stream the
email does not get sent, it simply gets stored in the Drafts folder.
Normally, mail goes straight to the Outbox when sent. If I change the .Send
to .Display, and then send the displayed email, it works fine. However, this
is hardly an automated solution.

Anyone ware of this problem, and know a solution.

I am using Excel 2000, XP Pro (SP1).

By the way, the RangeToHTML call is simply to get an Excel range to HTML.
 
If you're using Redemption for this use the MAPIUtils.DeliverNow method.
 
Guys,

Thanks for the reply, but I still have a problem.

I am using a POP3/SMTP transport, and so I initially tried flushing the
outgoing queue with

Set Utils = CreateObject("Redemption.MAPIUtils")
Utils.DeliverNow

but this made absolutely no difference to my previous code.

Even though I have Outlook 2000 not 2002 but I still tried to force the
Send/Receive with

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

This failed on the first line with an 'Object doesn't support this property
or method', but interestingly, in this instance, the message was till in the
Drafts folder, but when I manually click Send/Receive, off it went.

Any ideas.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
I meant Outlook explorers (the ones showing the list of messages). If there
are no Explorers, ActiveExplorer will return Nothing.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
In that case, yes I did, I open up into Inbox

I can see the message dumped into the Drafts folder but that is it.

Bob
 
Hmmm... You have Outlook 2000 instaled, right? Try to check the button type
using OutlookSpy - click Explorer button, go to the CommandBars tab, find
the send/receive button, select it, click Browse.

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

Try to use

Application.Session.SyncObjects.Item(1).Start;

It should solve the problem in 2k and higher Office version.
 
Back
Top