Hab zwar noch keine direkte Lösung, aber ein Workaround:
Erst löse ich alle ich alle Angänge mit folgendem Agenten:
Dim ses As NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Dim body As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim att As NotesEmbeddedObject
Dim path As String
Set ses = New NotesSession
Set db = ses.CurrentDatabase
Set col = db.UnprocessedDocuments
Set doc = col.GetFirstDocument
path = Inputbox$ ("Bitte Pfad eingeben:", "Anhänge lösen")
If path = "" Then Exit Sub
While Not (doc Is Nothing)
If doc.HasEmbedded Then
Set body = doc.GetFirstItem("WDocuments")
Set rtnav = body.CreateNavigator
REM Get attachments
If rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT) Then
Do
Set att = rtnav.GetElement()
filepath$ = path & att.Source
Call att.ExtractFile(filepath$)
Print filepath$ & " extracted"
Loop While rtnav.FindNextElement()
End If
End If
Set doc = col.GetNextDocument (doc)
Wend
Und dann ziehe ich alle per Drag&Grop auf den Drucker...
Zum Glück brauche ich das nicht oft! ::)