Hallo,

ich versuche über Visual Basic in Excel die COM-Schnittstelle zu Notes auszuprobieren.
Ich habe den erforderlichen Verweis (Lotus DOmino Objects) drin, aber ich bekomme
trotzdem die Fehlermeldung "Unzulässige Benutzung des Schlüsselwortes New" bei der ersten Zeile Code:

Dim s as New NotesSession.

Schick mal den kompletten Code. Wie hast Du von VBA aus das Objekt "Notes" erstellt ?

Bernhard

Da gibt es jetzt eine Menge Möglichkeiten, was bei Dir schief läuft ...
Ist Notes korrekt in der Registry registriert ?
Hast Du den Code mit dem VBA-Editor auch kompiliert (sonst kriegst Du die von Dir beschriebene Meldung)
Dein NotesObject muss vom Typ Variant sein - NotesSession kennt VBA (logischerweise) als Datentyp nicht.
Dieses Beispiel funktioniert unter den oben genannten Bedingungen auf jeden Fall:

HTH,
Bernhard

Mit VB geht es so:

Dim session As NotesSession
Set session = CreateObject("Lotus.NotesSession")
Call session.Initialize

Voraussetzung ist natürlich, das die Lotus Domino Klassen in VB eingebunden werden. Ggf. muss der Pfad für die NOTES.INI im PATH stehen.

Andreas

Wie

Code

Dim session As NotesSession

aber in VBA funktionieren sollte, ist mir schleierhaft, Andreas. VBA kennt doch kein Objekt oder keine Variable dieses Typs ...

Bernhard

Daher schrieb ich ja
Voraussetzung ist natürlich, daß die Lotus Domino Klassen in VB eingebunden werden. Ggf. muss der Pfad für die NOTES.INI im PATH stehen.

Ich habe es gerade letzte Woche so progammiert.

Das schöne ist, Du siehst dann im VB Editor alle Methoden und Properties der Notes Objekte.

Andreas

Wie

Code

Dim session As NotesSession

aber in VBA funktionieren sollte, ist mir schleierhaft, Andreas. VBA kennt doch kein Objekt oder keine Variable dieses Typs ...

Bernhard

Hi,

das funktioniert auch in VBA. Wenn über Extras - Verweise die Lotus Domino Objects eingebunden werden, dann ist auch so eine Dim - Anweisung möglich. Auch brauch der Notes.ini-Pfad nicht im Path zu stehen.

Sub Warhol()
    Dim s As NotesSession
   
    Set s = CreateObject("Lotus.NotesSession")
    Call s.Initialize
    MsgBox s.CommonUserName
End Sub

Das habe ich soeben in VBA (als Word-Macro) getestet. Funktioniert einwandfrei. Ich habe in "grauer Vorzeit", noch zu Office 2000 und Notes 4.6 Word-Vorlagen erstellt, in denen es möglich war, von Word aus in einer Notes-Datenbank nach Adressen zu suchen und die entsprechenden Daten zu übernehmen.

@Aladdin Sane
Ich werde das Gefühl nicht los, dass bei dir Notes nicht sauber in der Registry registriert ist. Schau doch mal mit regedit unter HKEY_CLASSES_ROOT nach ob es da die entsprechenden Einträge, Lotus.NotesSession usw. gibt. Es gibt bei mir zusätzlich auch noch Notes.NotesSession. Vielleicht ist der Eintrag bei dir vorhanden. Eines ist sicher, obiger Code funktioniert ohne Probleme.

Axel


 

Ich finde, das ist kein Krampf. Im Gegenteil, ich denke, der Weg über CreateObject ist Karmpf.
In VB (und auch in den dotnet-IDE)  ist es üblich, Bibliotheken auf diese Weise einzubinden. Auch die Standardbibliotheken, die du z. B. in Word-VBA nutzt, sind so eingebunden. Schaus dir mal an.
(Ach so, der Entwickler muss den Verweis machen, der Anwender nicht.)

Bei dir, Alladin, ist evtl. die Notes-Bibliothek nicht registriert.
Um sie zu registrieren musst du folgendes in der Kommandozeile eingeben:

regsvr32 c:\programme\lotus\notes\nlsxbe.dll

Musst halt mal probieren, obs dann geht.

also du erzeugst ein Makro in einem Excel-Sheet.
Da du wießt, dass du die Notes-Bibliothek verwenden willst, machst du das Excel bekannt, in dem du einen Verweis auf diese Bibliothek erstellst (Extras->Verweise... und da dann die Notes-Bibliothek ankreuzen. Weiß nicht genau, wie die heißt. Dort siehst du dann auch, dass die Bibliothek, die dir die Excel-Klassen zur Verfügung stellt, genauso eingebunden ist.)

Du erstellst das Makro und kannst da drin alle Klassen verwenden, die dir die Bibliothek zur Verfügung stellt.

Du schickst die Datei einem User, bei dem die Bibliothek vorhanden ist. Er muss nix tun. Die Verweise auf Bibliotheken werden mit dem Makro gespeichert.

Vorteil ist z.B. Typsicherheit, Auto-Code-Komplettierung (Strg-Space)

Hi,

welchen Verweis hast du den eingebunden? Du musst die Lotus Domino Objects einbinden. Dann sollte es funktionieren. Ich hab damit absolut keine Probleme und hatte auch auf allen Rechnern in unserem Unternehmen keine Probleme. Wenn ein Rechner Terror machte war es in der Regel eine nicht oder unsauber registrierte Bibliothek. Nach einer Neuinstallation war die Sache behoben. Die Probleme hast du aber auch, wenn du über CreateObject gehst.

An sonsten kann ich der Argumentation von Thomas voll zustimmen, von wegen Typsicherheit und Codekomplettierung. Das erspart ne Menge Tipparbeit und -fehler.


Axel

Ein Aspekt bzgl. des PATH ist noch offen. Hier der entsprechende Auszug aus der Hilfe (daher meine Bemerkung "ggf."):

The Domino COM objects must be able to locate a valid NOTES.INI file, looking first in the Domino or Notes program directory and then at the PATH system variable. The KeyFileName setting in the NOTES.INI file specifies the user ID that COM uses.

Bzgl. Verwendung von
dim s as Variant
vs
dim s as NotesSession

Variant ist late-binding, NotesSession is early-binding.

Hier die Designer Hilfe dazu:
COM provides both early-binding (custom) and late-binding (dispatch) interfaces. Early binding makes the Domino classes available as typed variables with compile-time checking. Late binding can be used where the language (for example, VBScript) precludes early binding.

Creating a session object
To access the Domino Objects, create an object based on the registered Lotus.NotesSession class.
Visual Basic
Include the Domino object library in the Visual Basic project:
Choose Project - References.
Check "Lotus Domino Objects."
The location will show the path to DOMOBJ.TLB in the Domino or Notes program directory.
Alternatively, you can select the Browse button and specify DOMOBJ.TLB in the Domino or Notes program directory.
The Domino Objects then become available to the project. You can see them in the Object Browser and they appear as prompts when you start typing an object name.
The classes appear in the left-hand pane of the browser; the properties and methods appear in the right-hand pane for the selected class. Constants appear in the left-hand pane as Enum data structures; the members appear in the right-hand pane. For example, the Enum structure named ACLLEVEL contains the members ACLLEVEL_AUTHOR, ACLLEVEL_DEPOSITOR, and so on. The error constants appear in the right-hand pane when NOTES_ERRORS is selected in the left-hand pane.
To access the Domino Objects, create a NotesSession object with either:
Dim session As New NotesSession
Or:
Dim session As NotesSession
Set session = CreateObject("Lotus.NotesSession")
Hinweis  If you declare the session variable as Variant or Object, COM uses late binding.

Ich denke, jetzt sollte alles klar sein.

Andreas