使用VBA 在outlook联系人中查找某个人的邮件地址

大家好，
因为项目上的需要做一个vba脚本 将一个csv文件格式的联系人导入outlook。
通过VBA，本人已经实现。
但现在又有这样的问题。如果如果csv文件上的联系人有更新。就需要再次导入。那么就会有重复记录。
这就涉及到csv文件中的每一条记录和outlook中的联系人做对比。由于邮件地址是唯一的，所以我就拿邮件地址做判断的条件。
这就需要通过某种方法获得outlook中各个联系人的邮件地址。

下面是我的方法：
Set objNS = objApp.GetNamespace("MAPI")
Set objContacts = objNS.GetDefaultFolder(olFolderContacts).Folders("IT CNIBR")   ‘  "IT CNIBR" 是在联系人下建立的一个文件夹。
Set Email = objContacts.Items
msgbox Email(1)   '显示outlook联系人中第一条联系人的邮箱地址

可是显示出来的却是他的名字。
不直到我错在哪里了。
烦请各位帮我排错。谢谢

如果你的csv文件是最全最新的，

你可以把outlook里的联系人先全部删掉再导入啊。

嗯。斑竹这方法不错的。 非常感谢
但怕的是用户有自己有过添加联系人，如果直接删掉的话会有一些麻烦。

Email(1).email1address 无法显示联系人的邮箱地址
但是刚刚我尝试过显示电话号码的方法：
email(1).MobileTelephoneNumber  却又是可以拿到电话号码信息的。
不知道为什么。

另外想再问一下。
如何判断 outlook联系人下某一文件夹是否存在？