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

[hOtze]

Hallo Leutz,
hab hier ma wieda ein Prob, und hoffe auf eure Hilfe!

Zwar möcte ich per Knopfdruck dem User eine Fileauswahl bieten über die dann in eine RTFeld in einer Maske als Attachment anhängen.

Soweit so gut. Handle das im moment folgender maßen,
ich schließe die Momentan geöffnete maske, hänge denn Anhang dann im BackEnd an, und öffne dann das doc erneut wieder. Beim öffnen erscheint der Anhang dann auch in dem entsprechenden RTFeld, aber nach erneuten speichern, schließen und wieder öffnen erscheint der Anhang als V2Attachment unter dem doc?!  

ARGHHHHHHHHH!

[Rob Green]

hrhrhrhrrr...läßt dich wohl nicht los?  

schau mal auf LDD, was zu tun ist

http://www-1.ibm.com/support/docview.wss?rs=475&context=SSKTWP&q=v2&uid=sim1455c2e67042940ff852568d4005459ea

Die Support DB für Lotus ist gerade in solchen verzwickten Fällen ungemein hilfreich. Such mal dort nach v2...dann findest Du o.g. Link zB

[hOtze]

Hi Rob!

THX für deine propte Antwort!
Werd das gleich mal durchforsten!

Ein nachtrag noch: Nach dem der Anhnag als v2 erscheint kann ich ihn zwar löschen, aber öffne ich das doc erneut is er wieder da! Erst nachdem ich Notes komplett schließe und erneut öffne is der Anhang weg! )

[Rob Green]

ich kenn das nur, wenn man attachments removed, daß das doofe icon noch verbleibt und man manuell (keine andere Lösung laut Lotus) das Mistding entfernen muß, WENN man das alles im Frontend erledigt, während das Doc im Edit Mode ist.

Aber Dein Prob kenn ich nicht...wie wärs mit einer Suche nach v2 in der Support DB?

http://www-3.ibm.com/software/lotus/support/notes/support.html

Wenn Du was findest, meld mal die "Lösung".

[hOtze]

Mh hab ja immer überlegt ob sich im Spotlight hinter Rob Green der selbe verbirgt!  

Hab jetzt mal den "Workaround" der in der Support DB angegeben war versucht.
Soweit ich das verstanden habe, muß das Document sich im lesse modus befinden. Die Setzen das ja mit uidoc.editmode=False bei mir fehlt der da immer mit der Meldung "Document Command not available" auf die Nase! Aber hab gerade gesehen das es da in der Support DB auch was zu gibt ..... naja mal schauen!

Ich glaub das wird ne Lebensaufgabe von mir!  

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

[hOtze]

>> Walter L (unser aller Gott)  

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!  

Aber jetzt hab ich es endlich hinbekommen!  

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