outlook2007 邮件地址问题
目标:
在outlook2007中,发送邮件前,增加抄送人
实现:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)事件中写如下代码:
Set myRcpt = Application.ActiveInspector.CurrentItem.Recipients.Add("jjjjjj@gmail.com")
myRcpt.Type = olCC
结果和问题:
邮件成功发给收件人,但新增的这个抄送地址发送失败,原因是cc列表中显示为"'jjjjjj@gmail.com'",而不是jjjjjj@gmail.com,导致outlook不认识这个地址。各位有经验的哥,该如何解决?
[解决办法]
我的加了这段代码,显示不了cc
[解决办法]
试试
- VB code
.Recipients.Add("jjjjjj@gmail.com <jjjjjj@gmail.com>")
[解决办法]
再或者根据地址簿自动取得名称
- VB code
Set myRcpt = Application.ActiveInspector.CurrentItem.Recipients.Add("jjjjjj@gmail.com") myRcpt.Type = olCCmyRcpt.Resolve