Salvar automaticamente e-mails com anexos. Como corrigir falha que sobrescreve, pois recebo muitos e-mails com arquivo de mesmo nome?

Olá, será que alguém conseguem me ajudar por favor? Eu consegui colocar tanto o script bem como a regra para baixar automaticamente no Microsoft Outlook, só tem uma coisa; muitas vezes eu recebo um arquivo com o mesmo nome, exemplo (log.txt.zip) porém é claro que são de dias diferentes, só que como eu recebo sempre o arquivo com mesmo nome ele nunca vai manter todos os arquivo irá salvar na pasta somente um arquivo, ele irá trocar pelo último recebido eu precisa que log.txt.zip  pudesse ser salvo com alguma variável antes do seu nome tipo 001 ou até mesmo a data e hora - log.txt.zip

é possível, vou deixar aqui o script que estou usando.

----

Public Sub ProcessarAnexo(Email As MailItem)

    Dim DiretorioAnexos As String

    DiretorioAnexos = "C:\Disk Serv.U (ANEXOS)\"



    Dim MailID As String

    Dim Mail As Outlook.MailItem



    MailID = Email.EntryID

    Set Mail = Application.Session.GetItemFromID(MailID)



    For Each Anexo In Mail.Attachments

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



            Anexo.SaveAsFile DiretorioAnexos & Anexo.FileName

        End If

    Next



    Set Mail = Nothing

End Sub

----

E aproveitando a oportunidade se não for abusar muito como eu poderia fazer com este mesmo script
para baixar outra extensão junto, exemplo quero BAIXAR todos os arquivos ZIP e XML.