Hi,
ich greife Dir mal ein bisschen unter die Arme. Wenn Bernhard Zeit uns Lust hat, kann er Pkt. 1) dazu programmieren.
Mache einen periodischen Agenten mit folgendem Code;
(Declarations)
dim session as NotesSession
dim db as NotesDatabase
dim doc as NotesDocument
dim rtitem as NotesRichtextItem
dim sourcefile as String
dim targetfile as String
Sub Initialize
'Prüfe ob Datei da ist
sourcefile = "C:\Bestellung\Bestellung.txt"
if Dir$(sourcefile,0) = "" then exit sub
'Falls Datei da ist: Anhängen und senden
set session = New NotesSession
set db = session.CurrentDatabase
set doc = db.CreateDocument
doc.Form = "Memo"
doc.SendTo ="xxx@xyz.de"
doc.Subject = "Hier den Betreff eingeben!!!"
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", sourcefile)
call doc.Send( false )
'Datei umbenennen (mit neuem Verzeichnis)
targetfile = "D:\Bestellt\Bestellung_" & cstr(today) & ".sav"
FileCopy sourcefile , targetfile
'Datei löschen
Kill sourcefile
End Sub
Es kann sein, dass noch Tippfehler drin sind, habe es einfach mal runtergeschrieben. Aber damit kann Du sicherlich was anfangen.
Andreas
