Domino 9 und frühere Versionen > ND6: Entwicklung

Agent um Anhang automatisch speichern nach Maileingang

<< < (3/3)

Wulfman:
Wenn ich den Anhang schon mal lokal auf dem Notesserver ablegen kann, wäre mir auch schon mal geholfen. An der Weiterverarbeitung arbeitet ein Kollege im Moment.

Axel:

--- Zitat von: Wulfman am 14.01.10 - 15:05:27 ---Hat jemand einen Ansatz für mich?

--- Ende Zitat ---

Einen Ansatz kann ich dir liefern.

Du brauchst einen Agent, der "Nach Eingang neuer Mail" ausgeführt wird. In diesem prüfst du zuerst, ob in dem entsprechenden Dokument ein Anhang vorhanden ist. Wenn ja löst du ihn per Script ins Filesystem. Als Anhaltpunkt und Grundstock kann diese Beispiel aus der Designer-Hilfe sein.


--- Code: ---....
Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
      Call o.ExtractFile( "c:\samples\" & o.Source )
      Call doc.Save( False, True )
    End If
  End Forall
End If
...

--- Ende Code ---

Axel
 

Navigation

[0] Themen-Index

[*] Vorherige Sete