Noch etwas zu tun...

[Bruce Willis]

Hallo,

wenn ich etwas zu tun habe, erstelle ich eine Aufgabe in meiner Email-Datei. Mit der Zeit wird es mehr und mehr. Es kommen auch verschiede Emails, die mit diesen Aufgaben zu tun haben. Und dann verliert man den Überblick.

Um dies zu vermeiden, habe ich ein Zusatzfeld "Relations" in der Maske "Aufgabe" erstellt, wo ich Verknüpfungen zu bestimmten Emails (sowie auch entsprechende DateSent, Sender, Subject o.ä.) einfüge.

Es wäre natürlich geschickter, noch einen Button in dieser Maske zu erstellen, der mir ein kleines Fenster mit der Liste all der Emails in Inbox zur Auswahl anzeigen könnte und dann mit "OK" die o.g. Angaben mit der Verknüpfung zur ausgewählten Email in dieses Feld "Relations" einfügen würde.

Weiß jemand welchen Code man dafür braucht?

Gruß
Bruce

[TMC]

Ist prinzipiell einfach umsetzbar.

Du brauchst aber eine separate View hierzu wo in einer Spalte die Formel
@Text(@DocumentUniqueID)
steht.
Außerdem noch eine View die nichts weiteres als 1 Spalte enthält mit @Text(@DocumentUniqueID).

In Deinem Button machst Du dann sowas in der Art:

_ViewUNID := "(Link_unid)";
_ViewAnzeige := "(Link_picklist)";
_unid := @PickList([Custom]:[Single];"":"";_ViewAnzeige; "irgend ein titel";"noch ein bisschen text";XXXX);
_Server := @Subset (@DbName; 1);
_Datenbank := @Subset (@DbName; -1);
@Command([FileOpenDatabase];_Server : _Datenbank ;_ViewUNID;_unid;"1";"1");
@Command([EditMakeDocLink]);
@Command([FileCloseWindow]);
@PostedCommand([EditPaste])

Wobei XXXX eine Zahl ist - nämlich die Spaltennummer in der die Formel @Text(@DocumentUniqueID) steht.

[Bruce Willis]

Danke!
Kriege leider die Meldung "Eintrag nicht in Gestaltungsliste"...  
Was ist denn falsch?

1. Eine separate Standard-View "ViewRelations" erstellt, eine Spalte ganz vorne hinzugefügt. Die Formel ist @Text(@DocumentUniqueID) .

2. Eine leere View "ViewRelationsOne" erstellt, eine Spalte ganz vorne hinzugefügt. Die Formel ist gleich: @Text(@DocumentUniqueID)

3. In der Maske "Aufgabe" ist ein Feld "Relations" (RichText, Bearbeitbar) vorhanden.

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

_ViewUNID := "(Link_unid)";
_ViewAnzeige := "(Link_picklist)";
_unid := @PickList([Custom]:[Single];"":"";_ViewAnzeige; "ViewRelations";"noch ein bisschen text";1);
_Server := @Subset (@DbName; 1);
_Datenbank := @Subset (@DbName; -1);
@Command([FileOpenDatabase];_Server : _Datenbank ;_ViewUNID;_unid;"1";"1");
@Command([EditMakeDocLink]);
@Command([FileCloseWindow]);
@PostedCommand([EditPaste])

[TMC]

Dann solltest Du auch die Namen entsprechend anpassen.

Ich gehe mal davon aus, dass die View "ViewRelations" mehrere Spalten enthält (z.B. Empfänger und Subject etc.). Also die View ist, aus der Du die Dokumente auswählen willst.
Also:
_ViewAnzeige := "ViewRelations";

die andere View hat wie gesagt nur 1 Spalte:
_ViewUNID := "ViewRelationsOne";

Die View ViewRelationsOne muss dabei unbedingt aufsteigend sortiert sein, sonst klappt es nicht.

[TMC]

Eine Abfrage in der Formel, ob was gewählt wurde, schadet evtl. auch nicht:

_Server := @Subset (@DbName; 1);
_Datenbank := @Subset (@DbName; -1);
_ViewUNID := "ViewRelationsOne";
_ViewAnzeige := "ViewRelations";
_PicklistTitel := "irgend ein titel";
_PicklistText := "irgend ein text";

_unid := @PickList([Custom]:[Single];"":"";_ViewAnzeige; _PicklistTitel;_PicklistText;1);

@If(_unid != "";
   @Do(
      @Command([FileOpenDatabase];_Server :_Datenbank ;_ViewUNID;_unid;"1";"1");
      @Command([EditMakeDocLink]);
      @Command([FileCloseWindow]);
      @PostedCommand([EditPaste])
      );
   @Prompt([OK]; "Error"; "Es wurde kein Dok ausgewählt")
   )

[Bruce Willis]

Danke!
Es ist besser geworden, die Fehlermeldung ist weg, die Email-Verknüpfung wird erstellt, nur leider immer zur allerersten Email oben im Fenster - egal welche Email ich auswähle...
Was ist falsch?

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).

3. In der Maske "Aufgabe" ist ein Feld "Relations" (RichText, Bearbeitbar) vorhanden.

4. 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])

[TMC]

Klingt so als wie wenn Notes in der View "ViewRelationsOne" das Dokument nicht findet.
Checke dort nochmal:
- ist wirklich nur 1 Spalte enthalten (@Text(@DocumentUniqueID))
- ist die Spalte sortiert
- werden wirklich alle Dokumente angezeigt (--> ViewSelection)

*Edit*
- ist der Viewname wirklich richtig geschrieben (muss logischerweise 1:1 übereinstimmen mit dem Namen der Formel)

[Bruce Willis]

Alles "Ja" und keine Fehlermeldungen... Bloß der Link ist falsch...

Ansichtsauswahl von "ViewRelationsOne" ist nach dem Speichern leer (Einfache Suche) obwohl ich jedes mal SELECT @All (Formel) auswähle. Ich glaube nicht, dass es daran liegen könnte...

Was könnte aber sein?

[TMC]

Tipp: Gibt es in dem Mailfile eine "Default View" ?

Wenn nein: Nimm irgendeine View (z.B. ViewRelations) und setze in den Vieweigenschaften im 2. Tab den Haken bei "Default when database is first opened".

[Bruce Willis]

Danke für den Tipp. Ich hab das gerade gemacht - hilft leider nicht.

Aber Du hattest recht, dass die Dokumente nicht gefunden werden - in der Statusbar kann man das sehen:

...
Suchen nach "NummerBlablabla".
"NummerBlablabla" wurde nicht gefunden.
...

Schade eigentlich...

[TMC]

Bau mal ein Prompt ein:

_Server := @Subset (@DbName; 1);
_Datenbank := @Subset (@DbName; -1);
_ViewUNID := "ViewRelationsOne";
_ViewAnzeige := "ViewRelations";
_PicklistTitel := "Auswahl";
_PicklistText := "E-Mail zum Verknüpfen";

_unid := @PickList([Custom]:[Single];"":"";_ViewAnzeige; _PicklistTitel;_PicklistText;1);

@Prompt([OK]; "Picklist UNID"; _unid);

@If(_unid != "";
   @Do(
      @Command([FileOpenDatabase];_Server :_Datenbank ;_ViewUNID;_unid;"1";"1");
      @Command([EditMakeDocLink]);
      @Command([FileCloseWindow]);
      @PostedCommand([EditPaste])
      );
   @Prompt([OK]; "Error"; "Es wurde kein Dok ausgewählt")
   )

Dann schau manuell in der View "ViewRelationsOne" nach, ob Du dort diese ID wiederfindest.

[Bruce Willis]

Es kommt jetzt die Meldung "Picklist UNID" mit der ID, die ich auch im Auswahlfenster sehe.

In der Statusbar sehe ich, dass das Dok mit dieser ID nicht gefunden wurde.

In der View "ViewRelationsOne" ist aber diese ID vorhanden...

-Edit-
Seltsam, aber manche Doks werden doch gefunden...

[animate]

häng doch mal deine DB hier rein, dann kann sich das jemand mal anschauen

[TMC]

Seltsam, aber manche Doks werden doch gefunden...

Ferndiagnose ist leider nicht immer sehr einfach. Am einfachsten wäre es wohl, Du erstellst eine leere Kopie der Datenbank und hängst diese unten an. Dann kann man das mal testen (und korrigieren).

Via @Command([EditMakeDocLink]) wird die Zwischenablage neu gesetzt. D.h. wenn ein Fehler auftritt, kann sein, dass noch ein alter Wert/Doclink in der Zwischenablage ist und dieser dann gepastet wird.

Ich meine nach wie vor, dass was mit der View "ViewRelationsOne" nicht passt.

[TMC]

Ferndiagnose ist leider nicht immer sehr einfach. Am einfachsten wäre es wohl, Du erstellst eine leere Kopie der Datenbank und hängst diese unten an. Dann kann man das mal testen (und korrigieren).

Jo, Thomas hat ja auch gerade den Vorschlag gemacht  

[Bruce Willis]

Hi,

here we go...

(please see attached)


-EDIT-
Anhang gelöscht

[TMC]

Habe mir das gerade angesehen (3 Mails zum testen in den Inbox-Folder reinkopiert).

Konnte kein Problem feststellen, es wird genau der Doclink eingefügt, dessen Dokument ich zuvor auswählte.

Kannst Du das Problem nochmal spezifizieren?

Tipp am Rande:
Klammere diese Behelfs-Views ein. Also statt "ViewRelationsOne" schreibst Du "(ViewRelationsOne)", da diese ja public nicht zugreifbar sein sollen.

[animate]

Leo, du bist es.

Ich hab gerade mal weng rumgetestet und bemerkt, dass das ganze nur bei Hauptdokumenten funktioniert. Also nicht bei Replies z.B.

Ich habe dann in der Ansicht ViewRelationsOne die Option "Show response documents in a hierarchy" (Ansichtseigenschaften, 2. Reiter) ausgeschaltet. Jetzt klappts bei mir.
Probiers mal aus.

[TMC]

Noch was fällt auf:

Eine Default View ist in der angehängten DB nicht definiert (siehe Antwort 8  ).

Das solltest Du noch nachholen. Erkennbar ist eine "Default View" am blauen Pfeil in der View-Ansicht.

[Bruce Willis]

Sieht so aus, als ob

1. die Emails, die ich zum Testen in "Inbox" kopiert hatte, werden nicht gefunden, falls diese mit PGP signiert sind
 
2. alle Emails, die ich in "Gesendet" kopiert hatte, werden nicht gefunden

Kann es sein?