Hallo zusammen,
ich habe folgende Aufgabe.
In Excel möchte ich per Knopfdruck Emails aus Outlook importiert haben.
Soweit klappt das auch wenn ich einen eigenen Ordner nehme.
Set OLF = GetObject("", "Outlook.Application") _
.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders(CStr(Range("C3")))

In der Range C3 kann ich nun ja den Namen vom Outlook ordner vergeben. Klappt auch. Nun habe ich aber einen Ordner in Outlook der geteilt ist. Ein Kolegge hat diesen geteil und ich habe den Ordner bei mir eingefügt. Nun ist das ganze nicht mehr in meinem Haupt Ordner drin sondern unter dem Namen von meinem Kolegen. Nun ist die Frage wie bekomme ich diese Email ausgelesen?
Folgendes habe ich schon versucht aber hat nicht geklappt.
'Set OutlookApp = New Outlook.Application
'Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
'Set objOwner = OutlookNamespace.CreateRecipient("xxxxxxxx@xxxxxxx.com")
'objOwner.Resolve
'
'If objOwner.Resolved Then
' Set OLF = GetObject("", "Outlook.Application") _
'.GetNamespace("MAPI").GetDefaultFolder(objOwner, olFolderInbox).Folders("test")
'Set testFolderItems = subfolder.Items
'End If
Meine Deklaration ist wie folgt.
Dim AnzEintraege As Integer, i As Integer, Email As Integer
Dim Loletzte As Long
Dim RngZ As Range
Dim RngY As Range
Dim TempStr As String
Dim BR206_LOPFolderItems As Outlook.Items
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim objOwner As Outlook.Recipient
natürlich sind da noch andere drin.
Hoffe Ihr könnt mir da irgendwie weiterhelfen.