Set Coduri = GetNS(olApp).Folders("1.CNA TEMPORAR INBOX SENT ALTE NEIMPORTANTE").Folders("PV MENTENANTA").Items