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.