Mailanhang automatisch lösen

[haro]

Hallo,

Wir erhalten von Kunden Aufträge per Mail mit einer Excel  - Datei als Anhang.
Diese wollen wir  aus der Maildatenbank , bzw. Mailin-DB, automatisch auf einen Pfad auf den Server lösen?
Hat jemand eine Idee?

[Axel]

Hi,

das geht am besten mit einem periodischen Agenten (z.B. einmal am Tag). Dort kannst du mit Script die Mails bearbeiten und die Anhänge lösen.

Beispiel aus der Designer-Hilfe:

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 ) Then
      Call o.ExtractFile ( "c:\reports\newfile" & Cstr(fileCount) )
      Call o.Remove   'nur wenn der Anhang auch gelöscht werden soll
      Call doc.Save( True, True )
    End If
  End Forall
End If


Axel

[haro]

was ist falsch wenn ich beim ausführen des Agenten folgende Fehlermeldung bekomme

Set rtitem = doc.GetFirstItem( "Body" )
Variable not set

es steht ein Mail mit anhang neu in der Datenbank.

[diali]

das Objekt doc ist leer. An keiner Stelle holst Du Dir das doc.

Muss irgendetwas in der Richtung "Set doc = ..." sein.

[Shadow]

Ist das nicht relativ gefährlich ...

da muss dann nur mal ein Virus durchkommen und der wird auch gelöst ... oder wird das seziell als Filter Regel auf die spezielle Nachricht / den speziellen Absender eingestellt ...

[koehlerbv]

Bis dahin sollte das Mail aber schon an einem Virenscanner vorbeigekommen sein ...

Bernhard

[haro]

ok ich bin jetzt einen schritt weiter, Danke