[求助]outlook如何利用宏按钮立即运行规则？

vitas333

能不能  用 宏 （建立一个按钮） 自动运行  指定的规则。不需要 选择规则 来确定运行。。        就一个按钮，点后 就可以立即运行这个规则的。。

 请各位朋友帮忙，谢谢~~~

一溪云

希望有高手解答,我也想知道.

aaaaabbbbb

OUTLOOK2007才可以通过宏控制规则。可以参考以下帖子：

http://www.outlookcode.com/codedetail.aspx?id=1266

Sub RunAllInboxRules()
    Dim st As Outlook.Store
    Dim myRules As Outlook.Rules
    Dim rl As Outlook.Rule
    Dim count As Integer
    Dim ruleList As String
    'On Error Resume Next
   
    ' get default store (where rules live)
    Set st = Application.Session.DefaultStore
    ' get rules
    Set myRules = st.GetRules
   
    ' iterate all the rules
    For Each rl In myRules
        ' determine if it's an Inbox rule
        If rl.RuleType = olRuleReceive Then
            ' if so, run it
            rl.Execute ShowProgress:=True
            count = count + 1
            ruleList = ruleList & vbCrLf & rl.Name
        End If
    Next
   
    ' tell the user what you did
    ruleList = "These rules were executed against the Inbox: " & vbCrLf & ruleList
    MsgBox ruleList, vbInformation, "Macro: RunAllInboxRules"
   
    Set rl = Nothing
    Set st = Nothing
    Set myRules = Nothing
End Sub

我试过了，代码在OUTLOOK2007下是可以运行成功。

iscc

aaaaabbbbb 发表于 2008-12-6 19:49
OUTLOOK2007才可以通过宏控制规则。可以参考以下帖子：

http://www.outlookcode.com/codedetail.aspx?id ...

...請問在outlook 2003下如何使用呢？