Beiträge von DAU-in
-
-
-
Sub Initialize
Dim text As String, fileNum As Integer
Dim strTest As String
fileNum% = Freefile()
Open "C:\\blabla\\filename.txt" For Input As fileNum%
Do While Not Eof(fileNum%)
Line Input #fileNum%, text$
Print text$ ' Prints one line of config.sys
Loop
Close fileNum%
End Subläuft bei mir.
probiers mit einem eigenen Txtfile, und setz die \ doppelt (\ = Escape) -
im Designer:
File--> Tolls --> debug Lotus Script aktivierenund dann den Agenten (manuell) starten
oder print-anweisungen (kommen unten am Client in der Statusleiste)
oder MSGBox (aber auskommentieren, bevor es nur auf dem server läuft, denn der server drückt nachher nicht auf en OK-Button)
die % Prozentzeichen deklarieren das ganze als Integer
-
-
Ich würde das ausserhalb der Mail-DB stellen, eine Mini-Db mit einer Eingabemaske. soll jeder anwender seinen eigenen Empfänger pflegen?
Dann denn Anwender in einem Item auf dem Dokument verewigen, ein eingabefeld für die Mailaddi und eine versteckte ansicht, sortiert nach Anwendern. Der Agent sucht nach dem Eigentümer der Mailbox, liest die addi aus und verwendet diese für den Empfänger.
Die Eingabe würde ich über einen Button machen, so dass immer kontrolliert wird, ob bereits ein Dokument für den Anwender da ist, ansonsten wird ein Dokument neu erstellt. (um sicherzustellen, dass immer nur ein dokument da ist) .Je nachdem, was du genau machen willst, kannst du auch über Profildokumente arbeiten, aber diese werden gecacht, bei häufigem Ändern hast du evt. alte Werte drin.
axco: konfigurationsdokumente sind einfach normale Dokumente, die du zum steuern/konfigurieren verwendest.
Profildokumente sind Spezialdokumente, kommen nur einmal pro DB vor, können nicht in Ansichten angezeigt werden und haben Vor- und Nachteile. -
-
-
äääääää
eine Lizenz gilt i.d.R. für eine Installation, oder sehe ich das falsch?
auf dem 2. PC installieren = 2. Lizenz fällig -
da gibts verschiedenes, z.B.
AppendToTextList
For an item that's a text list, adds a new value to the item without erasing any existing values.
Defined in
NotesItem
Syntax
Call notesItem.AppendToTextList( newValue )oder du baust einen Array auf und und weisst ihn dem Item zu ...
grüsse
Dau-in
-
axo:
Aus VBA kenne ich eine Funktion, die heißt Mid, da kann man einen Teil aus dem String heraus extrahieren, aber die will Lotus hier nicht
aus der Hilfe:
Mid function
Extracts a string from within another string, beginning with the character at a specified position.
Syntax
Mid[$] ( expr , start [ , length ] )
Elements
expr
Any numeric or string expression. LotusScript converts a numeric to a string before performing the extraction.
start
The position of the first character to extract from the string, counting from 1 for the leftmost character.
length
The number of characters to extract from the string.
Return value
Mid returns a Variant of DataType 8 (a string), and Mid$ returns a String.
If there are fewer than length characters in the string beginning at the start position, or if you omit the length argument, the function returns a string consisting of the characters from start to the end of expr.
If start is greater than the length of expr, the function returns the empty string ("").VB und Lotus Script sind ja nicht SOOO unterschiedlich
in der Hilfe kannst du dich auch immer gut an den Referenzen unten langhangeln, die auf benachbarte Funktionen oder Formelsprache verweisen
-
-
Sub Click(Source As Button)
On Error Goto errhandler
Dim se As New NotesSession
Dim doc As NotesDocument
Set doc =session.Documentcontext
Set db = se.CurrentDatabase
Dim maildoc As notesdocument
Dim rtitem As NotesRichTextItem
'E-Mail versenden
Set maildoc = db.createdocument
Set rtitem = New NotesRichTextItem( maildoc, "Body" )
maildoc.form = "MEMO"
maildoc.sendto = "tester@tester.de" 'Empfänger e-Mail
maildoc.from = "Server"
maildoc.subject = "TESTMAIL-AUTO"
Call rtitem.appendtext("neue Email mit Betreff: " & doc.subject(0))
Call rtitem.addnewline(2)
Call rtitem.AppendDocLink( doc, "Link zur mail" )
Call maildoc.send( False,True )
Exit Sub
errhandler:
Print "Error " & Error$ & "(" & Cstr(Err) & ")" & " on line " & Cstr(Erl)
End Subich habs aber nicht getestet
-
-
-
ähh. sowas testest du besser ohne Debugger.
Der hält das Dokument fest, so dass es sich nicht schliesst.
-
<wir suchen einen flexiblen Entwickler für Lotus Notes und Java in Vollzeit. (Ausgewogene Entwicklung in Notes und Java).
PHP und SQL-Kentnisse sind ebenfalls gewünscht.>solche Leuten sind derzeit, glaube ich zumindest, nicht arbeitslos und wahrscheinlich auch nicht förderfähig
-
was meinst du mit Notes History?
grüsse
Dau-in
-
Sorry, da habe ich etwas verwechselt. Ich hatte im Hinterkopf, man könnte da auch eine Liste angeben, das war aber falsch.
-
User1 : User2