United States

Change

All Microsoft Sites

Microsoft Support

Identificativo articolo: 290792 - Ultima modifica: venerdì 24 novembre 2006 - Revisione: 6.2

Esportazione di elementi di Outlook in Microsoft Access a livello di programmazione

Visualizza i prodotti a cui si riferisce l?articolo.

Questo articolo è stato precedentemente pubblicato con il codice di riferimento I290792

Per la versione di questo articolo relativa a Microsoft Outlook 2000, vedere 253794 (http://support.microsoft.com/kb/253794/ ) .

In questo articolo vengono fornite informazioni generali e codice di esempio per importare le informazioni sui contatti di Outlook in una tabella di Access. Il codice di esempio riportato nella sezione "Ulteriori informazioni" di questo articolo deve essere eseguito da un modulo globale di Access. Il codice rappresenta il punto di partenza per lo sviluppo di una soluzione completa.

Torna all'inizio

Informazioni

Il comando Importazione ed esportazione di Outlook non consente di importare ed esportare informazioni in campi (o proprietà) definiti dall'utente. Per esportare informazioni da questi campi, potrebbe essere necessaria la creazione di una soluzione di programmazione che utilizzi l'automazione per convertire le informazioni.

NOTA: un'alternativa alla creazione di codice per l'esportazione dei campi definiti dall'utente consiste nell'aggiungere tutti i campi a una visualizzazione per tabella di Outlook. È quindi possibile selezionare tutti i dati e copiarli e incollarli in Microsoft Excel.

Il codice di esempio riportato di seguito consente di convertire le informazioni sui contatti di Outlook in righe di tabelle di un database di Access. Apportando le dovute modifiche, questo codice potrà essere utilizzato come base di partenza per importare altri tipi di elementi di Outlook, quali appuntamenti, note, attività e così via.

Sono inoltre disponibili una panoramica e un altro codice di esempio sul sito Web Microsoft al seguente indirizzo (informazioni in lingua inglese):

http://msdn2.microsoft.com/en-us/office/aa905351.aspx (http://msdn2.microsoft.com/en-us/office/aa905351.aspx)

Torna all'inizio

Considerazioni sulla programmazione

È necessario impostare un riferimento alla libreria di oggetti di Microsoft Outlook 10.0 e alla libreria di oggetti di Microsoft DAO 3.6.
In questo esempio sono utilizzati solo tipi di campi di testo sia in Access che in Outlook. Per convertire altri tipi di campi, modificare il codice di conseguenza.
Il codice di esempio fornito non include il codice per il controllo degli errori, necessario per un'applicazione di produzione.
Nel codice riportato di seguito si presuppone che i campi di Access siano impostati su Consenti lunghezza zero.

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presume che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare procedura, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze. Se si dispone di esperienza di programmazione limitata, si consiglia di contattare un Microsoft Certified Partner o la filiale Microsoft locale per informazioni sulla consulenza tecnica. Per ulteriori informazioni sui Microsoft Certified Partner, visitare il seguente sito Web Microsoft:

https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Per ulteriori informazioni sulle opzioni di supporto disponibili e su come contattare Microsoft, visitare il seguente sito Web Microsoft (informazioni in lingua inglese):

http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

Torna all'inizio

Codice di esempio

Sub ImportContactsFromOutlook()

   ' This code is based in Microsoft Access.

   ' Set up DAO objects (uses existing "tblContacts" table)
   Dim rst As DAO.Recordset
   Set rst = CurrentDb.OpenRecordset("tblContacts")


   ' 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!Address = c.BusinessAddressStreet
            rst!City = c.BusinessAddressCity
            rst!State = c.BusinessAddressState
            rst!Zip_Code = c.BusinessAddressPostalCode
            ' Custom Outlook properties would look like this:
            ' rst!AccessFieldName = c.UserProperties("OutlookPropertyName")
            rst.Update
         End If
      Next i
      rst.Close
      MsgBox "Finished."
   Else
      MsgBox "No contacts to export."
   End If

End Sub

Torna all'inizio

Riferimenti

Per ulteriori informazioni sull'importazione di dati da Access in Outlook, fare clic sul numero dell'articolo della Knowledge Base riportato di seguito:

290658 (http://support.microsoft.com/kb/290658/ ) OL2002: Importazione di elementi di Outlook da Microsoft Access a livello di programmazione

Per ulteriori informazioni sulle risorse disponibili e sulle risposte alle domande più frequenti relative alle soluzioni di Microsoft Outlook, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito:

287530 (http://support.microsoft.com/kb/287530/ ) OL2002: Domande relative ai moduli personalizzati e alle soluzioni di Outlook

Torna all'inizio

Le informazioni in questo articolo si applicano a

Microsoft Outlook 2002 Standard Edition
Microsoft Access 2002 Standard Edition

Torna all'inizio

kbdatabase kbexport kbprogramming kbvba kbhowto KB290792

Torna all'inizio

LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.