Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
FMattos

Salvar anexo de email com nome da assinatura.

Recommended Posts

Srs, bom dia!

 

Estou tentando encontrar uma macro para salvar anexos de emails recebidos em pastas separadas.

Consegui um no forum MSDN que cria a pasta com o email de quem envia a mensagem e salva os anexos dentro.

Como trabalhamos com diversas pessoas enviando email e apenas uma conta para receber, a ideia é que todo email seja salvo em uma pasta para que todos tenham acesso.

A maioria dos emails que recebemos são respostas, então quero que a macro pegue a assinatura do email original e crie uma pasta com este nome e salve os anexos dentro.

Seria possível?

 

Exemplo: enviei email para financeiro@hotmail.com, na minha assinatura vai meu nome, então quando o financeiro me responder, quero que a macro crie uma pasta com meu nome e salve a mensagem dentro desta pasta.

 

abaixo a macro que peguei na MSDN (Reduzi a macro por não ter necessidade de filtrar mais formatos).

Acho que alterando a parte verde da macro funciona, mas não faço ideia do que usar.

 

Public Sub ProcessarAnexo(Email As MailItem)

 Dim DirAnexo1 As String

  Dim strRem As String

 Dim MailID As String

 Dim Lido As Boolean

 Dim Mail As Outlook.MailItem

 

 DirAnexo1 = "C:\MSG"

MailID = Email.EntryID

 Set Mail = Application.Session.GetItemFromID(MailID)

 

 strRem = Mail.SenderEmailAddress

 

 For Each Anexo In Mail.Attachments

  If Right(Anexo.FileName, 3) = "msg" Then

   If Dir(DirAnexo1 & "\" & strRem, vbDirectory) = "" Then

    MkDir DirAnexo1 & "\" & strRem

    Anexo.SaveAsFile DirAnexo1 & "\" & strRem & "\" & Format(Mail.CreationTime, "yyyymmdd-hhnnss-") & Anexo.FileName

   Else

    Anexo.SaveAsFile DirAnexo1 & "\" & strRem & "\" & Format(Mail.CreationTime, "yyyymmdd-hhnnss-") & Anexo.FileName

   End If

 

  End If

 Mail.UnRead = False

 Next

 Set Mail = Nothing

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×