Re-Attach anpassen (Script von Eknori)

[bob]

Hi,

folgendes Script von Eknori startet einen Anhang (Word, Excel, etc.), und hängt diesen nach Bearbeitung und Speichern (im Word, Excel etc.) wieder ins RTF rein.

Wie muss ich das Skript ändern (bitte mit Code-Beispiel), damit
 - als Quelle nicht das Attachment der geöffneten Maske verwendet wird sondern aus dem Profile-Dokument "Profile_Formulare" das Feld "Kalkulation"
 - nach dem Speichern aber der Anhang in das Feld "Kalkulation" der geöffneten Standard-Maske gespeichert wird?

Ich hab den Code als Button in der Standard-Maske eingebaut:

Code

Sub Click(Source As Button)
   
   WorkDir$ = "C:\"  ' The WorkDir
   Field$ = "Kalkulation"              ' RichText Field containing the attachment
   
   Dim A As New Attachment ( WorkDir$ )    ' Create a new instance of the class
   FileName$ = A.SelectAttachment ( Field$ ) ' Select an attachment
   If FileName$ = "" Then  
      Exit Sub
   Else
      Call A.DetachAndEdit( FileName$ , Field$ ) ' Detach the attachment in Field$ to
                                                                         ' the workdir and open for edit in the
                                                                         ' application associated with the file
      If  A.IsModified ( FileName$ ) Then    ' if the is any modification in the file
                               ' BEFORE removing the old attachment from the document, do your own stuff here....
         Call A.RemoveByName ( FileName$ , Field$ )  ' Delete the attachment from the doc
                              ' AFTER removing the old attachment from the document, do your own stuff here....
         Call A.Attach ( FileName$ , Field$ )                  ' and attach the file from the workdir
                              ' AFTER the new attachment is attached, do your own stuff here....
      End If
   End If
   Kill workdir$ & "\" & FileName$  ' and KILL that cat
End Sub

cu,
Bob


P.S. der Code von Eknori ist nicht "Freeware"!, Details siehe www.eknori.de

[eknori]

das ist nicht mit einer einfachen Änderung der aufrufenden Routinen getan.

Ich habe gerade eine neue Version hochgeladen. in der ScriptLIB CLASSAttachment gibt es ganz am Ende eine Funktion, um aus einer Vorlage ein neues Dokument zu erstellen. Ich habe das vor ca 2 Jahren mal gecoded; war nur ein Versuch.

Schaue dir den Code an; es sind leider nicht mehr alle erforderlichen Designelement in der DB. Aber das läßt sich anhand des Codes nachvollziehem.

Ich hatte das mal folgendermaßen angedacht.

Die Vorlagen werden einzeln in einem Notes Dokument gespeichert; dein Profildokument
Per Code "CreateFromTemplate" gibst du einen "Namen" (Name des VorlagenDocs) an
Das Entsprechende Template wird in der Ansicht $Templates gesucht und der Anhang im Body mit der entsprechenden Application gestartet.
Wird die Appl beendet, wird das neu erstellte Doc an das zur Zeit geöffnete Doc attached.

Danach kann es dann mit reattach weiter bearbitet werden.

Evtl interessant. Ich habe die Klasse bereits 1999/2000 unter R4.6 entwickelt  Irgendwie hat der Code den Weg zu IBM gefunden und SCHWUPS ist er in R6 integriert. Goil

eknori

[bob]

danke, schau ich mir mal an.

coole Sache, das mit R6 und dem Eknori-Code  

cu,
Bob