Hallo zusammen,
ich habe folgendes Script:
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim viewMail As NotesView
Dim collMail As NotesDocumentCollection
Dim docMail As NotesDocument
Dim doc As NotesDocument
Dim ws As New NotesUIWorkspace
Set doc=ws.CurrentDocument.Document
Servername="server03/xxx/DE"
DBName="mail\beispiel.nsf"
Set CollMail=ws.PickListCollection( 3, False, servername, dbname, "($Inbox)" ,"Mails","Bitte wählen Sie Mail aus!")
Set docMail=collMail.GetFirstDocument
doc.Freitext=docMail.body
End Sub
Mit diesem Script öffne ich aus einer Datenbank xy eine Auswahlansicht einer Maildatenbank. Dann wähle ich eine Mail aus und damit wird der body der Mail in das Feld "Freitext" der Datenbank xy kopiert.
Jetzt möchte ich das Script anpassen damit nicht nur der Body sondern die ganze Mail inklusive Anhänge im Feld "Freitext" (ist RTF) kopiert wird.
Wie muss ich das Script anpassen?
