Salve e renomeie um anexo do outlook 2013 para uma pasta específica

Question

Eu tenho usado as etapas de outro post neste site e funcionou por alguns dias e agora não. O arquivo sempre vem da mesma pessoa e é sempre um anexo xlsm.

Eu habilitei as Regras de email do cliente inseguras no outlook para ativar a execução de um script

Eu criei uma regra que move o email de uma pessoa específica para uma subpasta na caixa de entrada

regra de anexos

e, em seguida, executa o seguinte script

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\Automation\CBM\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub

A mudança para a subpasta funciona, mas o salvamento do anexo no local da pasta não funciona mais.

Eu verifiquei a configuração da macro e eles estão configurados para ativar tudo.

Não sei por que parou de funcionar. ele roda, mas depois da mudança para a subpasta, nada acontece.

qualquer conselho seria muito apreciado

    

Answer 1

Como posso ver na sua captura de tela e na macro que você está usando, a regra dispara a macro SaveAttachments e seu script é denominado saveAttachtoDisk . Talvez sua regra apenas ative outro script que não faz nada?