ciao,

avrei la necessita di leggere la lista dei miei contatti di outlook con un programmino vb6 e cercando nel forum ho trovato in una vecchia discussione questo codice


codice:
Dim miaApplicazione As Outlook.Application
Dim mioSpazio As Outlook.NameSpace
Dim CartellaContatti As Outlook.MAPIFolder
Dim mieiContatti As Outlook.Items
Dim mioContatto As Outlook.ContactItem

Sub CommandButton1_Click()

 Set mioSpazio = miaApplicazione .GetNameSpace("MAPI")
 Set mieiContatti = mioSpazio.GetDefaultFolder(olFolderContacts).Items
 For Each mioContatto in mieiContatti
	MsgBox mioContatto.Name
 Next

End Sub
direi che fa al caso mio, ho apportato solo una piccola modifica cioe ho messo tutto nel sub

codice:
Sub CommandButton1_Click(
Dim miaApplicazione As Outlook.Application
Dim mioSpazio As Outlook.NameSpace
Dim CartellaContatti As Outlook.MAPIFolder
Dim mieiContatti As Outlook.Items
Dim mioContatto As Outlook.ContactItem

 Set mioSpazio = miaApplicazione .GetNameSpace("MAPI")
 Set mieiContatti = mioSpazio.GetDefaultFolder(olFolderContacts).Items
 For Each mioContatto in mieiContatti
	MsgBox mioContatto.Name
 Next

End Sub
ovviamente ho importato nei riferimenti la libreria microsoft outlook 11.0 object library

purtroppo però quando faccio partire il programma e chiaccio il bottone mi da questo errore:

errore di runtime 91
variabile oggetto o variabile del blocco with non impostata
debuggando mi evidenzia la riga

codice:
Set mioSpazio = miaApplicazione.GetNamespace("MAPI")
qualcuno sa di cosa si tratti e puo darmi dei consigli?


ps il risultato finale dovrebbe riempire una lista vuota nel form con tutti i contatti che ha l'utente in rubrica

grazie anticipatamente