none
VBA para Salvar anexos não salva todos. RRS feed

  • Pergunta

  • Pessoal, eu segui o passo a passo dos posts aqui e até consegui fazer o VBA salvar os anexos, mas acho que tem algum problema ou então preciso que me ajudem com uma solução que me ajude mais.

    Percebi que a VBA para salvar os anexos dos emails em pastas não está salvando todos, mas apenas alguns em específico. Não sei estou falando besteira mas pelo que percebi os anexos são salvos de acordo com uma palavra que o VBA identifica no email e então salva aquele anexo do e-mail onde achou a palavra (Ex: For Each Atenciosamente In Mail.Attachments). Se o e-mail não vem com a palavra Atenciosamente, então ele não salva o anexo.

    Existe alguma forma de fazer ele salvar todo e qualquer tipo de anexo (pdf, ppt...) de qualquer e-mail recebido? Se sim, qual a VBA?

    Vlw....


    • Editado Rafael Mesquita DS quarta-feira, 11 de dezembro de 2013 20:30
    • Movido Fábio Jr sexta-feira, 13 de dezembro de 2013 13:39 Fórum mais apropriado
    quarta-feira, 11 de dezembro de 2013 20:28

Respostas

  • Rafael,

    Faltou você colocar o link do código original.

    Mas pelo pedaço que você colocou dá pra explicar um pouco:

    For Each Atenciosamente In Mail.Attachments

    Este FOR ao qual vc se refere é o seguinte:

    Ele vai ler cada um dos Anexos contidos no e-mail (mail.attachments)

    A cada volta do FOR o valor da variavel "Atenciosamente" vai ser igual ao valor do Anexo daquela volta.

    Pode até ter no seu problema alguma relação com a palavra Atenciosamente, mas não é nessa linha o problema, ali atenciosamente é apenas uma variavel que muda de valor a cada volta do loop for.

    Por questões de facilitar a leitura do código eu alteraria esta variavel para outro nome: Anexo ou Attachment, seria o singular da coleção que está sendo percorrida no FOR.


    Fábio de Paula Junior



    quinta-feira, 12 de dezembro de 2013 16:43

Todas as Respostas

  • Rafael,

    Faltou você colocar o link do código original.

    Mas pelo pedaço que você colocou dá pra explicar um pouco:

    For Each Atenciosamente In Mail.Attachments

    Este FOR ao qual vc se refere é o seguinte:

    Ele vai ler cada um dos Anexos contidos no e-mail (mail.attachments)

    A cada volta do FOR o valor da variavel "Atenciosamente" vai ser igual ao valor do Anexo daquela volta.

    Pode até ter no seu problema alguma relação com a palavra Atenciosamente, mas não é nessa linha o problema, ali atenciosamente é apenas uma variavel que muda de valor a cada volta do loop for.

    Por questões de facilitar a leitura do código eu alteraria esta variavel para outro nome: Anexo ou Attachment, seria o singular da coleção que está sendo percorrida no FOR.


    Fábio de Paula Junior



    quinta-feira, 12 de dezembro de 2013 16:43
  • Qual fórum você seguiu e qual é o código que você está usando?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 13 de dezembro de 2013 20:12
    Moderador