Zweites Postfach in Outlook anwählen

Guten Tag
Ich versuche, mittels folgendem Code in meinem Outlook 2010 auf einen Ordner "Bestellungen" zuzugreifen, welcher als Unterordner des Postfachs "Email-Postfach2" fungiert.
D.h. ich habe in meinem Outlook 2 Postfächer sichtbar. Postfach1 und eben das Postfach "Email-Postfach2"
Wenn ich einen Ordner "Bestellungen" in mein Postfach1 anlege, so kann ich mittels des untenstehendem Codes problemlos darauf zugreifen.
Wie müsste ich den Code anpassen, damit ich auch dann auf den Ordner "Bestellungen" zugreifen kann, wenn dieser Ordner sich nicht im Postfach1 sondern im Email-Postfach2 befindet ?
Besten Dank für Eure Hilfe !
Sub OutlookPosteingang()
'Variablen-Deklaration
'---------------------
Dim lngIndex As Long, lngCur As Long, lngCount As Long, lngRow As Long
Dim olApp As Outlook.Application
Dim olVerz As Outlook.MAPIFolder
On Error Resume Next 'allfällige Fehler werden ignoriert
'Set-Zuweisungen
'--------------------------------------------
Set olApp = CreateObject("Outlook.Application")
Set olVerz = olApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox).Folders("Bestellungen")

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Pascal,
versuch es mal so:


Sub OutlookPosteingang()
'Variablen-Deklaration
Dim lngIndex As Long, lngCur As Long, lngCount As Long, lngRow As Long
Dim olApp As Outlook.Application
Dim olVerz As Outlook.MAPIFolder, olSubVerz1 As Outlook.MAPIFolder, olSubVerz2 As Outlook. _
MAPIFolder
'Während der Testphase sollte man auf darauf verzichten
'On Error Resume Next 'allfällige Fehler werden ignoriert
'Set-Zuweisungen
Set olApp = CreateObject("Outlook.Application")
For Each olVerz In olApp.GetNamespace("Mapi").Folders
If olVerz.Name = "Email-Postfach2" Then
Set olSubVerz1 = olVerz
Exit For
End If
Next olVerz
If Not olSubVerz1 Is Nothing Then
For Each olVerz In olSubVerz1.Folders
If olVerz.Name = "Bestellungen" Then
Set olSubVerz2 = olVerz
Exit For
End If
Next olVerz
End If
If Not olSubVerz2 Is Nothing Then
MsgBox olSubVerz1.Name & " - " & olSubVerz2.Name & " - " & olSubVerz2.Items.Count
'Deine weiteren Maßnahmen
Else
MsgBox "kein Postfach bzw. Postfach-Ordner gefunden!", vbCritical Or vbSystemModal
End If
Set olSubVerz2 = Nothing
Set olSubVerz1 = Nothing
Set olVerz = Nothing
olApp.Quit
Set olApp = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Zweites Postfach in Outlook anwählen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zweites Postfach in Outlook anwählen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread