[Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel

waraujo 29/9/2011, 15:43

waraujo: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 61
Registrado : 04/02/2010

Mensagem nº1

Salvar Anexo de Um Email em Uma Pasta é Possivel

Mensagem waraujo 29/9/2011, 15:43

Srs. Estou Aqui para Mais Uma Ajuda.....

Seria Possível Salvar o anexo de Email do Outlook em uma Pasta através de VBA ?

Andei Procurando na Internet, mas não tem nada que faça isto direito !!!!!!!

Aos Mestres deste Fórum Fico no Aguardo !!!!!

Abraço !!!!

.................................................................................
Que Deus Abençoe à todos aqui presente.
Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
Eclesiástico 18,33
Wellington Araujo

criquio 29/9/2011, 16:20

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel

Mensagem criquio 29/9/2011, 16:20

Você já deu uma pesquisada no forum? Pesquise por "Outlook", temos alguma coisa sobre isso se muito não me falha a memória. Se necessário, veja na minha assinatura abaixo link para um vídeo com dicas de pesquisa no forum.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

waraujo 1/10/2011, 17:24

waraujo

waraujo: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 61
Registrado : 04/02/2010

Mensagem nº3

Re: [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel

Mensagem waraujo 1/10/2011, 17:24

Ok Criquio tem vários Tópicos mas não tem Nenhum que fala sobre o assunto...
consegui um Codigo na Internet.

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:\temp\" & Format(Item.CreationTime, "yyyymmdd_hhnnss_") & Atmt.FileName
Atmt.SaveAsFile FileName
End If
Next Atmt

End Sub

Fonte do Codigo : http://www.ambienteoffice.com.br/outlook/salvar_anexos_de_novas_mensagens_numa_pasta/

Porem este Código deve estar dentro do VBA do Outlook ou Seja Preciso Criar uma Regra para Assim que chegar o Email com o Assunto desejado o Código seja Executado....
Eu queria Um Codigo Para colocar no Access, para o Meu Aplicativo ir Buscar nas novas msg do Outlook.....
Tentei Colocar este Codigo em Um Modulo No Access mas o mesmo da Erro de Compilação e Aponta Para Linha

Atmt.SaveAsFile FileName

Quem Puder Ajudar e Saber como Fazer isto, Muito Obrigado....

.................................................................................
Que Deus Abençoe à todos aqui presente.
Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
Eclesiástico 18,33
Wellington Araujo