Re: Redemption, Help with selecting E-mail Account

Ken, thanks for your reply.I haven't registered anything, just
downloaded and installed and it said it was successful. I have
referenced Redemption within the VB and it does hit debug on the line
"Set Session = CreateObject("Redemption.RDOSession")". BTW when I
tested it I placed the redemption part of the code below the lines

Dim OutApp As Object
Dim OutMail As Object
Dim sh As Work***

But I took it out from my original (working) e-mail from excel macro

I'm a bit lost on your suggested fix, can the code below be placed
anywhere within my code, apart from Msg.send which I assume should be
near the end?

Set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = ns.MAPIOBJECT, where ns =
OutApp.GetNameSpace("MAPI")
Set Drafts = Session.GetDefaultFolder(olFolderDrafts)
Set Msg = Drafts.Items.Add
Set Account = Session.Accounts("123 Reporting")
Msg.Account = Account
Msg.Send
.