none
Como criar uma pasta que seu nome seja o dia do recebimento de um e-mail? RRS feed

  • Pergunta

  • Public Sub ProcessarAnexo(Email As MailItem)
     Dim DirAnexo1 As String
     Dim strRem As String
     Dim strDataHoje As String
     Dim MailID As String
     Dim Mail As Outlook.MailItem
     
     DirAnexo1 = "C:\XML"
       
     MailID = Email.EntryID
     Set Mail = Application.Session.GetItemFromID(MailID)
      
      
     'strDataHoje = Format(Mail.CreationTime, "yyyymmdd")       '?????????
     'strDataHoje = Mail.ReceivedTime                           '?????????
     strRem = Mail.SenderEmailAddress
     
      For Each Anexo In Mail.Attachments
      If Right(Anexo.FileName, 3) = "xml" Then
       If Dir(DirAnexo1 & "\" & strRem & "\" & strDataHoje, vbDirectory) = "" Then
        MkDir DirAnexo1 & "\" & strRem & "\" & strDataHoje
        Anexo.SaveAsFile DirAnexo1 & "\" & strRem & "\" & strDataHoje & "\" & Anexo.FileName
       Else
        Anexo.SaveAsFile DirAnexo1 & "\" & strRem & "\" & strDataHoje & "\" & Anexo.FileName
       End
     
     Next
     Set Mail = Nothing
    End Sub

    Tenho o código acima montado, mas preciso que no script pegue a data do e-mail recebido e crie uma pasta,

    com o nome do anomesdia do recebimento.

    'strDataHoje = Format(Mail.CreationTime, "yyyymmdd")       '?????????
    'strDataHoje = Mail.ReceivedTime                                '?????????

     Já testei com estas duas linhas, mas sem sucesso, o que tem de errado?

    Teria de salvar assim:

    C:\XML\nome@empresax.com.br\20130717\6387456928375683475896358.xml

    Agradeço desde já a colaboração.

    Atenciosamente,

    Diego 

    quarta-feira, 17 de julho de 2013 20:44

Respostas

  • Na hora de criar as pastas, faça algo como:

    On Error Resume Next
    MkDir DirAnexo1
    MkDir DirAnexo1 & "\" & strRem
    MkDir DirAnexo1 & "\" & strRem & "\" & strDataHoje
    On Error GoTo 0

    Dessa forma, você elimina a necessidade de se usar Dir.


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

    terça-feira, 23 de julho de 2013 22:39
    Moderador