Redemption AddressBook.ResolveName

[SpuddyMcSpud]

I've searched the forums but couldn't find anything useful on this. Basically, I want to resolve the name(s) entered into a GUI using Redemption, and if they aren't found, the Outlook "Check Names" dialog pops up so the user can select the correct user.

At the moment, I can't seem to figure out how to get the result of the AddressBook.ResolveName to return the corrected name to my script.

$Application = ObjCreate("Outlook.Application")
$Session = objCreate("Redemption.RDOSession")
$Session.MAPIOBJECT = $Application.Session.MAPIOBJECT
$AdrrEntry = $Session.AddressBook.ResolveName("nicholas",true)

MsgBox(0,"",$AddrEntry.Address)

It's $AddrEntry.Address causing me pain - it's returning:

redemption_ab.au3(6,31) : WARNING: $AddrEntry: possibly used before declaration.
MsgBox(0,"",$AddrEntry.Address)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
redemption_ab.au3(6,31) : ERROR: $AddrEntry: undeclared global variable.
MsgBox(0,"",$AddrEntry.Address)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
redemption_ab.au3 - 1 error(s), 1 warning(s)

Any hints would be greatly appreciated!

cheers,

Spud

[DaleHohm]

I think you'll find that $AddrEntry is not an object (use an IsObj test).

best suggestion I think would be to get your code working in VBScript first (the outlook and redemption object code) and then work on converting the working vbs into AutoIt. This will take one big variable out of the picture.

Dale

[SpuddyMcSpud]

G'day DaleHolm,

Thanks for the quick reply.

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set AdrrEntry = Session.AddressBook.ResolveName("dmitry")
MsgBox "The address of the name is " & AddrEntry.Address

That's the code straight from http://www.dimastr.com/redemption/rdo/rdoaddressbook.htm . I'm an idiot for not testing it before converting to autoit - it's broken in VBS too. I'll do some more research and see how I go.

[SpuddyMcSpud]

Wow what a waste of time. It's amazing what you can miss when you've been staring at the same code for too long.

There's a typo in the code snippet on the redemption website - AdrrEntry on line 3 vs AddrEntry on line 4. Geez.

[DaleHohm]

Funny. That was hard to see.

I'm working with the Redemption library right now too, so I'd be interested to see anything you get working. I'm trying to convert display names into SMTP addresses and hitting snags.

Dale

[SpuddyMcSpud]

By the looks of things you're a far far more advanced coder than I am, but here's what I've got now...

$Application = ObjCreate("Outlook.Application")
$Session = objCreate("Redemption.RDOSession")
$Session.MAPIOBJECT = $Application.Session.MAPIOBJECT
$Drafts = $Session.GetDefaultFolder(16)
$Msg = $Drafts.Items.Add
$Msg.To = $RecipientX
$Msg.Recipients.ResolveAll(true)
$Msg.Subject = $Subject
$Msg.HTMLBody = $Message
$Msg.Importance = $UrgentX
$Msg.Send

$RecipientX can be either one or more names, seperated by a semi-colon. It works perfectly unless you cancel the Check Names dialog for a name that couldn't be resolved - it basically just ends the script and leaves the message in the drafts folder. I can't figure out how to capture the fact that the user cancelled the dialog.

I wouldn't even bother with using RDO/Outlook except I need a record of the sent message in the users' Sent Items. I'll keep on trying...!

[DaleHohm]

Are you able to get this redemption example to work for you? I get no value returned.

dim utils, MailItem, PrSenderEmailAddress, SenderEMail
Set Outlook = CreateObject("Outlook.Application")
set utils = CreateObject("Redemption.MAPIUtils")
set MailItem = Outlook.Session.GetDefaultFolder(6).Items(1)  'Get the first item in the inbox, can be any other item
PrSMTPAddress= &H39FE001E
'PrSMTPAddress= &H800F101E ' Use for exchange cache mode??
SenderEMail = utils.HrGetOneProp(MailItem.MAPIOBJECT, PrSMTPAddress)
MsgBox SenderEMail

In my translation to au3 I get a Type Mismatch (the IE stuff is just to easily get the COM error handler).

I'm trying to narrow down whether it is an issue with OL2007, exchange cache mode or something else.

#include <IE.au3>
_IEErrorHandlerRegister()

$Outlook = ObjCreate("Outlook.Application")
$utils = ObjCreate("Redemption.MAPIUtils")
$MailItem = $Outlook.Session.GetDefaultFolder(6).Items(1)  ;Get the first item in the inbox, can be any other mail item
;$PrSMTPAddress= 0x39FE001E
$PrSMTPAddress= 0x800F101E ; for exchange cache mode??
;Get SMTP address of the first recipient. It is assumed that the recipient is an Exchange Server user.
$SMTPAddress = $utils.HrGetOneProp($MailItem.Recipients(1).AddressEntry.MAPIOBJECT, $PrSMTPAddress)
MsgBox (0, "", $SMTPAddress)

Dale

[SpuddyMcSpud]

When I run the VBS I'm not getting a value returned for SenderEmail either.

I'm running OL2003 in Exchange but cache mode disabled.

The AU3 attempts to get the address from OL (I'm getting the security prompt) but it's returning:

redemption_ab_dale.au3 (7) : ==> The requested action with this object has failed.: 
$SMTPAddress = $utils.HrGetOneProp($MailItem.Recipients(1).AddressEntry.MAPIOBJECT, $PrSMTPAddress) 
$SMTPAddress = $utils.HrGetOneProp($MailItem.Recipients(1).AddressEntry.MAPIOBJECT^ ERROR

Edit: Maybe try using SafeMail instead of MAPIProp?

Edited September 18, 2007 by SpuddyMcSpud

[SpuddyMcSpud]

Actually, give this VBS a crack. Works for me.

set Application = CreateObject("Outlook.Application")
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set oContact = Application.Session.GetDefaultFolder(10).Items(10)
set Contact = CreateObject("Redemption.SafeContactItem")
Contact.Item = oContact 'never use "Set" when setting the Item property
MsgBox Contact.Email1Address

I changed line 4 to GetDefaultFolder(10).Items(10) since .Items(1) in my contacts list appears to be empty.

[DaleHohm]

Thanks, I appreciate the example.

It works, although it returns "", X.400 info or SMTP depending on the contact entry... I'm not wanting to work out of my contact list however. Ideally, what I want to do is to enter a bunch of names in Ex formal (e,g, Smith, John;Doe, Jane) or domain\username and get SMTP email entries back.

More study to do...

Dale