Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: skywook am 09.06.06 - 21:49:55
-
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.
-
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
-
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
.....
-
Benutze mal die Forumssuche für das Problem. Darüber sind auch schon Andere gestolpert...
Moritz