aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...

[KV17]

Hallo zusammen,

ich möchte per VBA auf eine Notes Kachel(Datenbank) zugreifen. Ich habe mir bis jetzt folgenden Code zusammen gebastelt. Aber irgrendiwe funktioniert das immer noch nicht ...

Code

Private Sub adressenLN_Click()

Dim s As Object
Set s = CreateObject("Notes.NotesSession")

Dim db As Object
Dim view As Object
Dim doc As Object
Dim feld As Object
Dim i As Long
Dim Workspace As Object
Dim MainDoc As Object 'The document itself

Set db = s.GetDatabase("rol-apps01/Srv/", "news/news.nsf")


      If db.IsOpen = True Then
                    'Already open
         Else
                 Call Workspace.OpenDatabase("roland-apps01/Srv/Roland", "roland/rap/rapnews.nsf")
         End If        

        Set MainDoc = db.CREATEDOCUMENT
        MainDoc.Form = "Neues Dokument"
        MainDoc.Categories = "aktuelle News"
        Call MainDoc.Save(True, False)
End Sub

könnt ihr mir helfen ?

Vielen Dank

Uwe

[m3]

1) Welcher Fehler tritt auf. "Aber irgrendiwe funktioniert das immer noch nicht ..." ist ein "wenig" zu generisch, als dass wir dazu was sagen könnten.
2) Fehlerbehandlung einbauen wird vermutlich auch schon mal helfen (hat "s" überhaupt einen Wert, ...).
3) Der Servername beim GetDatabase ist nicht vollständig.

http://www.tty1.net/smart-questions_de.html#beprecise

[Demian]

wollte dich gerade auf http://ms-office-forum.de/forum/showthread.php?t=207582&highlight=lotus+notes verweisen, hab dann aber gesehen, dass du da schonmal geschrieben hattest...

Es fehlt auf jeden Fall das s.Initialize

[KV17]

Hallo,

sorry für die ungenaue Beschreibung. Aber es passiert halt nichts. Kein Fehler keine Daten werden in die Datenbank eingetragen. Ich weis nicht wo ich hier anfangen soll.

Wo fehlt das s.Initialize?

Uwe

[Axel]

Schau mal hier: COM Together - Domino.

Da findest du jede Menge Infos und auch viele Beispiele.


Axel

[KV17]

Hallo Axel,

auch damit kann ich nicht viel anfangen. Kann mirkeiner spezifisch zu meinem Code helfen ... Danke.

[koehlerbv]

Warum kannst Du damit nichts anfangen? Konkrete Hinweise hast Du schon bekommen, alles andere / Grundlegende steht im Redbook.
Deinen Code wird Dir hier keiner schreiben.

Bernhard

[ascabg]

Hallo,

Aber den VBA-Code kannst Du doch auch debuggen?

Entsprechend kannst Du Dir auch anzeigen lassen, was zu welchem Zeitpunkt in den Variablen enthalten ist bzw. ob die Objekte sauber initialisiert werden.

Ausserdem vermisse ich ein Call s.Initialize in Deinem Code


Andreas

[Peter Klett]

Private Sub adressenLN_Click()

Dim s As Object
Set s = CreateObject("Notes.NotesSession")

Dim db As Object
Dim view As Object
Dim doc As Object
Dim feld As Object
Dim i As Long
Dim Workspace As Object
Dim MainDoc As Object 'The document itself

Set db = s.GetDatabase("rol-apps01/Srv/", "news/news.nsf")
      -> der Servername ist falsch, wurde Dir schon mitgeteilt

      If db.IsOpen = True Then
                    'Already open
         Else
                 Call Workspace.OpenDatabase("roland-apps01/Srv/Roland", "roland/rap/rapnews.nsf")
                 -> wenn db nicht offen ist, wird sie damit auch nicht geöffnet, außerdem ist Workspace hier noch nichts
         End If       

        Set MainDoc = db.CREATEDOCUMENT -> wenn db nicht offen ist, gibt das hier einen Fehler
        MainDoc.Form = "Neues Dokument" -> ist das wirklich der Name der Maske?
        MainDoc.Categories = "aktuelle News"
        Call MainDoc.Save(True, False)
End Sub

Ansonsten beachte die Antworten, die man Dir hier schon gegeben hat.

Der Code ist m.E. recht sinnfrei irgendwoher zusammenkopiert.

[KV17]

Hallo Peter,

danke schonmal und mit deiner Hilfe kann ich schon ein wenig mehr anfangen ...