Automatische Mail beim Speichern

[Christian]

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?

[Zsolt_Hermann]

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