Moin!
Also soll nicht blöd klingen ist nur nochmal zum Absichern. Die MsgbOx war erst da, als alles weg war. War bei meinem Test in der VBE geblieben und da hat man es so nicht gesehen. Erst als ich fertig war und auf die Excelseite geklickt habe sah man es. Mit Breaktpunkt nach der Msgbox und klick auf Excel war die MsgBox schon dar die EMailsfenster aber auch noch. Also wie gesagt nur zur Absicherung.
Wenn das so ist, dann würde ich 2 Möglichkeiten vorschlagen.
1. in Zeile 103 ein
DoEvents
einfügen. Damit sollte das OS erstmal wartende Tasks bearbeiten (ggf. liegen die Mails deshalb noch rum).
oder
2. Das Abspeichern in eine extra SUB packen die wir zeitversetzt aufrufen. Bspw. 5 Sekunden nach Ende des Teils darüber. Dann sollte das OS auch noch Zeit haben sich um unsere Mails zu kümmern. bspw. so
Application.OnTime Now + 5/(24*60*60), "Mails_Abspeichern"
Probiere mal die 1. Variante. VG
|