Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Olaf am 10.10.02 - 17:41:55

Titel: Anhängen von Dateien unter UNIX
Beitrag von: Olaf am 10.10.02 - 17:41:55

Ein periodisch laufender Agent erzeugt Mailmemos mit Anhängen.
Läuft der Agent unter NT erstellt er die Anhänge, läuft er auf einem UNIX Rechner, funktioniert es nur manuell aber nicht periodisch.

Laut Entwicklerhilfe:
EmbedObject is not supported on OS/2, on UNIX, and on the Macintosh.

Hat schon mal jemand unter UNIX Anhänge in Mailmemos mit einem periodischen Agenten eingefügt?
Wie funktioniert das mit Script?

Titel: Re:Anhängen von Dateien unter UNIX
Beitrag von: Glombi am 10.10.02 - 18:01:49

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