Domino 9 und frühere Versionen > ND6: Entwicklung

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

(1/2) > >>

Jörn:
 :D
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:

--- Zitat ---wie prüfe ich, ob Notes (Progarmm) schon geöffnet ist?
--- Ende Zitat ---
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
...

--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite