The following code displays the email addresses for the current message.

dim oMsg
  dim oRecipient
 
  set oMsg = client.clientstate.commandmessage
 
  if oMsg is nothing then
    exit sub
  end if
 
  for each oRecipient in oMsg.recipients
    msgbox oRecipient.displayname & vbcrlf & oRecipient.emailaddress
  next
 
  set oRecipient = nothing
  set oMsg = nothing

You can apply this technique to any instance of a message object.

I hope this helps.

Advansys Support