automatische Memoerstellung mit Anhang

[Silver]

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.

[eknori]

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  
Würde aber auch in einem Agenten laufen  
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

[Silver]

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.

[Silver]

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!

[eknori]

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.  

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

[Silver]

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!