outlook2007下取得邮件的发件人地址（EXCHANGE模式）

outlook2007下取得邮件的发件人地址（EXCHANGE模式）
因为是采用的EXCHANGE的方式收取发送邮件的，所有的收件人发件人地址只要在全球通讯簿中有的都只会显示名字而不显示完整的SMTP地址
  Dim myOlExp As Outlook.Explorer
  Dim myOlSel As Outlook.Selection
  Set myOlExp = Application.ActiveExplorer
  '选中的邮件
  Set myOlSel = myOlExp.Selection
  Dim tss As AddressEntry
  Set tss = myOlSel.item1.sender.GetExchangeUser()
在OUTLOOK2010下VBA是通过定义一个AddressEntry的类 用类方法GetExchangeUser()通过在ITEM1下sender属性来取得它的发件人地址地址，但是现在发现如果换成OUTLOOK2007或者更低的版本，它里面便不存在sender这个AddressEntry类，所以不能使用GetExchangeUser方法 求大神指教！ 万分感谢！

需要可发完整代码！ 和监视记录！ --------------------编程问答-------------------- 没有钱做不了，你赚钱，让别人给你免费打工啊。 --------------------编程问答-------------------- 你会？ --------------------编程问答-------------------- 问题已经解决~~！~~~~~~兴奋~~~

补充：VB ,  VBA