Hallo Officer!
Also die Zeile wo du den GetDefaultFolders hast (sieht so aus)
Set objFolder = objOL.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
durch die Zeile ersetzen und Postfachname und UNterordner ersetzen
Set objFolder = objOL.GetNamespace("MAPI").Folders("Postfachname").Folders("Posteingang").Folders("Ordnername")
(FAlls kein Unterordner exisitiert, das letzte Folders rauslöschen)
Zur Fehlerfrage. Muss mich nachher mal in den Code einlesen, weil auf den ersten Blick sieht er gut aus. Wird die Meldung gleich am Anfang angezeigt? Wenn nicht, in welcher Zeile entsteht der Fehler (evtl. mit dem Debugger durchgehen)?
Melde mich nachher nochmal.
Gruß
|