ich habe 'mal wieder ein Problem damit VBA warten zu lassen.
Nachdem ich mit eurer Hilfe VBA warten lassen kann, wenn ich ein anderes Programm mit Shell aufrufe, gelingt mir dies in folgendem Fall nicht.
Ich muss nacheinander eine Email an 72 Kunden versenden, jeweils mit spezifischen Anhängen. Wenn ich das Makro ablaufen lasse werden in sekundenschnelle alle 72 Emails versendet und dann reagiert das Programm auf nichts mehr, tut aber irgendetwas im Hintergrund (das Versenden einer Email -ca. 800KB- dauert ja )
Mit WaitTillFinished und Konsorten bin ich nicht weiter gekommen.
Mein Code:
Set OutApp = CreateObject("Outlook.Application")
For n = 1 To 72
PathKunden = "C:\Test\K" & n
FileKunde = "K" & n & ".xls"
Empfaenger = "EgonF1@gmx.de"
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Empfaenger
.Subject = "Neue Mitteilung" & n
.Attachments.Add PathKunde & "\" & FileKunde
.send
End With
''' hier müsste das Programm jetzt warten, bis die Datei versendet wurde
Next
Set Nachricht = Nothing
Set OutApp = Nothing
Mache ich es vielleicht prinzipiell falsch?
Dazu noch die Frage:
Kann ich irgendwie feststellen, welche Programme (und deren TaskID) laufen. Dann könnte ich mir ja helfen.
Viele Grüße
Egon Franke