Hi,

I have a Visual Basic application which uses REDEMPTION dll (ver 4.5.0.812).
This application updates appointments and tasks, to the EXCHANGE SERVER and
also sends a mail to the EXCHANGE USER, highlighting the changes to the
appointment and tasks. In one PC, the application creates the appointments
and tasks, but fails to send a mail to the receipient. Below is the function
where the execution fails. I feel the failure happens at the GAL.RESOLVENAME
command. Since, only the executable is installed in the PC where the problem
occurs, i am not able to point out which statement fails. Can somebody help
me, to get this issue resolved.

The error message, generated by the below function is

"Object variable or With block variable not set"

Private Function RecipientIsValid(session As Redemption.RDOSession,
RecipientUserId As String) As Boolean

On Error GoTo ErrHandler
Dim oMessage As RDOMail
Dim oRecipient As RDORecipient


Set oMessage = session.GetDefaultFolder(olFolderOutbox).Items.Add
Set oRecipient = oMessage.Recipients.Add(RecipientUserId)
session.AddressBook.GAL.ResolveName (RecipientUserId)

CleanUp:
RecipientIsValid = True
Exit Function

ErrHandler:
If Err.Number = -2147219712 Then ' [Collaboration Data
Objects - [MAPI_E_AMBIGUOUS_RECIP(80040700)]]
GoTo CleanUp
Else
Debug.Print "RecipientIsValid"
Debug.Print Err.Description
End If

End Function

Thanks in advance