[VBA/OFFICE]: Estrazione contatti outlook

[sammy286]

Ciao a tutti!

C'è qualcuno che può essermi d'aiuto in questo problema?
Devo trovare un modo per esportare i contatti di MS Outlook 2003 in una tabella MS Access 2003 tramite uno script in Visual Basic Script...

Io non riesco proprio a trovare il modo di leggere i contatti outlook tramite script...

Se qualcuno può darmi una mano...ringrazio tanto tanto!!!

[sammy286]

Ho trovato uno script da applicare come modulo in Access che me lo consente....ma è possibile usarlo esternamente ad Access?
Intendo...scrivere un programmino che mi permette di fare come richiesta senza però dover aprire Access ogni volta?Insomma...lanciarlo esternamente ad Access?

Please...qualcuno può essermi d'aiuto?
Qst è il codiche che ho io:

Sub ImportContactsFromOutlook()
   ' Set up DAO objects (uses existing "tblContacts" table)
   Dim rst As DAO.Recordset
   Set rst = CurrentDb.OpenRecordset("Contatti")
   ' Set up Outlook objects.
   Dim ol As New Outlook.Application
   Dim olns As Outlook.NameSpace
   Dim cf As Outlook.MAPIFolder
   Dim c As Outlook.ContactItem
   Dim objItems As Outlook.Items
   Dim Prop As Outlook.UserProperty
   Set olns = ol.GetNamespace("MAPI")
   Set cf = olns.GetDefaultFolder(olFolderContacts)
   Set objItems = cf.Items
   iNumContacts = objItems.Count
   If iNumContacts <> 0 Then
      For i = 1 To iNumContacts
         If TypeName(objItems(i)) = "ContactItem" Then
            Set c = objItems(i)
            rst.AddNew
           rst!FirstName = c.FirstName
            rst!LastName = c.LastName
            rst.Update
         End If
      Next i
      rst.Close
      MsgBox "Finished."
   Else
      MsgBox "No contacts to export."
   End If
End Sub