macro Outlook SentMailFolder

0

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

    
por Chas 09.10.2017 / 18:54

0 respostas