Qual variável armazena o usuário do outlook que recebe o e-mail?

Question

Estou um tempão batendo cabeça, mas como não sou da área não estou conseguindo...

Tenho 10 contas de e-mail no meu outlook ([e-mail], [e-mail], etc) e preciso salvar os anexos dos e-mails em pastas específicas dos e-mails,

O código abaixo está funcionando, mas salva os anexos na pasta strFolder = "C:\ARQS_RECS_EMAIL\" & Item.To & "\"... E o valor de "Item.To" pode ser diferente para uma mesma conta, dependendo do remetente do e-mail.

O que devo colocar no lugar de "Item.To" para que os anexos sejam salvos em uma pasta com o nome da conta de e-mail, ou seja, os emails enviados para o [e-mail] do meu outlook sejam salvos na pasta de arquivos [e-mail].

O código que está funcionando:

Public Sub SalvarAnexo(Item As MailItem)
    Dim att As Attachment
    Dim strFile As String
    Dim strExt As String
    Dim strFolder As String
    
    For Each att In Item.Attachments
        If Not (LCase(Right(att.FileName, 3)) = "jpg") Then
            strFolder = "C:\ARQS_RECS_EMAIL\" & Item.To & "\"
            On Error Resume Next
            MkDir strFolder
            On Error GoTo 0
            strFile = strFolder & Format(Item.CreationTime, "yyyymmdd_hhnnss_") & att.FileName
            att.SaveAsFile strFile
            On Error GoTo 0
        End If
    Next att
End Sub

Agradeço imensamente,

Answer 1

Amigos, 

Estou um tempão batendo cabeça, mas como não sou da área não estou conseguindo...

Tenho 10 contas de e-mail no meu outlook ([e-mail], [e-mail], etc) e preciso salvar os anexos dos e-mails em pastas específicas dos e-mails,

O código abaixo está funcionando, mas salva os anexos na pasta strFolder = "C:\ARQS_RECS_EMAIL\" & Item.To & "\"... E o valor de "Item.To" pode ser diferente para uma mesma conta, dependendo do remetente do e-mail.

O que devo colocar no lugar de "Item.To" para que os anexos sejam salvos em uma pasta com o nome da conta de e-mail, ou seja, os emails enviados para o [e-mail] do meu outlook sejam salvos na pasta de arquivos [e-mail].

Agradeço imensamente,

Answer 2

O código que está funcionando:

Public Sub SalvarAnexo(Item As MailItem)
    Dim att As Attachment
    Dim strFile As String
    Dim strExt As String
    Dim strFolder As String
    
    For Each att In Item.Attachments
        If Not (LCase(Right(att.FileName, 3)) = "jpg") Then
            strFolder = "C:\ARQS_RECS_EMAIL\" & Item.To & "\"
            On Error Resume Next
            MkDir strFolder
            On Error GoTo 0
            strFile = strFolder & Format(Item.CreationTime, "yyyymmdd_hhnnss_") & att.FileName
            att.SaveAsFile strFile
            On Error GoTo 0
        End If
    Next att
End Sub

Agradeço imensamente,

Answer 3

Não entendi. Você já especificou o Item.To como uma variável do caminho onde os arquivos são salvos.

Desta forma, o anexo é salvo num diretório que depende da conta em que você está logado.

Poderia explicar melhor?

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 4

Não entendi. Você já especificou o Item.To como uma variável do caminho onde os arquivos são salvos.

Desta forma, o anexo é salvo num diretório que depende da conta em que você está logado.

Poderia explicar melhor?

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Obrigado pela atenção!

Como eu disse, esse código está funcionando e os arquivos são salvos na pasta criada pelo "item.To". Só que o "item. To" acaba gerando diversas pastas para um mesmo usuário do outlook, uma vez que cada remetente tem um cadastro particular do usuário.

Imagine um usuário chamado Roberto Carlos com uma conta [e-mail]. O "item.To" acaba gerando pastas como "robertão", "Roberto Carlos", "roberto fornecedor" e assim vai... Aí fica difícil administrar...

O que eu quero é que a pasta seja única, independentemente da informação para "item.To" trazido pelo e-mail. Se alguém mandar um e-mail para o [e-mail] do meu exemplo, todos os arquivos serão salvos na pasta. Pensei que no lugar de "item.To" pudesse existir algo como item.To.Account"... 

Será que deu pra entender?

Answer 5

Complementando... Quando o remetente inclui outras pessoas no campo "Para", o "item.To" cria uma pasta cujo nome é composto por todos os destinatários...

Answer 6

Use Item.Recipients(1).AddressEntry.GetExchangeUser.PrimarySmtpAd ao invés de Item.To

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 7

Boa tarde, Felipe.

Fiz a alteração conforme abaixo, mas deu o seguinte erro:

Erro em tempo de execução'91': A variável do objeto ou a variável do bloco 'With' não foi definida.

Será que falta algo?

Public Sub SalvarAnexo(Item As MailItem)
    Dim att As Attachment
    Dim strFile As String
    Dim strExt As String
    Dim strFolder As String
    
    For Each att In Item.Attachments
        If Not (LCase(Right(att.FileName, 3)) = "jpg") Then
            para = Item.Recipients(1).AddressEntry.GetExchangeUser.PrimarySmtpAd
            strFolder = "C:\ARQS_RECS_EMAIL\" & para & "\"
            On Error Resume Next
            MkDir strFolder
            On Error GoTo 0
            strFile = strFolder & Format(Item.CreationTime, "yyyymmdd_hhnnss_") & att.FileName
            att.SaveAsFile strFile
            On Error GoTo 0
        End If
    Next att
End Sub

Answer 8

Felipe, 

Será suficiente que o anexo seja salvo em uma pasta identificada pela conta de e-mail na qual o e-mail foi recebido.

Por favor, como eu faria no código para retornar a conta de e-mail?

Obrigado,

Answer 9

Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

---

para = Item.SenderMailAddress

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 10

Boa noite, Felipe.

Obrigado, mas agora deu o erro:

Erro em tempo de execução '438': O objeto não aceita esta propriedade ou método.

Answer 11

Apenas para complementar: meu outlook é o 2010.

Answer 12

Escrevi errado. O correto é: SenderEmailAddress

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 13

Acabei de resolver com:

para = Item.ReceivedByName

Obrigado mesmo assim! Suas dicas ajudaram na minha pesquisa.

Fui!