none
Salvar anexos de e-mail - Outlook 2013 RRS feed

  • 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 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? 

      

    sexta-feira, 3 de julho de 2015 22:03

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.

    • Sugerido como Resposta Marcos SJ sexta-feira, 17 de julho de 2015 14:08
    • Marcado como Resposta Marcos SJ sexta-feira, 17 de julho de 2015 14:08
    sexta-feira, 17 de julho de 2015 14:08

Todas as Respostas

  • 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

    • Marcado como Resposta Marcos SJ sexta-feira, 17 de julho de 2015 14:07
    • Não Marcado como Resposta Marcos SJ sexta-feira, 17 de julho de 2015 14:08
    segunda-feira, 6 de julho de 2015 14:58
  • 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.

    • Sugerido como Resposta Marcos SJ sexta-feira, 17 de julho de 2015 14:08
    • Marcado como Resposta Marcos SJ sexta-feira, 17 de julho de 2015 14:08
    sexta-feira, 17 de julho de 2015 14:08