wie prüfe ich, ob Notes (Progarmm) schon geöffnet ist?Ebenso, wie Du prüfst, ob Excel, Word, etc. schon offen sind.
...
On Error Resume Next
Set objWord = GetObject("", "Word.Application")
If Err = 208 Then ' Fehler 208 tritt auf wenn Word noch nicht läuft
Err = 0
Set objWord = CreateObject("Word.Application")
End If
...