Verständnisproblem Attachment

[skywook]

Hallo,

würde gerne beim öffnen eines Dokumentes den Anhang automatisch starten (per Script). Dabei handelt es sich immer um ein bereits gespeichertes (kein neues) Dokument mit Anhang.

Ist das korrekt das ich zurerst den Anhang lösen und dann öffnen muss oder funktioniert das auch ohne lösen.

[koehlerbv]

Wenn es ganz einfach von denRahmenbedingungen her machbar ist: Das kannst Du sogar als Startoption einer Maske vereinbaren.
Sonst heisst es natürlich: Anhang lösen, Anhang starten.

Bernhard

[skywook]

Danke Bernhard

jetzt habe ich aber noch eine Frage. Folgendes Script löst und löscht den Anhang aus dem RichTextFeld. Danach wird der Anhang geöffnet.

Aber wie bekomme ich das hin das im Uidoc dann auch (optisch) der Anhang enfernt wird. Wenn ich das Dokument schliesse und wieder öffne ist der Anhang verschwunden. Aber nicht gleich nach dem Remove. Das Dokument bleibt ja geöffnet und der User soll in das RichTextFeld wieder einen Anhang einfügen. Aber das "AnhangBild" ist noch vorhanden. Das verwirrt ein wenig.

Sub Click(Source As Button)
   On Error Goto ErrorHandler
   Dim  rtitem As Variant
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   uidoc.Autoreload = False
   Dim doc As NotesDocument
   Set doc = uidoc.document      
   
   Set rtitem = doc.GetFirstItem( "Grußform" )
   If doc.flag(0) = "1" Then   
      If ( rtitem.Type = RICHTEXT ) Then
         Forall alle In rtitem.EmbeddedObjects
            If ( alle.Type = EMBED_ATTACHMENT ) Then
               Call alle.ExtractFile( "c:\" & alle.Source )
               Call alle.Remove
               Call doc.Save( False, True )
            End If
         End Forall
      End If
   End If
   
   Set word = CreateObject("Word.Application")
   Call word.documents.open("c:\a.doc")
   Set worddoc = word.activedocument
   word.visible = True
   .....

[Untitled]

Benutze mal die Forumssuche für das Problem. Darüber sind auch schon Andere gestolpert...

Moritz