Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: haro am 11.04.05 - 17:42:24
-
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?
-
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
-
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.
-
das Objekt doc ist leer. An keiner Stelle holst Du Dir das doc.
Muss irgendetwas in der Richtung "Set doc = ..." sein.
-
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 ...
-
Bis dahin sollte das Mail aber schon an einem Virenscanner vorbeigekommen sein ...
Bernhard
-
ok ich bin jetzt einen schritt weiter, Danke