Estou usando um código semelhante ao abaixo e ativando-o nas regras de e-mail 'executar um script' e está funcionando bem para salvar anexos à medida que determinados e-mails chegam. No entanto, se houver vários anexos em um e-mail, ele é acionado salvando-os e pousando no último. Existe uma maneira que eu posso dizer dentro do código para salvar apenas o anexo "x", ou seja. apenas o primeiro anexo ou apenas o quarto anexo, etc?
* Se você deseja processar anexos em e-mails específicos, é isso que eu uso. Funciona perfeitamente para mim no Outlook 2013:
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\temp"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub
A última parte da regra é a execução de um script. insira a descrição da imagem aqui Para outros que não estão familiarizados com o Outlook VBA, você precisa exibir a faixa de opções do desenvolvedor. insira a descrição da imagem aqui Cole o código acima, salve o VBA e faça referência a ele em sua regra. insira a descrição da imagem aqui shareedit
respondeu 2 de março de 2015 às 17: 12 *