Hallo!
Also die Konstanten wie olFolderInbox sind nur für die Standartfächer des angemeldeten Nutzers festgelegt. Für mehr Wissen dazu hier mal drei Links
generell zu den Postfächern (Folders)
https://msdn.microsoft.com/de-de/library/office/ff863890.aspx
zur Methode GetDefaultFolder (wo die Konstanten eingesetzt werde)
https://msdn.microsoft.com/de-de/library/office/ff866724.aspx
hier die Erklärung zu den Konstanten
https://msdn.microsoft.com/de-de/library/office/ff861868.aspx
Sind nur 3 Seiten zum Lesen aber helfen vllt. für das Hintergrundwissen.
Soweit allgemein. Falls man auf andere Ordner bzw. andere Postfächer zugreifen will, kann man die Konstanten nicht nutzen. Entweder man durchläft dann die einzelnen Folder - Elemente und "hangelt" sich daran runter bis zum gewünschten Ordner (den man wohl kennt) oder (was am besten ist :-) ) man kennt schon die Ordner und greift direkt drauf zu. Ich gehe mal von letzterem aus, dann ist es einfacher und bei der ersten Variante muss man ja auch zumindest den (letzten) Zielordner kennen.
Um auf einen best. Ordner zuzugreifen musst du folgendes Chema befüllen.
GetNamespace("MAPI").Folders(Postdachname).Folders(Unterordner).Folders(UnterUnterordner).usw
In deinem Fall würde ich die Zeile 51 so ändern (Postfachname und den Ordnernamen noch anpassen bzw. tifer hangeln). Der Rest vom Makro würde so bleiben können. Das hätte auch noch den Vorteil, dass es noch funktioniert, wenn mehrere Postfächer da sind und du nicht auf den Standart zugreifst. Postfachname ist entweder ein def. Kürzel oder die EMAILAdresse. Dies kannst du auch mit Variablen zuweisen.
Set objFolder = objOL.GetNamespace("MAPI").Folders("Postfachname").Folders("Posteingang").Folders("Ordnername")
Das sollte eigentlich klappen. Wenn nicht nochmal melden.
Gruß Matthias
|