ich such schon die ganze Zeit nach einem Makro, es soll geprüft werden,
ob Lotus Notes auf dem Rechner ist.
Wenn ja Makro weiter sonst kein Lotus Notes vorhanden.
Kann man evtl. auch prüfen welches Mail System installiert ist ?
mfg walli
Sub ReadRegistry()
Dim strRC As String
Dim objWSHShell As Object
Set objWSHShell = CreateObject("WScript.Shell")
strRC = objWSHShell.RegRead("HKEY_CURRENT_USER\Software\" _
& "Microsoft\MediaPlayer\Player\Skins\SkinX")
MsgBox strRC 'wenn strC leer ist, existiert das Prgramm nicht
Set objWSHShell = Nothing
End Sub
Gruß