Falai ai Fábio, blzera?
Então, quanto recebo um email com arquivos xml ou pdf ele salva os arquivos corretamente, mas se um fornecedor me manda um email com outro email dentro, no formato eml/msg e dentro deste eml tem os arquivos pdf ou xml ele não salva.
Eu consigui fazer com que ele salve o arquivo msg na minha pasta, ai desta forma eu pego este arquivo e arrasto para minha caixa de entrada e mando rodar novamente a função acima para baixar o pdf e xml, ai dá certo.
Porem tenho um outro problema, se tenho arquivos com o mesmo nome, ele não consegue salvar os dois arquivos, consegui um outro script conforme abaixo, colocando data, hora e segundo pensando que ia funcionar mais nada, eu precisaria de alguma função que
criasse no final do arquivo um codigo sequencial, exemplo "0001", "0002", por assim em diante, para conseguir salvar arquivos que estejam com o mesmo nome e no mesmo email, entendeu?
Ou se existisse na função time que vá até o milésimo de segundo também funcionaria, mas pelo que vi não existe esta função.
Public Sub ProcessarAnexo(Email As MailItem)
Dim DiretorioAnexos As String
Dim strDATAHORA As String
Dim NomeArquivo As String
DiretorioAnexos = "C:\fabio"
strDATAHORA = Right("0" & Day(Now), 2) & Right("0" & Month(Now), 2) & Year(Now) & _
" " & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
Dim MailID As String
Dim Mail As Outlook.MailItem
MailID = Email.EntryID
Set Mail = Application.Session.GetItemFromID(MailID)
i = 1
For Each Anexo In Mail.Attachments
If Right(Anexo.FileName, 3) = "msg" Then
NomeArquivo = Left(Anexo.FileName, Len(Anexo.FileName) - 4) & "_" & strDATAHORA & Right(Anexo.FileName, 4)
Anexo.SaveAsFile DiretorioAnexos & "\" & NomeArquivo
End If
Next
Set Mail = Nothing
End Sub
Sem mais, agradeço desde já, aguardo ansiosamente e fico a disposição.
