Beiträge von MoC08

  • Notes Benutzer ermittlen und Daten auslesen

    Sorry für Doppelpost, ist aber wichtig....


    Ich hab jetzt am Wochenende etwas von "Smart Tags" gelesen mit denen man Notes-Daten tatsächlich mit Office verbinden kann zwar eigentlich mit Microsoft Office aber es gibt auch einen Plugin für OpenOffice... Nur leider kann ich mir diese Smart Tags nicht selber programmieren, weil es meine JAVA-Programmierfähigkeiten bei weitem übersteigt....


    Frage: kennt jemand eine Seite wo man die fertig runterladen kann bzw. wäre jemand bereit mir zumindest mal ein Beispiel "Smart Tag" schreiben könnte an dem ich mich orientieren könnte (sollte den Usernamen aus Lotus Notes holen)

  • Notes Benutzer ermittlen und Daten auslesen

    Da ich grad nicht weiter komm hab ich das selbe mal unter MS Office 97 probiert


    Code
    Dim session as Object
Set session = CreateObject("Lotus.NotesSession")
Call session.Initialize


    da funktioniert es tatsächlich also gehe ich mal davon aus, dass Notes auch wirklich richrig installiert wurde...
    Aber es funktioniert erst wenn man einen Verweis zu den "Lotus Domino Objekte" macht (wie schon 2 Posts drüber geschrieben)

  • Notes Benutzer ermittlen und Daten auslesen

    was heißt an Lotus.NotesSession gebunden?


    Notes wurde installiert


    habe in der pdf "COM Together" noch gefunden, dass man im Visiual Basic Editor im MS Office erstmal einen Verweis auf die Lotus Domino Objects machen soll, sollte man sowas mit OOo auch machen oder geht das gar nicht (hab nämlich nichts derartiges gefunden)


    Edit:Habe gerade über den VB-Code eine neue Methode gefunden "Initialize" habe es auch für OOo getestet, aber dann bekomm ich folgenden Fehler

  • Notes Benutzer ermittlen und Daten auslesen

    Das pdf ist ja ganz toll, nur da wird immer nur von Word Excel und VB geredet OpenOffice funktioniert aber anderst wie krieg ich das ganze jetzt in StarBasic übersetzt???


    Ich hab es mal per OLE probiert:


    Code
    sub main
   Dim oleService as Object
   Dim oApp as Object
   oleService = createUnoService("com.sun.star.bridge.oleautomation.Factory")
   oApp = oleService.createInstance("Lotus.NotesSession")
   msgbox oApp.hasproperty("UserName")
end sub


    er gibt mir da in der MSGbox "True" zurück, aber wie komm ich da jetzt an die Info ran, ich habs über GetValue probiert aber dann bringt er eine Fehlermeldung

  • KontaktDB Daten an OOo schicken

    Nochmals Danke für die schnelle Hilfe und ich hab mittlerweile das Prob gelöst, wenn auch noch auf eine einfache Art und Weiße wird aber noch verfeinert...


    Sub Click(Source As Button)

    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = workspace.CurrentDocument
    Set doc = uidoc.Document

    company = uidoc.FieldGetText( "CompanyName" )
    company2 = uidoc.FieldGetText("CompanyName2")
    anrede = uidoc.FieldGetText("Anrede")
    fname = uidoc.FieldGetText("dspFullName")
    strasse=uidoc.FieldGetText("OfficeStreetAddress")
    plz = uidoc.FieldGetText("OfficeZip")
    ort = uidoc.FieldGetText("OfficeCity")

    Konda = company + Chr$(10) + company2 + Chr$(10) + anrede + " " + fname + Chr$(10) + strasse + Chr$(10) + plz + " " + ort

    Set SM=CreateObject("com.sun.star.ServiceManager")
    Set Desktop=SM.createInstance("com.sun.star.frame.Desktop")

    Dim args()
    Dim objDocument As Variant
    Set objDocument=Desktop.loadComponentFromURL("file:///c:/Vorlage.ott","_blank",0,args)

    Dim objText As Variant
    Set objText = objDocument.getText()

    Dim vsearch As Variant
    Dim vfound As Variant

    Set vsearch = objDocument.createSearchDescriptor()
    vsearch.searchstring=syscompany
    vsearch.replacestring=Konda
    vsearch.searchwords=True
    vsearch.searchcasesensitive = False
    vfound = objDocument.replaceAll(vsearch)
    End Sub

  • KontaktDB Daten an OOo schicken

    Danke!!!
    Habs geschafft die daten auszulesen und in OOo einzufügen...
    Problem jetzt ist halt erstens, dass er mir neue Zeilen mach und nicht hintereinander wegschreibt und dann noch, dass ers mir in die vorlage einfügt und nicht in ein blank.... aber denk mal da muss ich mich an ein OOo-Forum wenden, oder?



    Sub Click(Source As Button)
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = workspace.CurrentDocument
    Dim composed As String
    Set uidoc = workspace.CurrentDocument
    company = uidoc.FieldGetText( "CompanyName" )
    anrede = uidoc.FieldGetText("Anrede")
    fname = uidoc.FieldGetText("dspFullName")
    Set SM=CreateObject("com.sun.star.ServiceManager")
    Set Desktop=SM.createInstance("com.sun.star.frame.Desktop")
    Dim args()
    Set WriterApplication=Desktop.loadComponentFromURL("private:factory/swriter","_blank",0,args)
    Set WriterText=WriterApplication.getText()
    Set Cursor=WriterText.createTextCursor()
    Call WriterText.insertString(Cursor,company,False)
    Call WriterText.insertString(Cursor,anrede,False)
    Call WriterText.insertString(Cursor,fname,False)
    End Sub

  • KontaktDB Daten an OOo schicken

    ich hab es schon geschafft dass sich per button OOo öffnet und ich einen text einfügen kann... mein Hauptproblem ist, dass er die Daten aus dem Kontakt rausliest, also Name und Anschrift und dann natürlich dass er sie auch richtig einfügt aber so weit bin ich ja noch nicht weil ich es noch nicht mal schaff dass er die daten ausliest...

  • KontaktDB Daten an OOo schicken

    Hallo,


    ich möchte gerne einen Button für mein persönliches Adressbuch erstellen, der die Adress-Daten des markierten Kontakt rauszieht und an OpenOffice sendet um diese dann in einer Briefvorlage einfügt.


    Nur mein Problem ist, dass ich es einfach nicht hinbekomme....