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

iceboy · 发表于 2006-12-20 17:21

在OUTLOOK 2003中好像都没有vba, 我怎么找不到啊。

selfay · 发表于 2006-12-20 22:14

QUOTE:

以下是引用aaaaabbbbb在2006-12-19 6:46:01的发言：

点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。

还是不行....

aaaaabbbbb · 发表于 2006-12-22 05:51

升级到2003吧.或者请有2002的朋友帮一下忙。

selfay · 发表于 2006-12-24 20:43

老大，我的一直都是office 2003啊...

selfay · 发表于 2006-12-24 20:43

看我的贴图就知道了...

aaaaabbbbb · 发表于 2006-12-25 05:48

哦，一直没注意到2003中的VBE图标还是老样子。呵呵。

那你就点菜单上的视图－－》代码窗口，在代码窗口的左侧选application,则右边就会找到itemsend了。

selfay · 发表于 2006-12-27 23:29

然后怎么输代码啊，点了没反应

xiyang120 · 发表于 2006-12-28 14:29

换一种思路,简单的事情不要弄复杂了.

selfay · 发表于 2006-12-29 23:27

QUOTE:

以下是引用xiyang120在2006-12-28 14:29:26的发言：
换一种思路,简单的事情不要弄复杂了.

then show me

aaaaabbbbb · 发表于 2007-1-1 02:16

F:\tools\GIF动画录制\1.gif

在光标处输入代码。

		自动登录	找回密码
密码			免费注册

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

最新热点 /1