Hallo Officer!
Hört sich interessant an. :-) Und nach der Bestätigung der Meldung läuft das Makro problemlos und macht auch das was es soll?
1. Wenn ja, würde ich vermuten, dass das Objekt objOL nicht rechtzeitig vorliegt - ansonsten könnte man ja auch später nicht drauf zugreifen. Habe das manchmal beim Zugriff auf Objekte im IE, wenn sich die Seite nicht schnellgenug aufbaut. Vllt. (warum auch immer) baut sich die Instanz von Outlook nicht schnellgenug auf. Probiert mal , was passiert wenn vor der ominösen Codezeile das hier steht.
Application.Wait (Now + TimeValue("0:00:05"))
Damit wartet das Marko 5 Sekunden bevor es weiter macht. Vllt. reicht das dem Computer um CreateObjekt abzuschließen und das objOL zu erzeugen.
2. Falls der Code nach der Bestätigung nicht laufen sollte, nochmal schauen, ob der Kollege von seinem Account auch auf "Crystal_aktuell" zureifen kann (darf) bzw. das richtig geschrieben ist (Unterstrich oder Leerzeichen). Wenn das alles passt, mal gestaffelt alles durchgehen. Also so wie im Anhang (das kannst du auch mal testen, wenn Punkt 1 nicht klappt). Vllt. taucht dann bei einem der Set die NAchricht wieder auf. Dann wüßte man, wo man weiter dran arbeiten kann Dazu die Zeile
>> Set objFolder = objOL.GetNamespace("MAPI").Folders("RGB1.qualitaetsicherung@syncreon.com").Folders("Inbox").Folders("Crystal_aktuell") <<
ersetzen durch.
dim test, test2, test3, test4
Set test = objOL.GetNamespace("MAPI")
Set test2 = test.Folders("RGB1.qualitaetsicherung@syncreon.com")
Set test3 = test2.Folders("Inbox")
Set test4 = test3.Folders("Crystal_aktuell")
Set objFolder = test4
Also wie gesagt, nur wenn ihr Zeit habt. Ansonsten halt auf nem andern Account anmelden - wenn das auch geht.
Viele Grüße
|