有没有哪位大哥帮我完成这个功能

selfay

就是每次发邮件的时候，我都希望跳出一个提示框，问要不要BCC给自己，如果要就在BCC填上自己的帐号发送出去，如果不要，就直接发送，似乎要用宏来解决？

aaaaabbbbb

呵呵，为什么不在发邮件的时间决定BCC给自己呢？而要把决定留到最后呢？

selfay

当你每天要处理很多邮件的时候，就会忘记了，而且我的已发送邮件放在服务器上，隔一段时间会删除以释放空间，所以有时候要找东西找不到，所以想用这个提醒功能，估计要VBA了，有没有高手可以解决这个问题啊

aaaaabbbbb

在Item send里添加以下代码。把邮箱改成自己的就可以了。

 Dim prompt As String
    prompt = "Do you want to send mail--" & Item.Subject & "--to yourself?"
    If MsgBox(prompt, vbYesNo + vbQuestion, "Reminder") = vbNo Then
        Cancel = True
    Else
    Item.BCC = "×××＠××.com"
    End If

andysky

QUOTE:

以下是引用selfay在2006-12-12 22:00:44的发言：

就是每次发邮件的时候，我都希望跳出一个提示框，问要不要BCC给自己，如果要就在BCC填上自己的帐号发送出去，如果不要，就直接发送，似乎要用宏来解决？

直接郵定在發件箱保留附本就行了。

selfay

QUOTE:

以下是引用aaaaabbbbb在2006-12-14 7:01:52的发言：

在Item send里添加以下代码。把邮箱改成自己的就可以了。

 Dim prompt As String
    prompt = "Do you want to send mail--" & Item.Subject & "--to yourself?"
    If MsgBox(prompt, vbYesNo + vbQuestion, "Reminder") = vbNo Then
        Cancel = True
    Else
    Item.BCC = "×××＠××.com"
    End If

没找到Item send，只有items

aaaaabbbbb

 你这是OUTLOOK2000的吧？

应该在OUTLOOK下拉里有application，然后就看到item send.它是在邮件发送时进行的动作。

selfay

但是怎么往里面输代码啊

selfay

自己就在thisoutlooksession里面写代码，发现不可以实现，

1. 那个reminder的对话框每次不是出现在当前窗口的前面，而是在outlook主程序窗口的前面

2. 选no不会发送邮件

3. 选yes不会BBC给设定的邮件地址

aaaaabbbbb

点thisoutlooksession，在代码窗口里把“通用”改成“application”，右边下拉里找到item send，添加代码。

或者直接把下面代码拷贝到thisoutlooksession下面试试。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim prompt As String
    prompt = "do you want to send mail" & Item.Subject & " to yourself?"
    If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then
        Cancel = True
    Else
    Item.BCC = "××@××.com"
    End If

End Sub

我的是OUTLOOK2003+XP。