Button per Mail verschicken -> kann nicht ausgeführt werden

[OlTu]

Hi Leute,
also manchmal ist Notes wirklich zum Kotzen !
Ich habe folgendes Problem, und hoffe, dass jemand schon mal was damit gemacht und vielleicht auch eine Lösung dazu hat.
=======
Ein Agent läuft auf dem Server.
Greift auf die Mail DB eines Benutzers und erstellt ein Dokument (Memo).
Im Body sind Text, ein Button und Attachments enthalten.
Beim Klicken auf den Button müssen Attachments auf dem FileSystem abgelegt werden
======
PROBLEM: kann nicht ausgeführt werden, weil da poppt die ECL Meldung hoch
"Execution Security Alert:
Notes has been asked to execute the following action which does not fit with your security profile:
Action: <relative action>
Signed by: -No Signature-"
Also, der Button ist nicht signiert.

Ich habe schon folgendes versucht:
- eine Vorlage mit dem Button erstellt und dann über doc.RenderToRTItem in das neue Dokument kopiert
- den Button über die XML Schnittstelle direkt im Script Agenten erstellt
=> in beiden Fällen das selbe Ergebnis - No Signature
Die ECL darf nicht verändert werden !
Ich habe dieverse Beiträge in Notes Forum dazu gefunden, aber leider keine Lösung.
Vielleicht habt ihr eine Idee, wie man das machen kann. Also, das Ziel ist Attachments auf der Festplatte eines Benutzers abzulegen. Danke schon mal für eure Hilfe !

[WernerMo]

Hallo,
 ob Dein Problem wirklich damit was zu tun hat:

also manchmal ist Notes wirklich zum Kotzen !

weiß ich noch nicht, aber evtl. würde es helfen, wenn Du uns sagst, von wem der Agent signiert ist, der diese Sachen erstellt, und wie/von wem der Agent gestartet wird.

Grüße Werner
(Würde mich freuen, Dich auch mit Namen ansprechen zu können statt mit "Hallo        ")

[OlTu]

Der Agent läuft auf dem lokalen Server. Alle Designelemente auf dem Server, sowie alle Designelemente auf dem Client sind mit der selben ID signiert.
Danke,
Ole

[OlTu]

das verstehe ich aber gar nicht mehr:
In meiner Mail DB erstelle ich ein neues Memo.
Im Memo erstelle ich einen Button mit dem folgenden Code und attache einige Files

dim ws as new NotesUIWorkspace
dim uidoc as NotesUIDocument
dim doc as NotesDocument
dim rtBody as NotesRichTextItem
dim eoFile as NotesEmbeddedObject
dim FilePaths as Variant
set uidoc = ws.CurrentDocument
set doc = uidoc.Document
FilePaths = ws.SaveFileDialog( True , "Verzeichnis auswählen" )
if IsEmpty(FilePaths)=False then
   '+++ get body
   set rtBody = doc.GetFirstItem("Body")
   '+++ detach attachments to the selected path
   If doc.HasEmbedded Then
      Forall attach In rtBody.EmbeddedObjects      
         If attach.Type = EMBED_ATTACHMENT Then
            Set eoFile = doc.GetAttachment( attach.name )   
            Call eoFile.ExtractFile( FilePaths(0) )
         End If
      End Forall
   end if
end if

Speichere das Dokument, öffne es und klicke auf den Button
-> "access to file system denied"
aber warum

[Axel]

In welcher Zeile tritt der Fehler auf?

Hast du Schreibrechte auf das Verzeichnis?


Axel

[OlTu]

tja ....
das Bestätigt wieder mal die Aussage, dass die User selbst doof sind und nicht notes !
In der Zeile
Call eoFile.ExtractFile( FilePaths(0) )
hat einfach die Angabe des Dateinamens gefehlt, z.B.
Call eoFile.ExtractFile( FilePaths(0) & "\" & "meinedatei.htm" )

trotzdem danke für die Beiträge !!!

[koehlerbv]

Bitte? Wieso die User? Der Code war doch falsch ...

Verwundert,
Bernhard

[Axel]

tja ....
das Bestätigt wieder mal die Aussage, dass die User selbst doof sind und nicht notes !

... wenn das höchstens der User, der wo das programmiert haben tut.   


Axel

[OlTu]

genau das meine ich auch, Axel. War mein Fehler.

[koehlerbv]

Ole, shit happens. Und von uns (wenn auch in einer anderen Lage) hat auch keiner den eigentlich offensichtlichen Fehler gesehen 

Bernhard