|
从帮助里可以看出“此属性仅包含显示名称。若要修改密件抄送收件人,应使用 Recipients 集合。
=====================
Outlook 开发人员参考
MailItem.BCC 属性
返回 MailItem 的密件抄送 (BCC) 名称的显示列表。String 类型。可读写。
语法
表达式.BCC
表达式 一个代表 MailItem 对象的变量。
说明
mailitem.bcc属性仅包含显示名称。若要修改密件抄送收件人,应使用 Recipients 集合。
======================
而mailitem.subject属性参考如下:
Outlook 开发人员参考
MailItem.Subject 属性
返回或设置一个 String 类型的值,指示 Outlook 项目的主题。可读写。
====================
因此,代码要修改。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
strBcc = "***@sina.com" '请改成你要密送的邮件地址
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "不能解析密件抄送人邮件地址, " & _
"请确认是否仍然发送邮件?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"不能解析密件抄送人邮件地址")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub
[ 本帖最后由 aaaaabbbbb 于 2008-12-20 17:09 编辑 ] |
|