Domino 9 und frühere Versionen > Entwicklung

Anhänge in ein Feld Anhängen [SCRIPT]

<< < (2/2)

Rob Green:
Walter L (unser aller Gott) hat den Tip bestätigt mit SaveOptions...schon probiert? Müßte gehen.

(womit sich deine Frage nach spotlight wohl geklärt hat  ;D)

hOtze:
>> Walter L (unser aller Gott)  

:D auf jeden Walter L hat im Spotlight ja echt auf alles imma ne antwort!

Nun hab das jetzt die ganzen ansätze mal versucht! Aber irgendwie funktioniert das nie wirklich. Irgendwas mach ich wohl noch falsch!

Hab jetzt auch mal versucht das doc vorher zu schließen dann anzuhängen und über die UnID zu öffnen, da mozt  er dann das er die ID nit finden kann.
Wahrscheinlich stehe ich heute wohl komplett auf der leitung (mit beiden füßen!!!!!) oder es liegt dran das es sich bei dem doc um ein Profildokument handelt!

Rob Green:
ich schau mal heute Nacht...muß wech jetzt..

*nicht aufgeben*  ;)

hOtze:
Hab nit augegeben! Bis zu letzt gekämpft!   :P

Aber jetzt hab ich es endlich hinbekommen!  :D

Wenns noch intressiert ..... hier der Code dazu:


     Dim s As New NotesSession
     Dim db As NotesDatabase
     Set db = s.CurrentDatabase
     
     Dim ws As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     
     Dim fileaufruf As String
     
     Dim rtfield As NotesRichTextItem
     Dim doc As NotesDocument
     Dim nfo As Variant
     Dim docUNID As String      
     Dim object As NotesEmbeddedObject
     
     Set uidoc = ws.CurrentDocument      
     Set doc = uidoc.Document
     
     Call uidoc.save()
     Call uidoc.close
     
     If Not doc.HasEmbedded Then
           
           
           Set rtfield = doc.GetFirstItem( "pic" )
           
           If rtfield.Type = RICHTEXT Then
                 
                 fileaufruf = "Alle Dateien (*.*)|*.*|BMP - Pictures|*.bmp|GIF - Pictures|*.gif|JPEG - Pictures|*.jpg||"
                 nfo = ws.OpenFileDialog( False , "Hintergrundgrafik" , fileaufruf, "c:\", "" )      
                 
                 If Not Isempty( nfo ) Then
                       
                       Set rtfield = New NotesRichTextItem( doc,"pic" )
                       Set object = rtfield.EmbedObject( EMBED_ATTACHMENT, "", nfo(0) )
                       doc.picname = Object.name
                 End If      ' If Not Isempty( nfo ) Then
                 
           End If      ' If rtfield.Type = RICHTEXT Then
           
           
           docUNID = doc.UniversalID
           Call doc.Save( True, False, True )
           
           doc.saveoptions = "0"
           Call uidoc.close
           
           Set doc = db.GetDocumentByUNID( docUNID )
           Set uidoc = ws.Editdocument( True, doc )
           
           Set doc = uidoc.Document
           doc.SaveOptions = "1"
           
     End If      ' If Not doc.HasEmbedded Then
     

Navigation

[0] Themen-Index

[*] Vorherige Sete