Hi Entwickler,
habe male wieder ein kleines Problem.
In der Ressourcen-DB soll eine Mail an eine Person gesendet werden, wenn Dokumente erstellt oder geändert wurden.
"Feld ResourceTyp enthält 1"
Habe folgendes gemacht, funktioniert aber nicht. Bekomme immer alle Mails für alle Docs, welche die ResourceType 1 haben.
Sub Initialize
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim memo As NotesDocument
Dim Item As Variant
Dim rtitem As NotesRichTextItem
Dim session As New NotesSession
EMail = "raimund@sorange.com"
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
Set memo = New NotesDocument( db )
While Not(doc Is Nothing)
If doc.ResourceType(0) = "1" And doc.AlreadySent (0)= "" Then
'Set Item = doc.GetFirstItem( "ResourceName" )
Set memo = New NotesDocument( db )
memo.Form = "Memo"
memo.Subject = "Ressourcenänderung "
Set rtitem = New NotesRichTextItem( memo, "Body" )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( "Neue Reservierung oder Änderung ." )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendDocLink( doc, db.Title )
Call rtitem.AddNewLine( 1 )
'Call rtitem.AppendRTItem( Item )
Call memo.Send( False, EMail )
Call session.UpdateProcessedDoc( doc )
Call doc.send(0)
doc.AlreadySent = "YES"
Call doc.save (True,True)
End If
Set doc = collection.GetNextDocument(doc)
Wend
End Sub
Vielleicht habt Ihr eine Idee, wo der Fehler liegt?
Vielen Dank
Gruß
Raimund
