Beiträge von dabbel

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

error message: Variant does not contain an object

Wat nu?

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'

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

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?

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*

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?

Habe die Lösung gefunden. Wen's interessiert: das folgende Script wechselt in allen Arbeitsumgebungen des angemeldeten Users das Messageformat auf Richtext:

Sub Initialize
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim entryset As NotesViewEntryCollection
	Dim entry As NotesViewEntry
	Dim doc As NotesDocument
	Dim imail As String

	Set db = New NotesDatabase("", "names.nsf")
	Set view = db.GetView("Locations")
	Set entryset = view.AllEntries
	Set entry = entryset.GetFirstEntry

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

Will man das Messageformat auf MIME umstellen, muss die Null bei "doc.MessageFormat = "0"" auf 1 umgestellt werden, also "doc.MessageFormat = "1"".

Moin!

Ich möchte auf Knopfdruck eine Mail versenden.

Soweit ein alter Hut. Aber nun das Problem:

Der Arbeitsbereich ist standardmäßig auf MIME eingestellt, was das Nachrichtenformat für Mails an Internetadressen angeht.

Ich möchte nun dem Button folgendes beibringen:

1) Wechsel des Nachrichtenformats des Arbeitsbereichs auf Notes Richtext
2) Versenden einer Mail an eine Internetadresse eben im Format Notes Richtext
3) Wieder Wechsel des Nachrichtenformats zurück auf MIME.

Hat jemand 'ne Idee, wie das funktionieren könnte? Gibt's da @Befehle?

Asche auf mein Haupt!

Die in der Start-Rahmengruppe eingestellte Startansicht war nur für bestimmte Rollen zum Lesen freigegeben. Da die betroffenen Mitarbeiter aber nicht über die Leserolle für diese Ansicht verfügten, wurde einfach die komplette Rahmengruppe nicht geladen.

Warum dann nicht wenigstens die Rahmengruppe mit z.B. einem leeren Startansichts-Frame geladen wird, weiss wahrscheinlich niemand...

Da muss man erstmal drauf kommen...

Danke für Eure Bemühungen und Tipps!!!

Zitat

Datenbankscript, postopen etc.

nö, nix dergleichen...

Server: 6.5.2 (win)
Clients: 6.5.5 (win)

Alle gleich

Zitat

Vermutlich wird die Option "So anzeigen, wie vom Benutzer zuletzt verlassen" aktiv sein.

nö, das wäre ja nun ZU einfach... die Option ist nicht angehakt.

Zitat

Spätestens beim nächsten Start von Notes (also normalerweise am nächsten Tag) kannst Du Dir sicher sein, dass die neue Rahmengruppe zieht.

nö, tut sie nicht. sieht auch nach einem Notes-Neustart noch so vergriesgnaddelt aus...

Noch jemand 'ne Idee?

Moin!

Ich habe eine alte Datenbank mal ein wenig designmäßig aufgefrischt. Vorher wurde beim Öffnen der Datenbank ein bestimmter Navigator geladen. Nun gibt es den Navigator nicht mehr und es soll eine definierte Rahmengruppe geladen werden.

Beim Doppelklick auf die Kachel wird nun aber die Standardansicht und dann weder ein Navigator noch die in den Datenbankeigenschaften vorgegebene Rahmengruppe geladen.

Wenn ich die Kachel lösche und neu anlege, funktioniert's.

Anscheinend wird da irgendwo irgendwas in irgendeinem Cache gehalten und die Datenbankeinstellung zum öffnen der angegebenen Rahmengruppe ignoriert?

Müssen nun alle Mitarbeiter einmal die Kachel löschen und neu anlegen, um die Datenbank in aktuellem Design zu haben? Das kann's ja wohl nicht sein.

Kann jemand dieses Phänomen erklären bzw. Abhilfe schaffen?

Zitat

Aber hast Du Dir schon mal die Einstiegsseite vom Notes-Clinet angesehen?

Ja, klar! Die haut mich aber nicht wirklich um.

Zitat

Ansonsten sind die Portale meist selbst entwickelt, zumindes die, die ich bis jetzt gesehen habe.

Deswegen bin ich ja scharf auf Screenshots, sozusagen als Ideenanreiz für eine eigene Lösung...

Moin!

Ich spiele mit dem Gedanken, irgendwann mal die Kachelwand abzulösen und den Mitarbeitern eine Art einfaches Portal zur Verfügung zu stellen, in dem je nach Abteilungszugehörigkeit (Gruppenzugehörigkeit) entsprechende Links oder Schaltflächen zu den benötigten und aktuell veröffentlichten Datenbanken enthalten sind.

Diese Lösung muss natürlich - um die User dafür zu begeistern - extrem übersichtlich und einfach zu bedienen sein.

Meine Frage: Hat jemand solche Kachelwandalternativen im Einsatz? Sind die selbstgestrickt oder gibt es auf dem Markt gute und günstige Lösungen?

Wäre nett, wenn Ihr, wenn Ihr solche Alternativen im Einsatz habt, hier vielleicht mal nähere Informationen (am besten mit Screenshot) dazu posten könntet, quasi als Anregung, wie man's denn machen könnte...

Danke schonmal!

Lösung gefunden:

Ich hatte zwar den Usern die Löschberechtigung gegeben, aber offensichtlich reicht es dann nicht aus, auf der Konsole dbcache flush einzugeben, sondern der User muss wirklich mal sein Notes beenden und neu aufrufen. Dann funktioniert's...

AllowEdit ist einfach nur ein Eintrag im Profildokument.

Das Problem liegt irgendwie im Bereich Postmodechange. Dort habe ich stehen:

Sub Postmodechange(Source As Notesuidocument)
	Call docProfile.Remove( True ) 
End Sub

Hier erhält der Normaluser (Editor mit Löschrechten) immer die Meldung, er wäre für diese Aktion nicht berechtigt. Manager erhalten diese Meldung nicht.

Warum kann ein "Normaluser" dieses Script nicht ausführen sprich: das Profildokument nicht löschen???

Moin!

Ich werd' hier noch zum Elch!

Ich habe eine Maske erstellt, bei der beim Klick auf "Bearbeiten" erstmal ein Profildok angelegt wird und auf AllowEdit="yes" gesetzt wird.

Dann soll das Profildok wieder gelöscht werden.

Dabei bekommt der User aber immer die Meldung "Sie sind zur Durchführung dieser Operation nicht berechtigt".

Der User ist Editor mit Löschrechten.

Wieso kann der User nicht Call docProfile.Remove (True) aufrufen?

Hat jemand 'ne Lösung?

Moin!

Habe da mal 'ne Frage: Als Admin schreibe ich oft Mails an alle möglichen Leute, dass sie z.B. irgendwas ausprobieren sollen. Oft nutze ich hier die Funktion der Empfangsbestätigung, damit ich sehe, wann die Empfänger die Mail geöffnet haben.

Diese Mails behandeln aber natürlich oft Themen, die nach ein Paar Tagen uninteressant sind. Nun sind aber ja ab und zu einige im Urlaub oder anderweitig ausser Haus und öffnen die Mail erst viel später und ich kriege dann immer Empfangsbestätigungen über Mails, die schon lange überholt sind.

Jetzt aber die Frage: Kann ich als Absender einer Mail (möglichst ohne große Programmierungen oder Agenten in den Mail-DBs) ein Datum oder einen Zeitraum vorgeben, nach dem die Mail automatisch komplett gelöscht wird?

Wenn ich z.B. die Info sende, dass ein Programm wieder zur Verfügung steht, hätte ich es gerne, dass diese Mail zwei Tage nach Absenden oder an einem bestimmten Datum automatisch aus allen Empfänger-Mail-Datenbanken gelöscht wird. Das hält dann auch ein wenig Ordnung.

Hat da jemand 'ne Idee oder geht das nicht?

Na das werde ich morgen gleich mal ausprobieren, klingt vielversprechend und einfach. Die Teammail-Schablone werde ich mir auch mal ansehen, wir setzen aber "Noch" R6 ein so dass ich die aktuellste Version der Teammail-Schablone wohl nicht nutzen kann (oder hat da jemand Erfahrungen mit der 7er Teammail-Schablone auf 6er Notes?). Ausserdem müsste ich die dann für meine Benutzer erstmal auf Deutsch umstricken...

Danke auf jeden Fall für die - wie immer - prompten Antworten!