VBA Outlook, Zugriff auf Ordner

Computer: Software & Programmierung Visual Basic
#1

Hi Leute!
Ich kann VB recht gut, VBA in Outlook aber kaum. Mit dem Code Ordner.Items.Count bekomme ich die Anzahl an Objekten (z.B. Anzahl der Kontakte) in einem Ordner. Wie aber kann ich den auf einen Ordner zugreifen. Ich habe einen Kontakt-Ordner Namens „BS Nesletter 1“. Wie bekomme ich jetzt den Namen, bzw. das Objekt bei dem ich die Eigenschaft Items.Count bekomme??

Besten Dank für Hilfe
Patrick Ruhkopf

#2

Ich hoffe der Teil hilft:

 If Application.ActiveExplorer.Selection.Count \> 0 Then
 If Application.ActiveExplorer.Selection.Item(1).Class = olContact Then
 Set olItem = Application.ActiveExplorer.Selection.Item(1)
 txtAdressDaten.Text = olItem.FullName & vbCrLf
 If olItem.CompanyName "" Then txtAdressDaten.Text = txtAdressDaten.Text & olItem.CompanyName & vbCrLf & vbCrLf
 txtAdressDaten.Text = txtAdressDaten.Text & olItem.BusinessAddress & vbCrLf
 If olItem.BusinessTelephoneNumber "" Then txtAdressDaten.Text = txtAdressDaten.Text & vbCrLf & "Tel: " & olItem.BusinessTelephoneNumber
 If olItem.MobileTelephoneNumber "" Then txtAdressDaten.Text = txtAdressDaten.Text & vbCrLf & "Mobil: " & olItem.MobileTelephoneNumber
 If olItem.BusinessFaxNumber "" Then txtAdressDaten.Text = txtAdressDaten.Text & vbCrLf & "Fax: " & olItem.BusinessFaxNumber

 Else
 MsgBox "Es wurde kein Kontakt ausgewählt. Bitte wählen Sie einen Kontakt aus.", , "Fehler..."
 End
 End If
 Else
 MsgBox "Es sind keine Kontakte vorhanden.", , "Fehler..."
 End
 End If

Ralph