![Outlook SentMailFolder 宏](https://linux22.com/image/1543122/Outlook%20SentMailFolder%20%E5%AE%8F.png)
我正在尝试创建一个宏来对我的已发送项目文件夹运行规则。但总是遇到“对象变量或未设置块变量”星号,我是这方面的新手,所以任何帮助我都非常感谢。
这是另一次失败的尝试
Private Sub Application_Startup() runRulesOnSentMailFolder End Sub
Sub runRulesOnSentMailFolder() Dim st 作为 Outlook.Store Dim myRules 作为 Outlook.Rules Dim rl 作为 Outlook.Rule Dim count 作为整数 Dim ruleList 作为字符串 Dim rulePrefix 作为字符串 Dim ruleFolder 作为 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
' 迭代所有规则 For Each rl In myRules ' 确定它是否为收件箱规则,并且规则名称前缀是否匹配 If rl.RuleType = olRuleReceive And Left(rl.Name, Len(rulePrefix)) = rulePrefix Then
' 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
子目录结束