Hallo,
ich möchte gerne eine Adresse von einem ganz bestimmten Outlook-Kontakt auslesen.
Private Sub lstName\_Click()
Dim lstindex As Integer
Dim ePos
Dim sName As String
Dim Appol As New OUtlook.Application
Dim KontakteOrdner As MAPIFolder
Dim itm As OUtlook.ContactItem
Set KontakteOrdner = Appol.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
'Nachname auslesen
ePos = 1
lstindex = lstName.ListIndex
ePos = InStr(ePos, LCase$(lstName.List(lstindex)), ", ") - 1
sName = Mid$(lstName.List(lstindex), 1, ePos)
'Kontakt Filtern
Set itm = Appol.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items.Find("[LastName] = """ + sName + """")
For Each itm In KontakteOrdner.Items
Me.txtAddress = itm.HomeAddress
Next
End Sub
Das ganze soll so funktionieren, dass man in das Listenfeld klickt und dann der Nachname ausgelesen wird. Mithilfe des Nachnamen soll dann die Adresse in einem Textfeld ausgegeben werden.
Mit dem Quelltext klappt das nicht.
Was muss ich ändern???
Danke für eure Hilfe
Pascal