outlook2007 邮件地址问题

[jasper]

目标：
在outlook2007中，发送邮件前，增加抄送人

实现：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)事件中写如下代码：
Set myRcpt = Application.ActiveInspector.CurrentItem.Recipients.Add("[e-mail]")
myRcpt.Type = olCC

结果和问题：
邮件成功发给收件人，但新增的这个抄送地址发送失败，原因是cc列表中显示为"'[e-mail]'"，而不是[e-mail]，导致outlook不认识这个地址。各位有经验的哥，该如何解决？

[jasper]

VBA论坛冷清啊

[Tiger_Zhao]

试试

.Recipients.Add("[e-mail] <[e-mail]>") 

或
[code=VB].Recipients.Add("'[e-mail]' <[e-mail]>")

[Tiger_Zhao]

再或者根据地址簿自动取得名称

Set myRcpt = Application.ActiveInspector.CurrentItem.Recipients.Add("[e-mail]") 
myRcpt.Type = olCC
myRcpt.Resolve 

[jasper]

myRcpt.Resolve通过，谢谢
另外的两种形式在我这没成功。

[laoyebin]

我的加了这段代码，显示不了cc

[jasper]

当多个cc的时候要分别add

[Tiger_Zhao]

是的。
集合的 Add 总是添加单个成员。