[VB6] leggere contatti rubrica

[5tefano82]

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

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

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

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

[gibra]

Non hai instanziato l'oggetto principale Outlook.Application , ovvero dopo la dichiarazione:
Dim miaApplicazione As Outlook.Application

devi creare l'istanza dell'oggetto:
Set miaApplicazione = New Outlook.Application

Solo dopo potrai creare le istanze degli altri oggetti che da esso dipendono.

[5tefano82]

grazie 1000 ora funziona

un ultima cosina^^ per vedere se funzionava ho provato a stampare gli indirizzi mail (usando mioContatto.Email1Address) di tutti i miei contatti in un msgbox ma ho visto che a volte stampa l'indirizzo ma altre una cosa strana del tipo:
/O=Nethold/UO=XXXX/cn=Recipients/cn=XXXXXX

piu precisamente se creo un nuovo contatto e inserisco io il suo indirizzo mail non c'e problema , invece se li salvo ad esempio da una mail che mi arriva da quella strana stringa.

mbo