Domino 9 und frühere Versionen > ND6: Entwicklung

"Email-Absender", "Gesendet am" und "Thema" kopieren

(1/4) > >>

Bruce Willis:
Hallo,

weiß jemand, wie ich die o.g. Felder aus einer E-Mail kopieren und in ein anderes Dokument einfügen kann?

Am besten wäre mit Kommas getrennt und neben dem DocLink, der wie unten beschrieben erzeugt wird...

Danke im Voraus
Bruce

-------------
Die Email-Verknüpfung zu einer E-Mail übers Auswahl-Fenster erzeugen:

1. Eine separate Standard-View "(ViewRelations)" mit mehreren Spalten erstellt, eine Spalte "IDnum" mit der Formel @Text(@DocumentUniqueID) ganz vorne hinzugefügt.

2. Eine leere View "(ViewRelationsOne)" erstellt, eine Spalte "IDnumOne" mit der Formel @Text(@DocumentUniqueID) ganz vorne eingefügt (aufsteigend sortiert). Die Option "Show response documents in a hierarchy" (Ansichtseigenschaften, 2. Reiter) ausgeschaltet.

3. In der Maske "Aufgabe" eine neue Aktion mit dem u.g. Code erstellt:

_ViewUNID := "(ViewRelationsOne)";
_ViewAnzeige := "(ViewRelations)";
_unid := @PickList([Custom]:[Single];"":"";_ViewAnzeige; "Auswahl";"E-Mail zum Verknüpfen";1);
_Server := @Subset (@DbName; 1);
_Datenbank := @Subset (@DbName; -1);
@Command([FileOpenDatabase];_Server : _Datenbank ;_ViewUNID;_unid;"1";"1");
@Command([EditMakeDocLink]);
@Command([FileCloseWindow]);
@PostedCommand([EditPaste])

4. In der DB muss eine "Default View" vorhanden sein

Driri:
Du müßtest dann per @dblookup die Werte auslesen. Über die vorher ermittelte UNID hast Du ja den Key für das Dokument.

Die so ermittelten Werte dann einfach hinterher pasten (über @Command([EditInsertText])).

Bruce Willis:
Danke!
Könntest Du bitte den entsprechenden Code hier schreiben?

Driri:
Eigentlich ist das nicht ganz der Sinn der Sache, aber ich hab heute meinen sozialen Tag  ;D

Ins grobe geschrieben könnte das so aussehen, wobei Du natürlich noch einige Dinge anpassen mußt (Feldnamen, etc.) :

_absender := @DbLookup("":"NoCache";"SERVER":"DB"; "VIEW"; _unid; "From");
_sent := @DbLookup("":"NoCache";"SERVER":"DB"; "VIEW"; _unid; "PostedDate");
_subject := @DbLookup("":"NoCache";"SERVER":"DB"; "VIEW"; _unid; "Subject");
@Command([EditInsertText]; _absender);
@Command([EditInsertText]; _sent);
@Command([EditInsertText]; _subject)

Das müßtest Du dann hinter dem Einfügen des Doclinks ausführen und ggf. noch Leerzeichen oder so einbauen, kann man ja vorher die drei Ergebnisstrings verketten und dann als einen String einfügen.

Bruce Willis:
Hallo Driri,

Du bist so-o-o gütig und gutmütig! :)
Vielen Dank!!!

Weißt Du noch, warum diese Fehlermeldung kommt, nachdem die Verknüpfung erstellt ist?

"Angegebener Befehl kann nicht ausgeführt werden"


_Server := @Subset (@DbName; 1);
_ViewUNID := "(ViewRelationsOne)";
_ViewAnzeige := "(ViewRelations)";
_unid := @PickList([Custom]:[Single];"":"";_ViewAnzeige; "Auswahl";"E-Mail zum Verknüpfen";1);
_Server := @Subset (@DbName; 1);
_Datenbank := @Subset (@DbName; -1);
@Command([FileOpenDatabase];_Server : _Datenbank ;_ViewUNID;_unid;"1";"1"); @Command([EditMakeDocLink]);
@Command([FileCloseWindow]);
@PostedCommand([EditPaste]);

_absender := @DbLookup("":"NoCache";_Server : _Datenbank; _ViewUNID; _unid; "From");
_sent := @DbLookup("":"NoCache";_Server : _Datenbank; _ViewUNID; _unid; "PostedDate");
_subject := @DbLookup("":"NoCache";_Server :_Datenbank; _ViewUNID; _unid; "Subject");
@Command([EditInsertText];@Name([CN]; _absender) + " -> ");
@Command([EditInsertText]; _sent);
@Command([EditInsertText]; _subject + " ; "  + @NewLine)

Navigation

[0] Themen-Index

[#] Nächste Seite