VBA: Scarico allegati da Outlook cartelle in Archivio

[SigmaBeta]

Grazie ancore gibra.
Ho risolto cosìriporto solo ciò che ho variato)

    Dim Inbox as MAPIfolder
    Dim Inbox2 as MAPIfolder

    Set ns = Outlook.GetNamespace("MAPI")
    Set Inbox = ns.Folders.Item("Cartelle archivio")
    Set Inbox2 = Inbox.Folders.Item("Posta in arrivo")

Quindi il percorso risulta "\\Cartelle archivio\Posta in arrivo"
Prima non riuscivo perché credevo si potessero usare solo le costanti tipo olFolderInbox