Resolve_Name 0 0 1.25 86407b98-7927-443d-be21-ab1864be4000 86407b98-7927-443d-be21-ab1864be4000 b0010aad-870f-4864-8e13-aca37f1bc7b4 86407b98-7927-443d-be21-ab1864be4000

86407b98-7927-443d-be21-ab1864be4000

15d58ee8-cb87-4a04-b1d8-97a0410ffdac "" then _nameSpace.Logon(Profile, , True, True) end if olSharedRecip = _nameSpace.CreateRecipient(displayName) olSharedRecip.Resolve if olSharedRecip.Resolved then select case olSharedRecip.AddressEntry.AddressEntryUserType Case 0, 5 'olExchangeUserAddressEntry & olExchangeUserAddressEntry oEU = olSharedRecip.AddressEntry.GetExchangeUser if not (oEU is nothing) then smtpName = oEU.PrimarySmtpAddress end if Case 10, 30 'olOutlookContactAddressEntry & 'olSmtpAddressEntry smtpName = olSharedRecip.AddressEntry.Address end select end if]]> 86407b98-7927-443d-be21-ab1864be4000 text 86407b98-7927-443d-be21-ab1864be4000 text 86407b98-7927-443d-be21-ab1864be4000 text