Hallo liebe Gemeinde,
komme gerade aus dem Urlaub und werde direkt mit Problemen konfrontiert,
soll aus einem Dokument ein ID-File rausholen und in ein anderes Dokument hängen, habe dafür eine kleine Funktion geschrieben die Folgendermaßen ausschaut.
Dim sUserIdFile As String
Dim rtIDFileItem As New NotesRichTextItem(userDefinition, "IDFile")
Call userDefinition.Save(True,False,False)
Set rtIDFileItem = docIdStore.GetFirstItem( "idFileRT" )
If ( rtIDFileItem.Type = RICHTEXT ) Then
Forall objEmbedded In rtIDFileItem.EmbeddedObjects
If ( objEmbedded.Type = EMBED_ATTACHMENT ) Then
sUserIdFile = Curdir$
If Right( sUserIdFile, 1 ) <> "\" Then
sUserIdFile = sUserIdFile & "\"
End If
sUserIdFile = sUserIdFile & objEmbedded.Source
Call objEmbedded.ExtractFile( sUserIdFile )
Call rtIDFileItem.EmbedObject(EMBED_ATTACHMENT,"",sUserIdFile)
Call userDefinition.Save(True,False,False)
Exit Forall
End If
End Forall
End If
Denke dass ich eigentlich alles richtig mache, aber irgendwie ärgert mich notes halt.