はどのように私は、単一のサブフォルダ

Question

上で実行するために、これを書くでしょう現在は受信トレイに対するすべての受信トレイルールを実行します。 =真しかし、私は唯一のサブフォルダでスクリプトを実行したい：私は明らかに何かを見逃している場合は申し訳ありません は、私はIncludeSubFoldersを追加することができます知っているVBA に堪能ではありませんよ。

Sub Inbox() 
Dim st As Outlook.Store 
Dim myRules As Outlook.Rules 
Dim rl As Outlook.Rule 
Dim count As Integer 
Dim ruleList As String 

' 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 

Answer 1

オプションの[フォルダ]パラメータを受信トレイのサブフォルダに設定することができます。もちろん、受信トレイのFolder.Foldersコレクションから特定のFolderオブジェクトを取得するためのコードを追加する必要があります。