Dim objOutlook As Microsoft.Office.Interop.Outlook._Application
        Dim neuname As String
 
        objOutlook = New Microsoft.Office.Interop.Outlook.Application
        ' Dim mail As Microsoft.Office.Interop.Outlook.MailItem
        Dim kontakt As Microsoft.Office.Interop.Outlook.ContactItem
        ' mail = objOutlook.ActiveExplorer.Selection.Item(1)
        For i = 1 To 10
            kontakt = objOutlook.ActiveExplorer.Selection.Item(AccessibleName)
            ListBox1.Items.Add(kontakt)
        Next

www.Mortville.de