Domino 9 und frühere Versionen > ND6: Entwicklung

Gezipte Anhänge aus einer Mail lösen entpacken und speichern

(1/2) > >>

desmo:
Hallo zusammen,

ich hoffe Ihr könnt mir weiterhelfen.

Jede Woche werden automatisch Mail´s generiert und an eine Mail-IN-DB gesendet (im Body ist nur ein Zip-File), die Mail´s werden in der ersten Spalte kategorisiert nach Monat.Jahr (04.2007).
Meine Frage ist ob es möglich ist in der Mail-IN-DB einen periodischen Agenten zu erstellen der die Anhänge einmal pro Woche löst und entpackt und gleichzeitig ein Folder auf einem Netzlaufwerk erstellt(z.B. 04.2007 wenn noch nicht vorhanden) und die entpackten Files dort ablegt?

Wenn das ganze möglich ist wie würdet Ihr das lösen?

Gruß
Andi

diali:
- Lösen geht mit LotusScript (in der Designerhilfe gibt es da ein schönes Beispiel)
- Entpacken geht mit Win-API oder Aufrufen eines EntZipers aus der Konsole
- Verschieben auf ein Netzlaufwerk würde über ftp gehen oder der Dominon muss unter einem anderen Account als dem System32 laufen

desmo:
Danke für die schnelle Antwort diali,

ist es nicht möglich alles in einen Agent zu packen und auf einem Laufwerk des Domino´s abzulegen.

Hat jemand vielleicht schon Beispiele an der Hand?

Gruß
Andi

diali:
natürlich gat alles in einem Agneten!

Beispiel Datei speichern (aus Designer-Hilfe):
--- Code: ---Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0   
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) _
    And ( o.FileSize > MAX ) Then
      fileCount = fileCount + 1
      Call o.ExtractFile _
      ( "c:\reports\newfile" & Cstr(fileCount) )
      Call o.Remove
      Call doc.Save( True, True )
    End If
  End Forall
End If
--- Ende Code ---

Welches BS setzt Ihr auf dem Domino ein?, davon hängt ab, wie entpackt werden kann.

desmo:
WIN2003

Navigation

[0] Themen-Index

[#] Nächste Seite