Hvem er logget ind

Sub Bruger()
Dim wshNetwork, BrugerNavn As String, Domain As String, DennePc As String
Set wshNetwork = CreateObject("WScript.Network")
BrugerNavn = wshNetwork.UserName
Domain = wshNetwork.userdomain
DennePc = wshNetwork.ComputerName
End Sub

Hvis jeg lave en debug.print på de 3, så returnerer den false

Hvis brugeren er på netværk, så skulle det virke

hvis det er brugeren af officepakken, så er det

Bruger = Application.UserName

Ahh, det var fordi jeg åbenbart ikke kan debug.print på f.eks. brugernavn i samme linie, som hvor den bliver oprettet. Nå nu skal jeg så bare have fundet brugeren i min drop-down

Okay, jeg har følgende stump kode, som indsætter data i drop-down.

Hvordan skal jeg få den til at pre-selecte brugeren som er logget ind?

Det må være noget med

if brugernavn = rs.Fields("sAMAccountName") then
drop-down.selected

While Not rs.EOF
    startBoks.cbAfsender.AddItem rs.Fields("name")
   
    Debug.Print rs.Fields("sAMAccountName")
    'Debug.Print rs.Fields("name") & ", " & rs.Fields("telephoneNumber") & ", " & rs.Fields("mail") & ", " & rs.Fields("title") & ", " & rs.Fields("facsimileTelephoneNumber") & ", " & rs.Fields("mobile") & ", ---- " & rs.Fields("distinguishedName")
    rs.MoveNext
Wend

Nu skriver du drop-down, mener du en combobox ?, som er placeret på siden

ja

For i = 0 To ComboBox1.ListCount - 1
If ComboBox1.List(i) = brugernavn Then
ComboBox1.ListIndex = i
Exit For
End If
Next

men jeg har ikke brugernavn i combobox, der har jeg kun det fulde navn

Kan du ikke tage det med som en ekstra kolonne, men så holde den skjult. ??

jo, det kunne jeg vel godt, men synes bare det er lidt fusk

øh, hvordan skjuler jeg den?

Du sætter bare kolonnebredden til 0, på den der skal skjules

hvordan?

ja, undskyld, men jeg kender meget lidt til VB, og kan ikke rigtigt finde en hjemmeside, der kort fortæller hvad egenskaber der er og hvordan de kan bruges.

Doh, jeg har vist fået en hjerneblødning.

Jeg hiver jo brugernavnet ud via min select, så jeg udvidede min udfyldning af combobox, så når de 2 brugernavn var ens, så udfører den dit forslag. Jeg måtte dog også lige lowercase navnet for at være sikker.

While Not rs.EOF
    startBoks.cbAfsender.AddItem rs.Fields("name")
    If LCase(user) = LCase(rs.Fields("sAMAccountName")) Then
        For i = 0 To cbAfsender.ListCount - 1
            If cbAfsender.List(i) = rs.Fields("name") Then
                cbAfsender.ListIndex = i
                Exit For
            End If
        Next
    End If
   
    rs.MoveNext
Wend

Læg et svar, måske kunne jeg også få dig til at kigge på følgende spørgsmål, som skal bruges til samme projekt.

http://www.eksperten.dk/spm/697441

Når brugeren har skrevet brevet, og klikker på opret, så skal den indsætte den i comboboxen valgt persons kontaktdata i AD i Word, phyyy. Gnidret sætning

Det blive nok først i næste uge, jeg får tid, skal til møde nu

Det er fint nok