Domino 9 und frühere Versionen > Entwicklung

Programmieren: Automail

(1/3) > >>

Yoriko:
Hallo Alle,

Ich möchte folgende Prozess automatisch laufenlassen:

1.Zwischen 20:00 und 21:00 mit einem Abstand von 5 minuten nach einer Datei Bestellung.txt im C:\Bestellung suchen

2.wird sie gefunden, wird ein automatisches Mail generiert, Bestellung.txt wird als Anhang angehängt, an eine Adresse xxx@xx.xx gesendet

3.danach wird Datei Bestellung.txt umbenannt zu Bestellung_ttmmyy.sav (ttmmyy = Datum)

4.Anschliessend wird die umbenannte Datei nach D:\Bestellt verschoben

Wo kann ich Sample Codes oder Hinweise finden? Für euren jeglischen Tipps bin ich sehr dankbar!

Gruss
Yoriko

koehlerbv:
Hallo, Yoriko,

vorab erstmal kurz zu Deinen Fragen (da der Background noch unklar ist, ebenso Deine Notes-Skills):
Zu 1) Solch ein Agent kann dann immer nur alle fünf Minuten laufen. Du müsstest dann dort checken, ob die aktuelle Zeit zwischen 20 und 21 Uhr ist. Der Agent läuft nur zwischen 20 und 21 Uhr, und dann alle 5 Minuten: "Nje wosmoschno" - nicht möglich, wie der Russe sagt.
2) Das wäre ja easy - siehe DesignerHelp
3) Könnte ggf. über die Konsole / DOS erledigt werden: Yield, Shell
4) Wie 3)

Jeweiligen Sample-Code findest Du u.a. in der Designer-Help.

Bernhard

Glombi:
Hi,
3) ginge auch mit
FileCopy source , destination
Kill source

Zuerst kopieren, dann löschen.

4) mit FileCopy


2) Sieh mal in der Designer Hilfe unter NotesRichTextItem nach. Dort gibt es EmbedObject, mit dem man auch Anhänge einfügen kann. Der Rest ist Copy-Paste aus der Hilfe.

Andreas

Yoriko:
Hallo koehlerbv,
Hallo Glombi,

Vielen Dank für eure Tipps. Ich sehe, dass ich noch viel Kopf zerbrechen muss... Mittlerweile habe ich einige Sample code in Internet gefunden. Ich probiere mal, vom Null zu anfangen. Irgendwo muss ja eine Lösung geben.

Danke noch mals.
Yoriko

Glombi:
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

Navigation

[0] Themen-Index

[#] Nächste Seite