Q
QVZJUw
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
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