Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: immanuel am 23.01.07 - 10:20:21
-
Hallo Zusammen
Für eine Automatisierung möchte ich alle Attachments per Agent aus einem Verzeichnis importieren und diese Files dann auf dem Verzeichnis löschen. Kennst ihr ein entsprechendes Codebeispiel?
Danke und Gruss
Manuel
-
Hallo
Ja ;D
Auszüge aus der Designer-Help:
Dim pathName As String, fileName As String
pathName$ = "c:\*.*"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Print fileName$
fileName$ = Dir$()
Loop
...
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\jim.sam")
doc.Form = "Main Topic"
doc.Subject = "Here's Jim's document, as an attachment"
Call doc.Save( True, True )
...
' Delete the file c:\test from the file system.
Kill "c:\test"
-
Hi!
Die Designer Help... ich hätte es wissen müssen.
Herzlichen Dank!
Grüsse
Manuel