Autor Thema: Gezipte Anhänge aus einer Mail lösen entpacken und speichern  (Gelesen 2542 mal)

Offline desmo

  • Frischling
  • *
  • Beiträge: 18
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

Offline diali

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.023
  • Geschlecht: Männlich
- 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
Gruß
Dirk

Offline desmo

  • Frischling
  • *
  • Beiträge: 18
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

Offline diali

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.023
  • Geschlecht: Männlich
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

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

Offline desmo

  • Frischling
  • *
  • Beiträge: 18
WIN2003

Offline diali

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.023
  • Geschlecht: Männlich
also Du könnest die API verwenden, davon rate ich aber auf dem Domino ab. Besorge die einen Zipper, den Du per cmd und Parametern bedienen kannst. Mit shell kannst Du dann die Dateien entpacken.
Gruß
Dirk

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Das Thema Anhänge entpacken hatten wir hier schon öfters. Bemühe mal die Forensuche.


Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz