VBA Outlook Set folder contact

Qui di seguito un frammento di codice riguardante VBA, per ottenere la cartella dei contatti in Outlook per il rilevamento dei dati.

Dim CartellaContatti As Outlook.Folder
 Set CartellaContatti = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)