Über VBA prüfen, ob Notes geöffnet ist?

[Jörn]

 
Hallo Zusammen,
das ist mein erste Frage in diesem Forum. Ich bin gerade dabei, über VBA-Excel Notes anzusteuern. Da ich kein Spezailist in Notes-Script bin habe ich folgende Frage:

> wie prüfe ich, ob Notes (Progarmm) schon geöffnet ist?

> dies habe ich bis jetzt geschrieben:

Set session = createobject("Notes.Notessession")
Set db = session.getDatabase(usw......)
is db.open = true then
else
end if
>> bei dieser Schreibweise öffnet sich Notes und dass will ich aber nicht!

Was muss ich schreiben? Danke für eure Tipps

Grüsse
Jörn

[m3]

wie prüfe ich, ob Notes (Progarmm) schon geöffnet ist?

Ebenso, wie Du prüfst, ob Excel, Word, etc. schon offen sind.

[Axel]

In der Gegenrichtung mache ich das in der Regel so:

Code

...
		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
...

Ob's in VBA auch so funktioniert musst du testen. Eventuell ist die Fehlernummer eine andere.

Ansonsten würde mir spontan noch die WinAPI-Funktion FindWindow einfallen.


Axel

[Jörn]

Das funktioniert nicht so, wie ich es möchte. es erfolgt keine Fehlermeldung bzw. Notes öffnet sich!

Set ..= getobject(....

es muss doch was anderes geben?

[Axel]

Hier mal ein Beisp. zu FindWindow

http://www.vbarchiv.net/archiv/tipp_details.php?pid=389

Google auch mal nach FindWindow und VBA. Da gibt's noch mehr Infos.


Axel

[eknori]

http://atnotes.de/index.php?topic=3047.msg15300#msg15300

[Ralf_M_Petter]

Hm du willst nicht, dass sich der Notesclient öffent? Was bringt dir dabei eine Abfrage ob er bereits offen ist. Eventuell verwendest du das falsche tool. Wenn du im Hintergrund was machen willst, dann sollte man nicht OLE verwenden sondern COM verwenden. Dann sollte es auch im Hintergrund funktionieren.

Grüße

Ralf