Option Public
Sub Initialize
server$ = "server/domain"
pathName$ = "\\server\share$\verzeichnis\"
Dim subj As Variant
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc, reply, doc2 As NotesDocument
Dim obj As NotesEmbeddedObject
Dim clog As New NotesLog("Rechnung eingegangen")
Call clog.OpenNotesLog(server$, "mailin/mailinlog.nsf")
Set db = session.currentDatabase
Set dc = db.alldocuments
Set doc =dc.GetFirstDocument
nr = 1
ext =".pdf"
While Not(doc Is Nothing)
Call clog.LogAction( "[" + CStr(nr) + "] Processing mail from: " & doc.from(0) & " | Subject: " & doc.subject(0) )
subj = doc.getItemValue( "$File" )
Set obj = doc.getattachment( subj (0) )
If obj Is Nothing Then
Call clog.LogError( 999, "[" + CStr(nr) + "] Es wurde kein Attachment gefunden." )
saved = False
GoTo nextDoc
End If
'check, if attachment exists on file system
pattern$ = pathName$ + UCase(subj(0))
fileName$ = Dir$(pattern$, 0)
If fileName$ = "" Then
found=False
Else
found = True
End If
If Not(found) Then
Call obj.ExtractFile(pathName$ & CStr(Nr) & CStr(ext))
Call clog.LogAction( "[" + CStr(nr) + "] File " + subj(0) + " (" + UCase(subj(0)) + ") " + " saved in " + pathName$ + " on server " + server$)
saved = True
Else
Call clog.LogAction( "[" + CStr(nr) + "] File " + subj(0) + " (" + UCase(subj(0)) + ") " + " exists in " + pathName$ + " on server " + server$)
saved = False
End If
nextDoc:
Set doc2 = doc 'save current doc for later remove
Set doc = dc.GetNextDocument(doc)
nr = nr + 1
'delete doc in mailin db
If doc2.remove(True) Then
Else
Call clog.LogError( 999, "[" + Cstr(nr) + "] Dokument nicht aus DB gelöscht." )
End If
' End If
Wend
End Sub
Usage
This method does a soft deletion if "Allow soft deletions" is enabled. See RemovePermanently to do a hard deletion.Example
Permanently deletes a document from a database, doing a hard deletion even if soft deletions are enabled.
Note This method is new with Release 6.
Defined in
NotesDocument
Syntax
flag = notesDocument.RemovePermanently( force )
Parameters
force
Boolean. If True, the document is deleted even if another user modifies the document after the script opens it. If False, the document is not deleted if another user modifies it.
Return value
True indicates that the document was successfully deleted.
False indicates that the document was not deleted, because another user modified it and the force parameter is set to False.
Usage
This method does a hard deletion even if "Allow soft deletions" is enabled. See Remove to do a soft deletion....Du hast ja so Recht ... :)
@Peter punkt 3 anstatt StrLeft würde ich ein StrRightBack() verwenden um die Dateiendung auszulesen.
falls es wen interessiert, hier das fertige Script:
Option Public
Sub Initialize
'Changes
' 06-02-04 (TK)
' o check file: filename uppercase; save file as uppercase and compare with uppercase
server$ = "server/domain"
pathName$ = "\\server\share\verzeichnis\"
Dim subj As Variant
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc, reply, doc2 As NotesDocument
Dim embObj As NotesEmbeddedObject
Dim clog As New NotesLog("Rechnung eingegangen")
Dim rtitem As NotesRichTextItem
Call clog.OpenNotesLog(server$, "mailin/mailinlog.nsf")
Set db = session.currentDatabase
Set dc = db.Search ({@IsAvailable ($FILE) & @Text (FlagBearbeitet) = ""}, Nothing, 0)
Set doc = dc.GetFirstDocument
Do While Not doc Is Nothing
Set rtitem = doc.GetFirstItem ("Body")
nr = 1
If IsArray (rtitem.EmbeddedObjects) Then
ForAll obj In rtitem.EmbeddedObjects
Select Case LCase (StrRightBack (obj.Source, ".")) 'StrRightBACK ist wichtig, denn es gibt ja Dateinamen wie "Rechnung31.12.2012.tiff"
Case "pdf", "tif", "tiff"
'check, if attachment exists on file system
pattern$ = pathName$ + UCase(obj.Source) '-> obj.Source anstelle von subj (0)
fileName$ = Dir$(pattern$, 0)
If fileName$ = "" Then
found=False
Else
found = True
End If
If Not(found) Then
Call obj.ExtractFile(pathName$ & CStr(Nr) & CStr(ext))
Call clog.LogAction( "[" + CStr(nr) + "] File " + obj.Source + " (" + UCase(obj.Source) + ") " + " saved in " + pathName$ + " on server " + server$)
doc.FlagBearbeitet = Now
saved = True
Else
Call clog.LogAction( "[" + CStr(nr) + "] File " + obj.Source + " (" + UCase(obj.Source) + ") " + " exists in " + pathName$ + " on server " + server$)
saved = False
End If
End Select
nr = nr + 1
End ForAll
End If
If CStr (doc.FlagBearbeitet (0)) <> "" Then
Call doc.Save (True, True)
End If
Set doc = dc.GetNextDocument (doc)
Loop
'Call clog.close
End Sub
Und wieder mal hat sich gezeigt, wie cool die Notes-Community ist. Vielen Dank für Eure Inputs und ganz speziell an Peter, der für den "Feinschliff" gesorgt hat.Naja, eher "grob gehobelt" ... ;)