user details

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a generic txt box on a custom appt form that is being used for
receipents. What I want to do is place a button on the form that acts as a
"check names". What I need is if the value is a valid address I need to be
able to find things like display name and such. Any help would be greatly
appreicated. Below is the code I have so far.

Sub CommandButton2_Click()
strChangeTo = Item.UserProperties.Find("ChgTo").Value
z=split(strChangeTo,";")
i=0
Do until i = (ubound(z)+1)
Set objRecip = Item.Recipients.Add(z(i))
if objRecip.resolve = true then
msgbox z(i) & " is a valid address."
else
msgbox z(i) & " is not a valid address."
end if
i=i+1
Loop
End Sub
 
Back
Top