Kopieren in\Neue Aufgabe

[Bruce Willis]

Hallo,

jeder kennt den o.g. Befehl. Dabei wird SUBJECT und BODY einer neuen AUFGABE mit den Daten aus der EMAIL ausgefüllt.

Weiß jemand, was in den zwei u.g. Aktionen zu ändern ist, um unten in BODY noch einen DocLink zu dieser EMAIL hinzuzufügen?

Gruß
Bruce

1.
'This is the Mail version of this action (non-C&S)
'Any changes made to this may also need to be made to the C&S version of the action.
Sub Click(Source As Button)
   'Make sure we copy all the correct info
   Dim IntoForm As Variant
   IntoForm = "ToDoFS"
   Call PrepareNoteToCopyDrag(note , IntoForm )
   Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub

2.
path :=@ReplaceSubstring(@ReplaceSubstring(@Subset(@DbName; -1); "\\"; "/");" ";"+") ;
@URLOpen("/" + path + "/Task?OpenForm&UNID=" + @Replace(@Text(@DocumentUniqueID); ":"; "" )+"&CopyInto")

[TMC]

Bruce, in "Stirb Langsam" Teil 1 fand ich Dich am besten  

Ist glaub ich nicht ganz trivial, da das Mailfile objektorientiert programmiert ist. D.h. man muss schon die Klassen kennen die da involviert sind.
Hast Du Dir mal die Klassen im Detail angesehen?

Ich denke ohne diese zu studieren klappt es nicht per Mausklick.

[TMC]

Bezüglich Klassen bin ich auch noch am lernen, siehe
http://www.atnotes.de/index.php?board=7;action=display;threadid=16422

Am Mailfile was zu ändern ist i.d.R. oft mit Folgeproblemen behaftet.

Aber ich denke in einer der Mailfile-Klassen könntest Du das anpassen, wenn Du behutsam vorgehst.

[Bruce Willis]

Hallo Matthias,

danke für Dein nettes Feedback.
Die Klassen habe ich überhaupt nicht angesehen.

Gruß
Bruce

[TMC]

Big Achtung: Da kann schnell mal was schief gehen bei der Mail-File-Anpassung.

Evtl. ist es einfacher, Du baust die Funtionalität programmatisch via LotusScript (z.B. Agent) nach.

Wie fit bist Du in LotusScript?

Wer ist die Zielgruppe? Du allein oder die komplette Company?

[Bruce Willis]

Alles geht mal schief. Was nie schief gehen kann, geht schief trotzdem...

Ich würde mich auch mit einem zusätzlichen KopieInAufgabe-Button (via LotusScript oder Formel) zufrieden geben.

Ich bin nicht fit in LotusScript.

Die Zielgruppe ist ich allein.

[TMC]

Ich bin nicht fit in LotusScript.

Dann wird es imho schwierig.

Sorry, aber ohne LS-Kenntnisse wirst Du da wohl leider nicht weiterkommen.

Ähnlich wie in StirbLangsam 3 im Park: Ihr habt da mit KnowHow doch noch den Wasserkanister richtig zeitnah gefüllt. Ohne die Mathe-Kenntnisse von Euch wäre wohl die falsche Menge im Kanister gewesen und die Bombe explodiert.

[Bruce Willis]

Ich suche keine leichten Wege. Je schwerer das Ziel, desto interessanter.

Aus jeder aussichtslosen Lage gibt's mindestens zwei Auswege.

Gehst Du ins Kino, um die Mathe-Kenntnisse oder "real action" zu sehen? Und "Action" bedeutet: ein Ziel setzen, schnell erreichen bzw. das Problem lösen, vergessen, neues Ziel setzen und weiter gehen.

[TMC]

Ich suche keine leichten Wege. Je schwerer das Ziel, desto interessanter.

OK, gut, dann ein paar Tipps:

Ich würde erstmal ein neues Doc erzeugen (zum testen alles im Backend, kann man dann immer noch in Frontend switchen):
Dim docNew As NotesDocument
Set docNew = New NotesDocument( db )
docNew.FORM = "keine Ahnung, siehe Mailfile wie die Maske heißt"

Damit hast Du die Basis. Nun kannste via CopyItemToDocument der NotesItem-Klasse die Items in das neu erzeugte Doc rüberkopieren.

Irgendwann zum Schluss noch AppendDocLink der NotesRichTextItem - Klasse.

Damit hast Du Dein Doc soweit zusammengestellt. OK - dann ist noch ein Reopen fällig (da Du sonst nichts siehst). Da kann ein doc.save(true,true) und öffnen im UI helfen - dabei löschst Du evtl. das Backend - nicht dass da ein Doc noch drinhängt und User schließt das UI.

Ich wiederhole mich wahrscheinlich: Ohne LotusScript-Kenntnisse hat das leider keinen Zweck. Ich unterstelle zwar dass Du schnell lernst, aber trotzdem ist das nicht ohne weiteres zu bewerkstelligen.

[Bruce Willis]

Hallo Matthias,

danke, ich werde es mir merken.

Gruß
Bruce