UC知道VBA在Outlook里没有生效
来源：百度知道 编辑：UC知道 时间：2024/09/18 05:33:49
我要在Outlook2007里面做一个宏，把“直接回复到发件人”改为一个特定的邮件地址。比如，我用ABC@163.com这个帐号发信，别人收到信后，点回复，默认的收件人不是ABC@163.com，而是我设定的DEF@163.com。这个在Outlook里面默认是设置用哪个邮件地址发信，就回复到哪个地址，但我想改成一个恒定的地址，比如DEF@163.com.
参见网址：http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/Q_23822179.html
我按照专家的说明做的：
1。把专家的代码复制进Outlook的VBA编辑器的 ThisOutlookSession 里面。
2。允许使用宏。
3。重启Outlook2007。
重启后，Outlook2007提示是否允许宏运行，点“是”，可是宏没有生效（在直接回复到×××邮件地址 这个字段，还是没有改过来。）
我看到跟贴的人说这个方法是成功的，为什么我的电脑就不成功呢？谁懂VBA，帮忙看下。
VBA代码如下：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Replace the address on the following line with the address replies should go to.'
Item.ReplyRecipients.Add "SomeAddress@company.com"
Item.ReplyRecipients.ResolveAll
参见网址：http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/Q_23822179.html
我按照专家的说明做的：
1。把专家的代码复制进Outlook的VBA编辑器的 ThisOutlookSession 里面。
2。允许使用宏。
3。重启Outlook2007。
重启后，Outlook2007提示是否允许宏运行，点“是”，可是宏没有生效（在直接回复到×××邮件地址 这个字段，还是没有改过来。）
我看到跟贴的人说这个方法是成功的，为什么我的电脑就不成功呢？谁懂VBA，帮忙看下。
VBA代码如下：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Replace the address on the following line with the address replies should go to.'
Item.ReplyRecipients.Add "SomeAddress@company.com"
Item.ReplyRecipients.ResolveAll
奇怪，我在自己电脑上试了所有步骤和脚本，工作相当正常。
你确信你的代码是在VBA中双击“ThisOutlookSession”之后打开的编辑区中录入的吗？
留名, 回到办公室再来试下.
可以试下, 在代码中间加入一个, 类似,
MSGBOX "将要处理"
的语句. 看代码到底有没有被执行. 如果没被执行, 是不是代码放的位置不对?