| Hjem | Hardware | Netværk | Programmering | software | Fejlfinding | systemer | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringssprog
  • Delphi programmering
  • Java programmering
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl programmering
  • Python Programming
  • Ruby Programming
  • Visual Basics Programmering
  •  
    Computer Viden >> Programmering >> Computer Programmeringssprog >> Content
    Sådan opdaterer Outlook Kontakter Med VBS
    Visual Basic eller VB er ​​et programmeringssprog , der kan bruges til at styre processer i Outlook. En liste over dine kontaktpersoner i Outlook kan opdateres automatisk ved hjælp af et VB script. Ting du skal
    Visual Basic editor
    Vis Flere Instruktioner
    1

    Åbn en Visual Basic-editoren .
    2

    Start et nyt projekt . i VB og tilføje følgende kode
    3

    Opret en ny subrutine og tilføje variabler til lagring af data : Hej

    Sub addtoOutlook ()

    Dim olkApp As Object

    Dim olkFldr As Object

    Dim olkContact As Object

    Dim myContactList som Object

    Const olFolderContacts As Integer = 10
    < p> Const olContactItem As Integer = 2

    Dim cel Som Range
    4

    Instantiere Outlook objekt i Visual Basic : Hej

    Set olkApp = CreateObject ( " outlook. ansøgning " )
    5

    Få alle kontakter fra Outlook og gemme dem i en variabel : Hej

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

    Loop gennem alle kontakter i den liste, du har eksporteret " myContactList ". Hvis den finder personer navn , vil det overskrive alle tre felter med data fra din liste. Hvis det ikke gør , så vil det skabe en ny post , og befolke de samme tre felter.

    Hver celle i myContactList
    p Hvis cel < > "" Så
    < p > Ved fejl Resume Next

    Set olkContact = Nothing

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

    On Error GoTo 0
    p Hvis olkContact Er Ingenting Så

    Set olkContact = olkFldr.items.Add ( olContactItem )

    End If

    olkContact
    < p> . efternavn = cel

    . firstname = cel.Offset (0, 1)

    . MobileTelephoneNumber = cel.Offset (0, 2)

    . Gem < br >

    End With

    End If

    Næste

    End Sub

    din Outlook kontaktliste vil nu blive opdateret med de seneste kontaktoplysninger fra din listen.

    Forrige :

    næste :
      Relaterede artikler
    ·Om Datalog 
    ·Hvad Er ETL værktøjer 
    ·Hvordan kan man øge ydeevnen for en Crystal Report , s…
    ·Sådan konfigureres en Outlook kalender Script 
    ·Hvordan til at skrive data Udtalelser 
    ·IDL programmering teknikker 
    ·Sådan Beregn Normal OpenGL 
    ·Sådan Hotlink Brug FBML 
    ·Sådan slettes en mappe i VB.Net 
    ·Fordele ved pegepinde 
      Anbefalede Artikler
    ·Sådan oprettes forbindelse til en hjemmeside med Visua…
    ·Sådan ændres en Grid 
    ·Sådan installeres RubyGems 
    ·Sådan bruges Stregkoder i Java 
    ·Hvordan at tilføje UserControl til PlaceHolder 
    ·Sådan oprettes og ødelægge ting 
    ·Sådan oprettes en session -ID i PHP 
    ·Hvordan laver man et array i VB6 
    ·Sådan Test for Mobile Automation 
    ·Tutorial om hvordan man programmerer en SQL 
    Copyright © Computer Viden http://www.computerdk.com