@Hotze,
eine Vorschau über ein OCX fände ich auch sehr interessant.
Wie wäre es mit einem Extra Button, der das Attachment ausführt ?
Sollte das Attachment ein tif sein, so wird das vom betriebssystem
dafür vorgesehen Bildbetrachtungsprogramm gestartet
Image oder Paint oder was Der user eingestellt hat
Ciao
Don Pasquale
'Declaration
Declare Function ShellExecute Lib "Shell32.dll" Alias _
"ShellExecuteA" (Byval hWnd As Long, Byval lpOperation _
As String, Byval lpFile As String, Byval lpParameters _
As String, Byval lpDirectory As String, Byval nShowCmd _
As Long) As Long
TEMPVERZEICHNIS$ = "C:\TEMP\TEST\"
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set ritem=doc.getfirstitem("Body")
If (ritem.type=RICHTEXT)Then
If Isarray(ritem.embeddedobjects) Then
Forall o In ritem.embeddedobjects
If (o.type=EMBED_ATTACHMENT) Then
Call o.ExtractFile( TEMPVERZEICHNIS$ & o.Source )
Call shellExecute(0&, "Open", TEMPVERZEICHNIS$ & o.Source , "", "", 1)
End If
End Forall
End If
End If