Ako aktualizovať kontakty aplikácie Outlook s vbs

Visual Basic alebo VB je programovací jazyk , ktorý možno použiť na kontrolu procesov v programe Outlook . Zoznam kontaktov programu Outlook možno aktualizovať automaticky pomocou VB skriptu . Veci , ktoré budete potrebovať
editore jazyka Visual Basic
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte aplikáciu Visual Basic Editor .
2

Spustenie nového projektu vo VB a pridajte nasledujúci kód
3

Vytvoriť nový podprogram a pridajte premenné pre uloženie dát : .

Sub addtoOutlook ( )

Dim olkApp As Object

Dim olkFldr As Object

Dim olkContact ako objekt

Dim myContactList ako objekt

const olFolderContacts As Integer = 10

Const olContactItem As Integer = 2

Dim ciel ako rozsah
Stránka 4

inštanciu objektu programu Outlook v aplikácii Visual Basic :

Set olkApp = CreateObject ( " výhľad . aplikácia " )
5

Získajte všetky kontakty z aplikácie Outlook a ukladať ich do premennej :

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

slučka cez všetky kontakty v zozname , ktorý sa vyváža " myContactList . " Ak sa zistí , že meno osoby , prepíše všetky tri polia s dátami z vášho zoznamu . Ak tomu tak nie je , potom sa vytvorí nový záznam a naplniť tri rovnaké polia .

Pre každú bunku v myContactList

ciel < > " " Tak

On Error Resume Next klipart

Set olkContact = Nothing

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

On Error GoTo 0

Ak olkContact nie je nič Potom

Set olkContact = olkFldr.items.Add ( olContactItem )

End If

S olkContact

. priezvisko = ciel

. krstné meno = cel.Offset ( 0 , 1 )

. MobileTelephoneNumber = cel.Offset ( 0 , 2 )

. Uložiť

End With

End If

Ďalšie

End Sub

Váš zoznam kontaktov programu Outlook bude teraz aktualizovaný s najnovšími kontaktné informácie z vášho zoznam .

• Predchádzajúca strana: Aký je rozdiel medzi XSL a XSD 
• Ďalšia strana: Ako Host ASP NET webové služby Mimo IIS .