Salvar anexos de e-mail - Outlook 2013

Question

               Boa noite, 

        Senhores, encontrei o seguinte código através da WEB: 

Public Sub SalvarAnexo(Item As MailItem)

Dim Atmt As Attachment
Dim FileName As String

For Each Atmt In Item.Attachments
If Right(Atmt.FileName, 4) = "xlsx" Then
FileName = "C:\teste\" & Format(Item.CreationTime, "yyyymmdd_hhnnss_") & Atmt.FileName
Atmt.SaveAsFile FileName
End If
Next Atmt

End Sub

O meu intuito é salvar os anexos contidos em mensagem de um destinatario especifico e salva-los, no caso, na pasta teste contida em C.  A regra já foi definida, porém percebi que os anexos não estão sendo salvos. Há algo de errado, ou outro modo de realizar esse salvamento de arquivos? 

  

Answer 1

Ola Usuário,

Tudo bem?

Peço que verifique se as informações contidas nas threads abaixo podem vir a te ajudar:

Thread 01

Thread 02

Atenciosamente

Marcos Robertto

Answer 2

Bom dia.

Por falta de retorno do usuário, esta thread será encerrada.

Caso seja necessário, por gentileza, abra uma thread nova.

Atenciosamente

---

Marcos Roberto de Souza Junior

Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.