Hente data fra Exchange til Word

Har måske fundet en på msdn:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dninvb00/html/ivb0076.asp

Men ved ikke om jeg kan få det til at virke endnu

Nå, det fatter jeg ikke meget af. Anybody help?

Fik den til at virke, men den hente kun data fra clientens kontaktpersoner, og ikke fra serveren, hvilken jeg skal bruge. Ellers kunne den godt være brugt, så skulle brugeren bare finde sig selv i rullemenuen.

Er der ikke bare én, som ved hvordan man får fat i Exchange' brugerinfo fra Word via VB(A)?

Intet problem, vender tilbage senere :-)

/Christian
ck@officekonsulenterne.dk

Jeg har nu selv fundet ud af hvordan jeg kommer i kontakt med AD ud fra dette eksempel

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adsi/adsi/accessing_active_directory_using_visual_basic.asp

Men jeg kunne egentlig godt tænke mig en oversigt over de forskellige funktioner, altså hvad hedder f.eks. email. Så hvis der er en side, hvor de lige står på, så vil jeg være glad.

Hmmm, sådan en oversigt kender jeg ikke ummidelbart...

Øv, men du kan sikkert hjælpe med at få data over i f.eks. en drop-down menu. Jeg havde tænkt mig, at man bare så navnet på personen, og at de resterende data før blev vist når det kommer "på papir".

Ja det kan jeg sikkert sagtens:-) Men det er nok noget der tager lidt tid, men hvis du vil have hjælp til det skal du da være velkommen til at smide en mail på ck@officekonsulenterne.dk så skal jeg kigge lidt på omfanget af det

Will do

Okay, jeg har nu følgende kode.

I ThisDocument
Private Sub Document_New()
    ' Finder brugernes navne og indsætter dem i combobox1
    startBoks.find_bruger
   
    ' Viser indtastningsformen
    startBoks.Show
End Sub

I startBoks (min form)
Sub find_bruger()
' Create the connection and command object.
Set oConnection1 = CreateObject("ADODB.Connection")
Set oCommand1 = CreateObject("ADODB.Command")
' Open the connection.
oConnection1.Provider = "ADsDSOObject"  ' This is the ADSI OLE-DB provider name
oConnection1.Open "Active Directory Provider"
' Create a command object for this connection.
Set oCommand1.ActiveConnection = oConnection1

' Compose a search string.
oCommand1.CommandText = "select name,telephoneNumber " & _
"from 'LDAP://domæne" & _
"WHERE objectCategory='Person'" & _
"AND objectClass='user'" & _
"AND department=100" & _
"OR department=210" & _
"OR department=220" & _
"OR department=230" & _
"OR department=300" & _
"OR department=310" & _
"OR department=400" & _
"OR department=410" & _
"OR department=700"

' Execute the query.
Set rs = oCommand1.Execute
'--------------------------------------
' Navigate the record set
'--------------------------------------

While Not rs.EOF
    startBoks.ComboBox1.AddItem rs.Fields("Name")
    'Debug.Print rs.Fields("Name") & " , " & rs.Fields("telephoneNumber")
    rs.MoveNext
Wend

End Sub

Gemmer jeg som en skabelon og derefter åbner den via "Nyt Office Dokument", så bliver combo-boksen udfyldt. Men hvis jeg bare tester den via VB, så blvier den ikke udfyldt, mærkeligt for det gjorde den en enkelt gang.

Nå, men jeg vil jo så gerne have, resten af userinfo fra AD af den valgte bruger med over i Word, når jeg klikker på "opret brev".

Så jeg skal altså have fat i de ekstra oplysninger, for den i comboboksen valgte person, og så lægge den over i et felt i Word

lukketid