Domino 9 und frühere Versionen > ND6: Entwicklung

Zugriff auf andere Programme von Notes

<< < (2/2)

cubetoon:
Der Zugriff via VBA läuft schon! Habe mir nur den Kopf zerbrochen, wie ich in Notes die Typenbibliothek importieren soll ... aber die scheint ja wirklich "nur" optional zu sein - zumindest in diesem Fall!

Das klappt wunderbar, ich bin begeistert:

Sub Click(Source As Button)
   Dim vCobra As Variant
   Dim vCobraData As Variant
   Dim vCobraTable As Variant
   
'   On Error Resume Next
'   Set vCobra = GetObject("AdressPlus.Application.10") ' use Cobra application if started
'   On Error Goto 0
   
'   If vCobra Is Nothing Then
   Set  vCobra = CreateObject("AdressPlus.Application.10") ' Otherwise open it
'   End If
   
   If vCobra Is Nothing Then
      Messagebox "Kein Zugriff auf Adres Plus möglich."
   End If
   
   vCobra.Login "excel", ""
   Set vCobraData = vCobra.CurrentDB
   If Not (vCobraData Is Nothing) Then
      Set vCobraTable = vCobraData.Tables("Adressen")
      vCobraTable.Fields ("Bank").ValueString = "Deutsche Bank Stuttgart"   
   End If
   
End Sub

Nun bleibt nur noch das Problem, dass ich auf die (bereits geöffnete) Application via GetObject nicht zugreifen kann (siehe REM im oberen Quellcode). Vermute mal die Ursache darin, dass vCobra as Variant und nicht Object definiert ist. Die Definition als Object lässt Notes aber irgendwie nicht zu ...
Wenn ich jedoch CreateObject nutze wird Cobra (logischerweise) mit End Sub entladen  ???
Gibt es da einen Trick eine Variable als Object zu declarieren? In den (echt tollen) Beispielen nutzt Ihr ja auch stets Variant!

<edit> ... okay, habe kapiert, geht nicht mit den Objekten ... nur gibt es einen andern Trick auf bereits geöffnete Applikationen zuzugreifen ohne Sie am ande wieder zu schliessen?</edit>

cubetoon

cubetoon:
Sorry, der Esel bin ich wenn man die Funktionen richtig nutzt, funktioniert es auch!

GetObject("","AdressPlus.Application.10")

Läuft jetzt alles perfekt - die Funktionen arbeiten wie in der Cobra-Doku beschrieben.

Vielen Dank für Eure Anregungen!

Navigation

[0] Themen-Index

[*] Vorherige Sete