如何获取已发邮件的收件人的邮件地址

zfengyue

VBA不是很好,自己实在一时琢磨不出来.请各位"拔刀相助".
版本: 2003

■背景:公司要求在给客户发附件时,需要用一个加密软件进行加密,随后再手动发送一个密码通知邮件出去.
■问题:我想做成这样,发出有附件的邮件之后,点已发送邮件,然后选中刚发出去的邮件,然后点一个自定义按钮,然后跳个窗口出来,然后输入密码,点确定.密码通知邮件就Create好.
其他的我都弄好,现在就是在获取已发邮件的收件人的邮件地址时,有点问题.我用的是" .To ".但是这个好像对于一些已经存在于联系人里的邮箱会无法获取,而显示成类似 '张三' 这样,无法取得 xxx@abc.com的地址.造成邮件无法发出去.

在此先谢谢啦!{:soso__2038091188026051245_4:}

zfengyue

没有人回复,自己好像找到了.
http://club.excelhome.net/thread-495899-1-1.html
这个帖子里有提到. 谢谢lgcmeli .
↑这个是取发件人的，看错了，不是我要的收件人。
谁指点下啊？

zfengyue

没有人回复啊。
幸好找到了下面这个帖子。
http://club.excelhome.net/thread-828299-1-11.html

For i = 1 to itm.Recipients.Count
My_Email_Address=itm.Recipients.Item(i).Address & ":" &  My_Email_Address
Next

ztccsj

zfengyue 发表于 2012-11-18 19:38
没有人回复啊。
幸好找到了下面这个帖子。
http://club.excelhome.net/thread-828299-1-11.html

取到的邮件地址不是@邮箱格式吧，只能显示发件人姓名吧