Hallo Olaf,
ich habe einen perdiodischen Agenten erstellt, der auf einem Linux Server läuft. Da mit dem EnbedObjects bezieht sich in der Hilfe nicht auf Attachments sondern auf OLE Objekte.
Hier der Teil des Agenten, der eine Datei einfügt.
'Prüfe ob Item Attachment vorhanden ist: Falls ja, muss dieses Rich Text Item sein
If uadoc.HasItem("Attachment") Then
Set checkitem = uadoc.GetFirstItem("Attachment")
If checkitem.Type <> RICHTEXT Then
Call uadoc.RemoveItem("Attachment")
Set RTItem = uadoc.CreateRichTextItem("Attachment")
Else
Set RTItem = uadoc.getfirstItem("Attachment")
End If
Else
Set RTItem = uadoc.CreateRichTextItem("Attachment")
End If
'Hänge Datei ins Dokument an
If RTItem Is Nothing Then
Set RTItem = uadoc.getfirstItem("Attachment")
End If
Set File = RTItem.EmbedObject( EMBED_ATTACHMENT, "", FilePath )
Gruß
Andreas