outlook2007如何做自动密件抄送

efishyy

非常感谢！自动密送很好用

efishyy

1。把专家的代码复制进Outlook的VBA编辑器的 ThisOutlookSession 里面。
2。把OUTLOOK里宏的安全性降低，允许使用宏。
3。重启Outlook2007。


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim lngres As Long
'检查邮件是否添加附件
If InStr(1, Item.Body, "附件") <> 0 Then
If Item.Attachments.Count = 0 Then
Application.Explorers(1).Activate

lngres = MsgBox("邮件内容中包含“附件”，但是没有发现附件！" & Chr(10) & "仍然发送？", _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End If

'检查是否写主题
If Item.Subject = "" Then
Application.Explorers(1).Activate
lngres = MsgBox("邮件还没有写主题呢！" & Chr(10) & "仍然发送？", _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If


  Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next

    strBcc = "123@123.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

[ 本帖最后由 efishyy 于 2010-4-20 22:28 编辑 ]

dsd999

谢谢大家的分享。

playermm

efishyy 发表于 2010-4-20 22:27
1。把专家的代码复制进Outlook的VBA编辑器的 ThisOutlookSession 里面。
2。把OUTLOOK里宏的安全性降低，允 ...

一个奇怪的问题……

我昨天晚上把这段代码copy到OUTLOOK，并发了一封邮件，test成功了。
今天开始发的邮件又没有自动BCC到指定邮箱了，Alt+F11后，原来的代码还是在的。
请问可能是哪里出了问题呢？
Bow——

cublog

efishyy 发表于 2010-3-11 12:35
:victory: 非常感谢！自动密送很好用

非常好的东东，多个邮件帐号是否可以按照对应的帐号设置密送邮件地址呢？

雨竹沐风

同楼上的问题，OUTLOOK有多个账号，如何让指定的账号发的邮件才自动密件抄送？？

雨静儿

一定要写代码才行吗？

mattJlang

OUTLOOK规则设置里可以设置默认抄送，但不可以设置默认密送。所以请问：
1. 楼主公布的默认密送的VBA代码中该怎样添加语句，使该宏同时具备默认抄送和默认密送的功能？
2. 使用OUTLOOK2010的规则设置默认抄送和使用VBA宏设置默认抄送这两个办法似乎都会使发送邮件变慢。但哪个对速度影响小一点呢？

请朋友们告之，谢谢！