Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage Lotus Notes vorhanden ?

Forumthread: Abfrage Lotus Notes vorhanden ?

Abfrage Lotus Notes vorhanden ?
walli
Hallo zusammen,
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
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Abfrage Lotus Notes vorhanden ?
08.04.2010 14:35:22
Björn
Hallo,
nur so als Ansatz...
Wenn es ein Standard Verzeichnis von Notes gibt, könnte man das suchen...
Problem: das ist dann nicht hundertprozentig, der User kann es ja auch in ein anderes Verzeichnis kopiert haben.
Die Datei notes.exe suchen (keine Ahnung, ob die wirklich so heißt, aber das kann man ja rausfinden).
Problem: ist nicht gerade Performance-schonend...
Vielleicht hilft es dir ja ein bisschen weiter.
Gruß
Björn B.
Anzeige
Ja nur zum Teil...
08.04.2010 15:20:49
walli
Hallo Björn,
danke für den Tip.
Auf den Rechner vom User also immer auf "C" ist Lotus
installiert.
mfg walli
AW: Ja nur zum Teil...
08.04.2010 19:34:15
JoWE
Hallo,
eine weitere Möglichkeit wäre es, die Registry abzufragen. Vermutlich wird Lotus Notes in die Registry eingetragen. Höchstwahrscheinlich in HKEY_CURRENT_USER\Software\Lotus etc. (mußt Du mit REGEDIT prüfen!). Hier wird es in irgendeinem Schlüssel irgendeinen Wert geben, den man abfragen kann (einen solchen Wert mußt Du kennen um ihn abzufragen). Im folgenden Beispiel frage ich den Wert 'SkinX' für den MediaPlayer ab. Sofern das Ergebnis nicht leer ist, ist der Mediaplayer vorhanden. 
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ß
Jochen
Anzeige
AW: Ja nur zum Teil...
09.04.2010 11:25:18
walli
Gute Morgen Jochen,
habe mal unter XP getestet, Fehlermeldung.
Obwohl vorhanden, ferner kam Hinweis;
\SkinX") nicht vorhanden, stimmt auch, habe kontr. .
Unter Windows 7 zeigt 128 an weiß es nicht zu deuten,
mfg walli
AW: Ja nur zum Teil...
09.04.2010 11:25:33
walli
Gute Morgen Jochen,
habe mal unter XP getestet, Fehlermeldung.
Obwohl vorhanden, ferner kam Hinweis;
\SkinX") nicht vorhanden, stimmt auch, habe kontr. .
Unter Windows 7 zeigt 128 an weiß es nicht zu deuten,
mfg walli
Anzeige
AW: Hey, das war ein Beispiel...
09.04.2010 13:21:48
JOWE
Schau an, wenn dort der Wert 128 ausgegeben wird, scheint der Wert für den Schlüssel SkinX vorhanden zu sein. Somit logischerweise auch die Software Media Player.
Wenn ein Fehler auftritt obwohl die Software vorhanden ist, könnte der Schlüssel anders heißen oder auch in einem anderen Zweig der Registry stehen. Bei mir kommt unter XP mit meinem Codebeispiel der Wert 873 heraus. Was das bedeutet ist mit für die Aufgabenstellung wuscht, ich wollte ja nur prüfen ob der Mediaplayer installiert ist - und da es den Wert gibt, ist sicher, dass der Player vorhanden ist.
Es ist für Deine Aufgabenstellung daher sicherzustellen, daß Du einen Wert abfragst, der bei einer korrekten Lotus Notes Installation in jedem FAll vorhanden sein muss.
Du hattest vorausgeschickt, dass zu prüfen ist, ob Lotus Notes auf einem PC vorhanden ist.
Demzufolge solltest Du zunächst auf einem PC mit Lotus Notes einen abzufragenden Wert in der Registry identifizieren, diesen dann in meinen Beispielcode übetragen und testen.
Wenn Du diesen dann postiv verlaufenen Test an einem PC ohne Lotus Notes wiederholst, wird der Code entweder einen leeren String oder eine Fehlermeldung liefern. Dies nutzt Du dann in einer zu erstellenden Fehlerroutine im Code. Damit müßte Deine Aufagbenstellung gelöst sein.
Jochen
Anzeige
Danke für die Info ! -)
10.04.2010 13:23:16
walli
Hallo Jochen,
danke für die Tips.
Werde das so mal nacharbeiten bzw. ändern.
Schönes Wochenende
mfg walli
;

Forumthreads zu verwandten Themen

Excel-VBA und Lotus Notes
Markus

Hallo zusammen,
ich möchte eine Tabelle über Lotus Notes senden. Beim Verwenden des Befehls SendMail bekomme
ich eine Fehlermeldung. Gibt es für Lotus Notes andere Befehle oder weis jemand, wie das bei Lotus Notes funktioniert ?
Gruß
Markus
11.08.2008 15:07:27
Thread-ID: 1000882
4 Beiträge
Mail über Lotus Notes - Noch 1 Problem :)
Christoph

Erst mal Hallo zusammen!
Ich bin neu hier im Forum und möchte mich an dieser Stelle auch erst mal für die vielen guten Tips, die mir immer geholfen haben bedanken!
Nun möchte ich mich auch etwas am Geschehen beteiligen und bringe auch gleich noch 1 Frage mit...
Folgendes:
Also i...
12.01.2009 14:59:25
Thread-ID: 1038874
4 Beiträge
Mail aus Excel 97 via Lotus Notes
Björn

Hallo zusammen,
habe folgenden Code im Archiv gefunden leider hängt er sich bei "Mail erstellen" an
CreateObject("Notes.NotesSession") auf. Fehlermeldung Laufzeitfehler 429
"Ojekterstellung durch ActiveXKomponente nicht möglich"
Hat jemand eine Idee wieso, und wie ich abhilfe s...
27.01.2009 11:46:09
Thread-ID: 1044145
5 Beiträge
Lotus Notes: Nutzung Mail-Vorlage
Peter

Hallo,
aus meinem Lotus Notes möchte ich gerne aus Excel heraus mails versenden, was auch funktioniert. Allerdings habe ich noch nicht den Befehl gefunden, dass standardmäßig meine Mail-Vorlage verwendet wird (Vorgaben, Allgemein und Signatur).
2. Frage: Wie kann ich mehrere Adressea...
16.12.2009 08:33:29
Thread-ID: 1123871
2 Beiträge
Lotus-Notes-Mail mit Anhang aus Excel
Wilfried

Hallo und guten Tag,
folgendes Makro habe ich im Forum gefunden. Es bleibt immer an der Zeile
(Set MailDoc = Maildb.CREATEDOCUMENT) stehen, warum? ... und was muss ich tun, damit der Code mit abgespeichert wird?
Sub SendNotesMail() Dim Maildb As Object Dim MailDbName As String Dim M...
13.01.2010 14:25:25
Thread-ID: 1129487
2 Beiträge
mailen in Notes
kein

Hallo, ich habe viel versucht, aber ich bin am Ende. Und es kann nicht so schwer sein....
Ich habe eine ToDo-Liste in Excel, mit lfd. Nummer, Kurztext, Beschreibung, Verantwortlichem, Termin.
Über ein Makro möchte ich nun einen Eintrag auswählen und an den Verantwortlichen senden. In de...
22.01.2010 22:03:49
Thread-ID: 1132252
2 Beiträge
Excel und Email mit Lotus Notes und Gruppen
Tobias

Hallo zusammen,
wir setzen zum Versand von EMail Lotus Notes in der Version 8 ein.
Aus Excel gelingt es mir E-Mails zu erstellen (siehe unten). Wir habe sog. Teamboxen, also zusätzliche Mail-Datenbanken, in unserer Maildatenbank integriert (Lesezeichen).
Leider gelingt es mir nicht,...
24.02.2010 12:29:58
Thread-ID: 1141030
5 Beiträge
Anzeige
Mailen mit Lotus Notes
Klaus

Sub KapaMailen() Sheets("Sofo").Select 'Blattschutz deaktivieren 'Blatt für Fax ActiveSheet.Shapes("Drop1").Visible = False ActiveSheet.Shapes("Drop2").Visible = False ActiveSheet.Shapes("Drop3").Visible = False ActiveSheet.Shapes("Drop4").Visible = False ActiveSheet.Shapes("Drop5").Visible =...
06.03.2010 10:01:02
Thread-ID: 1143884
2 Beiträge
Anzeige
Mailen mit Lotus Notes, Kopie an:
Klaus

Hallo Excelprofis, ich habe sämtliche Beiträge durchwühlt, komme aber leider nicht weiter. Ich habe mehr als 10 Mail Empfänger, sobald ich einen mehr eingebe geht das Makro stehen. Habe versucht die anderen Namen in Kopie zu nehmen, wo mein Horizont aber nicht reicht.
Könnt ihr mir bitte he...
06.03.2010 10:10:59
Thread-ID: 1143885
5 Beiträge
Sheet mit Lotus Notes versenden mit Kopie an:
Klaus

Hallo Excelprofis,
habe den gleichen Betrag schon letzte Woche eingestellt, leider bin ich nicht weiter gekommen.
Vielen dank erst mal an mumpel, aber die Makros habe nicht funktioniert. Kannst du oder jemand anders mir mal zur Hand gehen?
Ich möchte eien Mail versenden mit mehr als...
10.03.2010 01:11:35
Thread-ID: 1144701
6 Beiträge
Empfänger für Lotus Notes Mail aus Exceltabelle au
Wolfgang

Hallo liebe Excel-Experten !
In einem früheren Posting (auf das ich irgendwie leider nicht zugreifen kann, um dort einen Folgebeitrag zu schreiben), hatte ich gefragt, wie man den Empfänger einer LotusNotes-Mail aus einer
Excel-Tabelle auslesen kann. Ein User namens Andre hat mir danke...
20.05.2010 09:00:38
Thread-ID: 1157953
5 Beiträge
Notes - Emailempfänger aus Zelle auslesen
Wolfgang

Hallo Experten !
Ein begeisterter, aber leider sehr unwissender VBA-Nutzer hofft mal wieder auf Eure Unterstützung.
Dank freundllicher Hilfe dieses Forums habe ich eine Automatik zur Verfügung, um aus einem Excel-Arbeitsblatt E-Mails per Lotus Notes zu versenden. Unter anderem werden di...
14.06.2010 17:14:53
Thread-ID: 1161802
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige