Hy,
der Script könnte wie folgt aussehen (habs grad runtergetippt, evtl. noch korrekturen / debug nötig) / Script in einer Ansicht starten - zuvor das gewünschte Dokument markieren:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim collection As NotesDocumentCollection
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set uiview = workspace.CurrentView
Set collection = uiview.Documents
If collection.Count = 0 Then
Exit Sub
End If
Set doc = collection.GetFirstDocument
Set rtitem = New NotesRichTextItem( doc, "Body" )
Dim fileName As Variant
fileName = ws.OpenFileDialog( False, "ID Auswählen", "", "", "" )
If Isempty(fileName) Then Exit Sub
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", fileName)
Call doc.Save(True, True)
End Sub
Hmm, müsste funktionieren.
Und hier etwas, wo du automatisch die ID-Files der benutzer per Mail kriegen könntest (falls du das brauchst):
Erstelle eine Mail mit einem Button und schick das dem entsprechenden Benutzer (den auch unter recipient$ eintragen). Dieser braucht dann nur noch auf den Button zu klicken:
Sub Click(Source As Button)
Dim session As New notessession
Dim dbThis As notesdatabase
Dim docMail As notesdocument
Dim embIDFile As notesembeddedobject
Const recipient$ = {E-Mail des Empfängers}
Set dbThis = session.currentdatabase
Set docMail = dbThis.createdocument
docMail.form = {Memo}
docMail.subject = {Here is my ID}
docMail.SendTo = recipient$
'Ermitteln des Pfades für die ID und anhängen an die Mail
idFile$ = session.getenvironmentstring({KeyFilename} , True)
Set idField = New NotesRichTextItem( docMail, {Body} )
Set embIDFile = idField.EmbedObject( 1454, {}, idFile$)
docMail.save true, true
docMail.send False
End Sub