Πώς να ενημερώσετε τις επαφές του Outlook με VBS

Visual Basic ή VB είναι μια γλώσσα προγραμματισμού που μπορεί να χρησιμοποιηθεί για τον έλεγχο των διαδικασιών στο Outlook . Μια λίστα επαφών του Outlook μπορούν να ενημερώνονται αυτόματα χρησιμοποιώντας μια δέσμη ενεργειών VB . Τα πράγματα που θα χρειαστείτε
Visual Basic editor
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε ένα πρόγραμμα επεξεργασίας της Visual Basic . 2

Ξεκινήστε ένα νέο έργο σε VB και προσθέστε τον παρακάτω κώδικα
εικόνων 3

Δημιουργήστε μια νέα υπορουτίνα και να προσθέσετε τις μεταβλητές για την αποθήκευση των δεδομένων : .

Sub addtoOutlook ( )

Dim olkApp As Object

Dim olkFldr As Object

Dim olkContact As Object

Δημ. myContactList ως αντικείμενο

Κωνστ olFolderContacts As Integer = 10

Σταθ olContactItem As Integer = 2

Dim cel Όπως Σειρά
4

Υπόσταση του αντικειμένου του Outlook σε Visual Basic :

Set olkApp = CreateObject ( " προοπτική . αίτηση ")
5

Πάρτε όλες τις επαφές από το Outlook και να τις αποθηκεύσετε σε μια μεταβλητή :

Set olkFldr = olkApp.Session.GetDefaultFolder ( olFolderContacts )
Η 6

Loop μέσω όλων των επαφών στη λίστα που έχετε να εξαχθούν " myContactList . " Αν διαπιστώσει το όνομα των προσώπων , που θα αντικαταστήσει τα τρία πεδία με τα στοιχεία από τη λίστα σας . Αν δεν το κάνει τότε θα δημιουργήσει μια νέα εγγραφή και να συμπληρώσετε τα ίδια τρία πεδία .

Για κάθε κελί myContactList

Αν cel <> " " Τότε

On Error Resume Next

Set olkContact = Τίποτα

Set olkContact = olkFldr.items ( cel.Offset ( 0 , 1 ) & "" & cel )

On Error GoTo 0

Αν olkContact δεν είναι τίποτα τότε

Set olkContact = olkFldr.items.Add ( olContactItem )

End If

Με olkContact

. lastname = cel

. firstname = cel.Offset ( 0 , 1 )

. MobileTelephoneNumber = cel.Offset ( 0 , 2 )

. Αποθήκευση

End With

End If

Επόμενο

End Sub

Outlook λίστα επαφών σας θα πρέπει τώρα να ενημερωθεί με τις τελευταίες πληροφορίες επαφής από σας κατάλογο.
Η
εικόνων