Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Christian am 06.08.02 - 07:02:30
-
Hallöchen,
bin ein wirklicher Anfänger was die Entwicklung von Datenbanken betrifft. Habe nun eine kleine Projektdatenbank mit mehreren Ansichten entwickelt, in der wir unsere Projekte, in unserer Abteilung einstellen. Das ist alles soweit ganz schön.
Nun kommt es aber leider auch vor, dass unser Abteilungsleiter meint, es müsse ein Projekt für uns einstellen und wir wissen nur davon, wenn wir halt ständig reinschauen.
Jetzt hatte ich mir überlegt, ich müsse ein verstecktes Autorenfeld erstellen, was dann beim abspeichern überprüft, ob der Name des Ersteller und der, der das Projekt durchführen soll identisch ist. Wenn nicht, das sollte eine Mail an den Projektleiter gehen z.B.: “Es wurde ein neues Projekt für Sie eingestellt.“
Ist mein Ansatz richtig? Und wenn ja, wie funktioniert das?
-
Hallo Christian,
im Ereignis QuerySave läßt sich so etwas wunderbar realisieren. Du mußt aber die Mailadressen verfügbar machen.
If bearbeiter <> "" then
Mail senden
end If
Eine eventuell bessere Lösung wäre es wenn Du über einen Butten ein Mail auslöst.
Sub Click(Source As Button)
Dim Session As New Notessession
Dim db As Notesdatabase
Dim doc As Notesdocument
Dim mail As Notesdocument
Dim LinkDoc As Notesdocument
Dim rtitem As NotesRichTextItem
Dim user As String
Dim reg As New NotesRegistration
Dim ws As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Dim uiMail As NotesDocument
Dim uiDb As NotesUIDatabase
Dim uiMail As NotesuiDocument
Dim Handler As String
Dim Handlercopy As String
Dim Tester As String
Dim Testercopy As String
Dim Manual As String
Dim ManualCopy As String
User = session.Username
reg.RegistrationServer = server
Call reg.GetUserInfo(User, retmailserver$, retmailfile$, retmaildomain$, retmailsystem%, retprofile$)
Set uiDoc = ws.Currentdocument
Set db = Session.GetDatabase(retmailserver$, retmailfile$)
Set doc = db.Createdocument
Set rtItem = New NotesRichTextItem(doc, "Body")
With doc
.Form = "Memo"
.Subject = "Subject Text"
.SendTo = Handler + "," + Tester + "," + Manual
Set linkDoc = uiDoc.Document
Call rtitem.AppendText( ">>> Please click here to open the Topic!: " )
Call rtitem.AppendDocLink( LinkDoc, "", "")
Set uiMail = uidoc
End With
End Sub
Das Sollte Dir eigentlich weiterhelfen.
Gruß Zsolt Hermann