Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Silver am 29.05.02 - 11:45:07
-
Muss eine Datenbank entwickeln, die jeden Tag ein neues Memo mit neuem Dateianhang erstellt.
Die Daten befinden sich immer in ein und demselben Verzeichnis, wobei jeden Tag eine neue Datei enthalten sein wird. Diese neue Datei soll den Anhang darstellen.
Nach 30 Tagen soll die Datenbank wieder gelöscht werden.
-
Hab hier ein kleines Script, das ich vor Jahren mal zu solch einem Zweck eingesetzt habe
Hier wurden alle Dateien in einem Verzeichnis versendet, egal ob nur eine oder n Dateien.
Lief bei mir in einem Script Button, d.H, der bedauernswerte DAU, dem diese verantwortungsvolle Aufgabe übertragen wurde, musste morgens um 8:00 auf den Button klicken :P
Würde aber auch in einem Agenten laufen ;D ;D
Ich denke, das Script ist selbsterklärend
'WE-Daten_versenden:
Sub Click(Source As Button)
Dim FileName As String
Dim s As New NotesSession, ws As New NotesUIWorkspace
Dim view As NotesView
Dim Item As NotesItem
Dim uidoc As NotesUIDocument, doc As NotesDocument
Dim ni As Variant
Dim no As Variant, cUNID As String
Path$ = "C:\Wek\Export\"
FileName = GetFilesByPattern(Path$ + "*.dat")
If FileName = "" Then
Msgbox "Keine WE-Daten vorhanden"
Exit Sub
End If
Set db = s.CurrentDatabase
Set memo = db.CreateDocument
With memo
.Form = "Memo"
.SendTo = "SHG-EF-ZQS.WEKIS"
.Subject = "WEKIS - DATEN"
End With
Set attach = New NotesRichTextItem( memo, "Body" )
Do While FileName <> ""
toAttach$ = FileName
Filecopy Path$ + Toattach$, Path$ + RenameFile(toAttach$)
Set object = attach.EmbedObject ( EMBED_ATTACHMENT, "", Path$ + ToAttach$)
Kill Path$ + Toattach$
FileName = Dir$()
Loop
Call memo.Send(True)
Msgbox "Wekis-Daten erfolgreich gesendet"
End Sub
Function GetFilesByPattern(pathname As String) As Variant
GetFilesByPattern = Dir$(pathName$, 0)
End Function
Function RenameFile(OldName As String) As String
' alte Daten werden in *.old umbenammt
temp$ = Left$(OldName,(Instr(1, OldName, ".") - 1))
NewName = temp$ + ".old"
RenameFile = NewName
End Function
-
Hi Eknori!
Was nehme ich hier am besten für eine Schablone? Die Daten sollten nicht versendet werden, es soll lediglich ein Memo mit der neuesten Datei erstellt werden, auf die verschiedene Benutzer zugreifen und anschauen können.
-
Vielen, vielen Dank!
Was ist mit dem "Versenden" gemeint? Doch nur die Funktion zum Übertrag in die eigentlich Datenbank, oder? Wird das Dokument an eine Person weitergeleitet?
Habe noch das Problem, dass es sich bei den Daten um *.rdy-Format handelt. Wie bringe ich Notes dazu, jeden Anhang mit z. B. dem Editor zu öffnen???
Bräuchte auch noch ne LotusScript-Formel zur Ansichtsaktualisierung!
-
versenden ist natürlich der falsche Begriff; der code war ja ursprünglich dazu gedacht, die angehängten Daten zu verschicken. Bei dir werden die Dokumente ja in der DB gespeichert.
Da musst du noch ein bisschen anpassen. ;D
um die Rdy - Files mit dem notepad zu öffnen geht du im Windows Explorer auf eine diuese Dateien. Klicke einmal mit Links auf eine Datei, dann halte die Shift - Taste gedrückt und klicke mit recht auf die Datei. Dann hast du eine Option "Öffnen mit". Es folg ein Dialog, wo du z.b. NotePad als Editor auswählen kannst.
Setze noch den Haken bei " immer mit dieser Anwendung öffnen und schon gehts.
Ulrich
-
Danke!
Gibt es noch nen LotusScript-Befehl, dass er mir meine Ansicht nach Drücken der Schaltfläche automatisch aktualisiert?
Wie sieht der aus... habe schon die Hilfe abgesucht aber nichts gefunden!