Outlook SentMailFolder-Makro

Question

Ich versuche, ein Makro zu erstellen, um eine Regel für meinen Ordner für gesendete Elemente auszuführen. Aber ich stoße immer wieder auf Sternchen mit der Meldung „Objektvariable oder With-Blockvariable nicht festgelegt“. Ich bin ein Neuling auf diesem Gebiet, daher bin ich für jede Hilfe dankbar.

Hier ist ein weiterer fehlgeschlagener Versuch

Private Sub Application_Startup() runRulesOnSentMailFolder End Sub

Sub runRulesOnSentMailFolder() Dim st As Outlook.Store Dim myRules As Outlook.Rules Dim rl As Outlook.Rule Dim count As Integer Dim ruleList As String Dim rulePrefix As String Dim ruleFolder As Long

'
Dim outlookApp As Outlook.Application
Dim objNS As NameSpace


ruleFolder = olFolderSentMail
rulePrefix = "SENT_Mail_"

Set objNS = Application.GetNamespace("MAPI")
Set objSentmailfolder = objNS.GetDefaultFolder(ruleFolder)

' get default store (where rules live)
Set st = Application.Session.DefaultStore
' get rules
Set myRules = st.GetRules

' iteriere alle Regeln für jedes rl in meinen Regeln ' bestelle, ob es sich um eine Posteingangsregel handelt und das Regelnamenpräfix übereinstimmt Wenn rl.RuleType = olRuleReceive und Left(rl.Name, Len(rulePrefix)) = rulePrefix Dann

        ' if so, run it
        rl.Execute ShowProgress:=True, Folder:=objSentmailfolder
        count = count + 1
        ruleList = ruleList & vbCrLf & rl.Name
    End If
****Next****

' tell the user what you did
ruleList = "These rules were executed against the folder: " & objSentmailfolder.Name & vbCrLf & ruleList
MsgBox ruleList, vbInformation, "Macro: runRulesOnSentMailFolder"

Set rl = Nothing
Set st = Nothing
Set myRules = Nothing
Set objSentmailfolder = Nothing
Set objNS = Nothing

End Sub