Re: Redemption Question - showaddressbook and saveas

Can PB handle COM exception (that is how COM returns errors)?
In VB/VBA you can use "on error resume next" and then check the value of
err.Number. In other languages try/finally/except/catch blocks are used.
As for SaveAs, this is an indication that the item hasn't been saved, so
MAPI (and hence Redemption) cannot see the latest changes. Call
MailItem.Save first.

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

<googlegroup@xxxxxxxxxxxxxxx> wrote in message
news:1183808161.904660.124470@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
On Jul 6, 5:13 pm, "Dmitry Streblechenko" <dmi...@xxxxxxxxxxx> wrote:
RDOAddressBook.ShowAddressBook simply raises a COM error if MAPI returns
anything but S_OK. When the address book dialog, is cancelled, the error
is
MAPI_E_USER_CANCEL (0x80040113). This is normal, your code should expect
and
handle that error.

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

<googlegr...@xxxxxxxxxxxxxxx> wrote in message

news:1183712156.388723.178710@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx



I know this is a VBA group and this is a powerbuilder question BUT I
noticed that the author of the Redemption code answers post here so I
thought I would try and post my question here

I have a PB application where I would like to show the address book
and let the users select the email addresses for the message being
sent.

I have the following code and this works as long as the user selects
the OK button from the address book dialog. Then everything works
like a charm BUT if the user selects Cancel from the address book
dialog you get a PB error message

Error calling external object function showaddressbook

I am using the newest version of Redemption and I am using the
RDOSession because I need to use the SaveAs function to save the
created email as a .msg file and found using the SaveMailitem that
this did not work. It would only save an empty email .msg file
unless
I used oleSafeMailItem.Item.SaveAs(filename,3) AND then you get the
dreaded Outlook Security message popup.

Session = Create OLEObject
li_Return = Session .ConnectToNewObject( "Redemption.RDOSession" )
Session .Logon
Msg = Session .GetDefaultFolder(4).Items.Add(0)
Msg.Recipients.Add ("rsu...@xxxxxxx" )
Msg.Recipients.ResolveAll
Msg.Subject = "Hello"
Msg.Body = "Testing Applications"
ab = Session .AddressBook

recips = AB.ShowAddressBook(Msg.Recipients) /* This is the line that
the error message is for BUT this does actually show the addressbook
but if the user clicks cancel this line then reports the error and
dies. I have debugged it and it is dying on this line.

Msg.Recipients = Recips

Any help would be greatly appreciated.

Thanks- Hide quoted text -

- Show quoted text -

Unfortunately it is not my code causing the error but something
internal to PB ... so maybe I am s**t out of luck!

Do you have any ideas about the savemailitem.SaveAs issue ... why does
this save a blank email msg but when I call savemailitem.item.saveas
it saves the email msg but then I get the security warning?

Thanks



.