[Themenvorschlag] Verwendung der COM Klassen

[Glombi]

Das läuft mir fast täglich über den Weg: Wie greife ich von MS Office Produkten via VB auf Notes zu und umgekehrt.
Das wäre ein BP wert.

Falls jemand Links hier aus dem Forum hat, bitte posten.

http://www.atnotes.de/index.php?board=7;action=display;threadid=16507;start=8

Andreas

[ata]

... auf meiner Homepage habe ich eine Windows-Hilfedatenbank, die sich genau mit dem auseinandersetzt...

http://www.anton-tauscher.de/LotusScript/startdyn.htm
=> Grundlagen => Download => Windows Hilfedatenbank zu LotusScript

ata

[Glombi]

 
Merci!

Dürfen wir auf Deine HP in den Best Practices verweisen?

Andreas

[ata]

... jederzeit - dafür ist sie da...

ata

[Glombi]

LDD: How to get around the ":=" that VB uses to set parameters in Lotus Notes

[Axel]

IBM Redbook  -  COM Together - with Domino


Axel

[atbits]

Hallo zusammen,

bin gerade über diesen Thread gestolpert, ich kenn auch die Skriptlib mit den OLE-Konstanten aus der Sandbox. Diese sind aber nicht vollständig bzw. noch für Office 97.

Wir haben die bei euns um einige ergänzt und aktualisiert, es sind auch welche für andere Office Applikationen, wie Word, Powerpoint, Project dabei.

Wir haben das auch nicht als Textdatei sondern als SkriptLib innerhalb der DB.

Ich stells hier gerne zur Verfügung:

=========== 8< Schnipp, Schnapp ================
ARGH geht nicht, krieg die Fehlermeldung: Beitrag hat die max. Länge erreicht (40000 Zeichen).

Dann halt doch als File.

[m3]

atbits: Ist das nicht sowas wie die Microsoft Constants Database von OpenNTf.org?

[atbits]

Gleich mal schauen, kenn ich noch nicht 

Ah kein Wunder ist ja auch relativ neu 

Leider kann man damit ja nicht direkt programmieren, im Prinzip handelt es sich ja erstmal nur um eine Liste der Konstanten. Zugegebenermassen allerdings sehr umfangreich und vollständig wie mir scheint, was echt Klasse ist.

Schick wär natürlich jetzt noch ein Agent der daraus ne Sktipt-Lib macht ;-)
Mal schauen wo ich mir heut noch ne Scheibe Zeit für sowas abschneiden kann.

Grüße David

[atbits]

Yepp, dann muss halt der Kunde warten ;-)

Mal ne erste Quick-N-Dirty-Version des Agents:

Ich poste das dann auch mal bei OpenNTF.org

Code

Sub Initialize
	Dim sFile As String 
	Dim sTxt As String 
	Dim fileNum As Integer 
	Dim i As Integer 
	Dim v As NotesView
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim tmp As String
	
     ' INIT
	Set db = s.CurrentDatabase
	Set v = db.GetView("vuwConstantsByConstant")
	sFile = "C:\oleconst.lss" 
	fileNum = Freefile() 
	
     ' Datei zum Schreiben öffnen
	Open sFile For Output As fileNum 
	
	Set doc = v.GetFirstDocument
	tmp = ""
	
     ' Alle Consts aus der View exportieren
	While Not doc Is Nothing
		
		' nur wenn neu (keine doppelten Konstanten)
		If tmp <> Ucase(doc.conConstant(0)) Then
			' Konstanten duerfen nicht mehr als 40 Zeichen haben
			If Len(doc.conConstant(0)) < 41 Then
				' Konstanten duerfen nicht mit "_" anfangen
				If Instr(doc.conConstant(0),"_") <> 1 And _ 
				Ucase(doc.conConstant(0)) <> "GET" And _ 
				Ucase(doc.conConstant(0)) <> "SET" And _ 
				Ucase(doc.conConstant(0)) <> "LET"	Then
					If Isnumeric(doc.conValue(0)) Then
						Print #fileNum , "Public Const " & Ucase(doc.conConstant(0)) & " = " & doc.conValue(0) & " ' " & doc.conApplication(0)
					Else
						Print #fileNum , "Public Const " & Ucase(doc.conConstant(0)) & " = """ & doc.conValue(0) & """ ' " & doc.conApplication(0)
					End If
				End If
			End If
		End If
		
		' Const neu merken
		tmp = Ucase(doc.conConstant(0))
		
		' step to next
		Set doc = v.GetNextDocument(doc)
	Wend
	
        ' # Die Datei wieder schließen... 
	Close fileNum 
End Sub

[Glombi]

Begrenzung auf 255 Zeichen bei Formularfeldern, daher Textmarken verwenden:
http://atnotes.de/index.php?topic=37551.0

Sonderzeichen bei Zeilenumbrüchen in Notes eliminieren
http://atnotes.de/index.php?topic=35058.0