Eu estou tentando criar uma macro para executar uma regra na minha pasta de itens enviados. Mas continue correndo para as variáveis "Variável de objeto ou Com variável de bloco não definida" Eu sou um novato nisso, então qualquer ajuda é apreciada.
Aqui está outra tentativa fracassada
Private Sub Application_Startup () runRulesOnSentMailFolder End Sub
Sub runRulesOnSentMailFolder () Dim st como Outlook.Store Dim myRules As Outlook.Rules Dim rl como Outlook.Rule Contagem de dimensões como 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
'iterar todas as regras Para cada rl em myRules 'determinar se é uma regra de caixa de entrada e um prefixo de nome de regra corresponde Se rl.RuleType = olRuleReceive E Esquerda (rl.Name, Len (rulePrefix)) = rulePrefix Então
' 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
Tags microsoft-outlook