Agent soll bei neuer Mail starten und @Formeln ausführen

Moin!

Habe schon wieder ein Problem:

Ich möchte einen Agenten basteln, der in der Mail-DB nach neu eingegangenen Mails prüfen soll, ob diese Mail bestimmte Textmuster enthält (das ist ja soweit kein Problem) und dann mehrere @-Formeln durchführt, um eine SMS über diese neue Mail an eine bestimmte Nummer zu senden. Die @-Formeln sehen so aus:

@Set("text";Subject);
@Command([ToolsRunMacro];"(MessageFormatRichtext)");
@MailSend("0049xxxxxxxx@mail.any-sms.de";"";"";"xxxxxxxx (hier kommt noch ein Titel rein)";text+"@@@";"");
@Command([ToolsRunMacro];"(MessageFormatMIME)");

Das Doofe ist aber, dass der Agent nicht läuft, weil eben @Formeln bei solchen Agenten nicht erlaubt sind, nur bei Agenten, die als Laufzeitziel "Kein" angegeben haben. Hier der Ausschnitt aus dem Protokoll des Agenten:

Zitat

Started running agent 'SWM-Fehler-SMS' on 25.10.2007 10:50:53
Running on all documents in database: 4007 total
Found 1 document(s) that match search criteria
Formula error: @Command and other UI functions are not allowed with this search type; please select 'None' as your runtime target.
0 document(s) were modified by formula
Done running agent 'SWM-Fehler-SMS' on 25.10.2007 10:50:53

Alles anzeigen

Wie kriege ich also nun einen Agenten, der irgendwie doch bei neu eingegangener Mail mit den entsprechenden Textpassagen diese Formeln ausführt? Vielleicht per Script? Wie bastele ich diese Formeln in ein Script (bin da nicht ganz so firm) oder gibt es eine andere Lösungsmöglichkeit?

Zitat

Das Problem sind nicht @Formeln sondern (wie die Fehlermeldung auch besagt) die @Commands.

Ja, schon klar.

Zitat

Die @Commands rufen wieder andere Agenten auf. Ich weiß nicht, welcher Code hinter den anderen Agten steht, aber sofern es auch Formelsprache (ohne @Commands) ist läßt sicher der dortige Code in den ersten Agenten übernehmen statt über @Commands weitere Agenten aufzurufen.

In den anderen Agenten wird per LotusScript das Messageformat umgestellt. Dies ist zwingend notwendig, da ansonsten die Mail nicht sauber in eine SMS umgewandelt wird, sondern nur Müll auf'm Handy ankommt. Da es sich um LotusScript handelt, kann ich den Code leider nicht in den ersten Agenten übernehmen..

Mir würde auch sehr weiterhelfen, wenn mir jemand den LotusScript-Code nennen könnte, mit dem ich den @MailSend-Befehl abbilden kann. Dann könnte ich ja alles per Lotus Script erledigen lassen. Es müsste also ein Lotus-Script-Code sein, der den Subject der betreffenden Mail als Body in eine neue Mail schreibt, die entsprechenden Eintragungen bei Empfänger und Titel reinschreibt und absendet. Hier gibt's doch bestimmt 'nen LotusScript-Crack, der sowas aus'm Ärmel schüttelt, oder? *hoff*

Danke für die tolle Hilfe.

Also habe ich mal rumgebastelt (wie gesagt, mit LotusScript ist's nicht so dolle bei mir...).

In der Designerhilfe steht ein Script für einen Button, welches Teile des gewählten Dokuments in ein neues kopiert und dieses versendet. Das habe ich mal in einen Agenten gebastelt, etwa so:

Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim db As NotesDatabase
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument, doc2 As NotesDocument
	Dim item As NotesItem
	Set uidoc = workspace.CurrentDocument
	Set doc = uidoc.Document
	Set db = session.CurrentDatabase
	Set doc2 = New NotesDocument(db)
	doc2.Subject = "testsubject"
	Set item = doc.GetFirstItem("Body")
	Call item.CopyItemToDocument(doc2, "Body")
	Call doc2.Send(True, "EDV")

Wenn ich den Agenten mal per Debugger anschmeisse, stoppt er immer bei "Set doc = uidoc.Document" mit der Meldung "Object Variable not set".

Was is'n daran nun falsch? Ich habe in meiner Inbox ein Dokument ausgewählt und den Agenten gestartet.

kann mir da jemand helfen?

Ich starte den Agent testweise aus einer Ansicht, in der das betroffene Dokument ausgewählt ist (später soll der Agent durch einen andere Agenten gestartet werden.

Der Debugger geht ohne zu meckern über den Befehl Set uidoc = workspace.CurrentDocument , in der Variable UIDOC steht aber nix drin. der Abbruch kommt dann direkt beim nächsten Befehl Set doc = uidoc.Document

Da ich jetzt langsam gar nicht mehr klarkomme, poste ich hier mal den ganzen kram, den ich mir bis jetzt zusammengefrickelt habe (mit meinem LotusScript-Viertelwissen ).

Also, der Agent soll laufen, wenn neue Mail kommt und diese ein bestimmtes textmuster enthält. Das ist kein Problem.

Dann soll der Agent das Messageformat auf Richtext umstellen, eine Mail generieren mit einem bestimmten Empfänger, einem bestimmten Subject und dem Body der neuen Mail, die das entsprechende Textmuster enthält.

Danach soll das Messageformat wieder auf MIME umgestellt werden.

Das hin- und herschalten des Messageformats ist zwingend notwendig.

hier der Code meines Agenten:

Sub Initialize
	Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim entryset As NotesViewEntryCollection
	Dim entry As NotesViewEntry
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim doc2 As NotesDocument
	Dim imail As String
	Dim item As NotesItem


	'Messageformat auf Richtext umstellen

	Set db = New NotesDatabase("", "names.nsf")
	Set view = db.GetView("Locations")
	Set entryset = view.AllEntries
	Set entry = entryset.GetFirstEntry
	Print "Messageformat wieder auf MIME umstellen"

	Do Until entry Is Nothing
		Set doc = entry.Document
		doc.MessageFormat = "0"
		Set entry = entryset.GetNextEntry(entry)
	Loop 

	'mail versenden


	Set uidoc = workspace.CurrentDocument
	Set doc = uidoc.Document
	Set db = session.CurrentDatabase
	Set doc2 = New NotesDocument(db)
	doc2.Subject = "testsubject"
	Set item = doc.GetFirstItem("Body")
	Call item.CopyItemToDocument(doc2, "Body")
	Call doc2.Send(True, "EDV")


	'Messageformat wieder auf MIME umstellen

	Set db = New NotesDatabase("", "names.nsf")
	Set view = db.GetView("Locations")
	Set entryset = view.AllEntries
	Set entry = entryset.GetFirstEntry
	Print "Messageformat wieder auf MIME umstellen"

	Do Until entry Is Nothing
		Set doc = entry.Document
		doc.MessageFormat = "1"
		Set entry = entryset.GetNextEntry(entry)
	Loop 




End Sub

Wahrscheinlich werden die Scriptprofis die Hände über dem Kopf zusammenschlagen, aber vielleicht erbarmt sich einer, der den Code mal auf die Reihe bringt.

Ich habe den Agenten mal aktiviert. Er schreibt ins Log:

'error message: Error creating product object'

Habe die Zeile rausgeschmissen, nun erhalte ich nach Agentenlauf im Log die Meldung:

error message: Variant does not contain an object

Wat nu?

geht immer noch nicht... aber:

Ich brech' das jetzt ab und schmeiss den Agenten in die Tonne, damit ich mich mal wieder mit was Produktivem beschäftigen kann...

Trotzdem natürlich Danke für die Hilfestellungen!!