#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