outlook hent kontaktpersoner

Function ReadContacts() As Boolean
Dim oApp As Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim oContacts As MAPIFolder
Dim oContact As Outlook.ContactItem

    On Error GoTo Proc_Err

    Set oApp = CreateObject("Outlook.Application")
    Set oNameSpace = oApp.GetNamespace("MAPI")
    Set oContacts = oNameSpace.GetDefaultFolder(olFolderContacts)
   
    For Each oContact In oContacts.Items
   
     
        Debug.Print oContact.FirstName
    Next
   
   
Proc_Exit:

    On Error Resume Next
       
    Set oContact = Nothing
    Set oContacts = Nothing
    Set oNameSpace = Nothing
    Set oApp = Nothing

   
    Exit Function

Proc_Err:

    Resume Proc_Exit
    Resume Next
End Function

fandt dette
Dim ol As New Outlook.Application
Dim ContactFolder As MAPIFolder

Private Sub Form_Load()
Set ContactFolder = _
    ol.GetNamespace(\"MAPI\").GetDefaultFolder _
        (olFolderContacts)
With ContactFolder.Items(1)
    Text1 = .FirstName
End With

have you tried my anser Niels? The example you gave is not 100% correct, it only shows teh first contact, once you get the code correct!

ja det er bedre.. men når jeg så har fundet den kontaktperson jeg vil bruge med:
    For Each oContact In oContacts.Items
   
     
        Debug.Print oContact.FirstName
    Next

så vil jeg gerne ændre oContact.FirstName til noget andet hvordan gør jeg det?

oContact.FirstName = "New Name"

ja skal bare lige huske oContact.save .. :)

hvordan ændre jeg informationen display name eller på dansk vist navn ?

Not sure if that is Full Name

oContact.FullName = "First Middle Last"

but havnet we answerd the original question ?

det er ikke fullname.. jo kan godt lave et nyt spm

OK and thanks.
Can you tell me which field it is in Outlook, I'm not quite sure!