Aprire un editor di Visual Basic .
2
Avviare un nuovo progetto . in VB e aggiungere il seguente codice
3
Creare un nuovo sottoprogramma e aggiungere le variabili per la memorizzazione dei dati :
Sub addtoOutlook ( ) per
dim olkApp As Object dim
olkFldr As Object dim
olkContact As Object dim
myContactList come oggetto
Const olFolderContacts As Integer = 10
Const olContactItem As Integer = 2
Dim cel come gamma
4
un'istanza dell'oggetto di Outlook in Visual Basic :
olkApp = CreateObject ( " outlook . applicazione " ) economici 5
Ricevi tutti i contatti da Outlook e li memorizza in una variabile :
olkFldr = olkApp.Session.GetDefaultFolder ( olFolderContacts ) economici 6
il ciclo di tutti i contatti presenti nella lista che avete esportato " myContactList . " Se trova il nome delle persone , essa sovrascriverà tutti e tre i campi con i dati della vostra lista. Se non lo fa , allora si creerà una nuova voce e compilare gli stessi tre campi .
Per ogni cella myContactList
cel < > "" Then
On Error Resume Next
olkContact = Nothing Set
olkContact = olkFldr.items ( cel.Offset ( 0 , 1 ) & "" & CEL ) per
On Error GoTo 0
olkContact è niente allora
olkContact = olkFldr.items.Add ( olContactItem ) per
End If
olkContact
. cognome = cel
. Nome = cel.Offset ( 0 , 1 ) per
. MobileTelephoneNumber cel.Offset = ( 0 , 2 ) per
. Salva < br
End > con
End If
Avanti
End Sub
Il tuo elenco di contatti di Outlook viene ora aggiornato con le informazioni più contatto dalla elenco .
Programmazione © www.354353.com