Usuário com melhor resposta
Salvar anexos de e-mail - Outlook 2013

Pergunta
-
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 SubO 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?
Respostas
-
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.
Todas as Respostas
-
-
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.