>*** First see if the sender name actually IS
>*** an e-mail address
>if '@' $ loItem.SenderName
>  lcSenderEm2 = loItem.SenderName
>else
>  if empty(loItem.To)
>    *** don't reply - this is just a draft
>    lcSenderEm2 = "Draft"
>  else
>    loReply = loItem.Reply()
>    loRecip = loReply.Recipients[ 1 ]
>    lcSenderEm2 = IIF( NOT EMPTY( loRecip.Address ), ;
>      loRecip.Address, loRecip.Name )
>  endif
>endif
>