#7022
Support 1
Participant

Stuart,

The address book entry name must be resolved to an email address. See the following code sample for a guide on how to do this.

'-----------------------------------------------------------  
  dim iRecipient

  iRecipient = GroupWise.ItemGetText("X00", itfTo)

  ' @ symbol is missing, we need to resolve the address
  if (InStr(1, iRecipient, "@", vbTextCompare) = 0) then

    ' Get the full email address of a name or resource.

    iRecipient = GroupWise.AddressBookResolveFullName(iRecipient, "")

    ' Make sure recipient is an external user, check domain name
    if (InStr(1, iRecipient, "novell.com", vbTextCompare) = 0) then
      MsgBox "External Recipient"
    end if
 
  end if
'-----------------------------------------------------------

I hope this helps you.

Advansys Support