Hi !
habe das Forum schon durchsucht, komme aber nicht wirklich weiter, da meine Script Kentnisse nicht gross sind.
Also, ich möchte den Dateianhang aus einem geöffneten Email in ein neues "leeres" Email kopieren.
Der restliche Text, der im Bodyfeld steht, benötige ich nicht, ausschließlich den Dateianhang.
Folgendes habe ich ausprobiert.
Die Idee war, alle Items der Orig. Email zu kopieren und alles wieder zu löschen, was nicht $File ist.
Klappt aber nicht, das neue Email ist komplett leer
Was ist falsch. Jeder Hinweis ist gern genommen
Sub Initialize
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument, doc2 As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Set doc2 = New NotesDocument(db)
doc2.Form = "Memo"
doc2.ReplyTo = ""
doc2.DeliveryReport ="C"
Call doc.CopyAllItems( doc2 , True )
Forall item In doc2.Items
If Not item.Name = "$FILE" Then
Call item.Remove
End If
End ForAll
Call doc2.Save(True, False)
Call workspace.EditDocument(True,doc2)
End Sub