Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
If source.IsNewDoc Then
Set db = session.CurrentDatabase
Set mail = db.CreateDocument
Set rtitem = mail.CreateRichTextItem("Body")
mail.form = "Memo"
mail.Subject = "Neuer Antrag"
mail.SendTo = source.FieldGetText("MailEmpfaenger")
Call rtitem.AppendText("In der Lotus Notes Datenbank wurde ein neuer Antrag eingereicht. Link zum Dokument-->")
Call rtitem.AppendDocLink(source.Document,"")
Call mail.Send(False)
End If
End Sub
Dieses Script sorgt dafür, dass eine Mail an den Empfänger geschickt wird, der im Feld MailEmpfaenger eingetragen ist.
Nun kann es aber auch sein, dass kein Empfänger ausgewählt werden soll, das Feld ist somit leer. Wie kann ich das Script so ändern, dass die Bedingung abgeprüft wird? Kann man die If-Anweisung erweitern?
So in der Art:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
If source.IsNewDoc & source.FieldGetText("MailEmpfaenger") <> "" Then
Set db = session.CurrentDatabase
Set mail = db.CreateDocument
Set rtitem = mail.CreateRichTextItem("Body")
mail.form = "Memo"
mail.Subject = "Neuer Antrag"
mail.SendTo = source.FieldGetText("MailEmpfaenger")
Call rtitem.AppendText("In der Lotus Notes Datenbank wurde ein neuer Antrag eingereicht. Link zum Dokument-->")
Call rtitem.AppendDocLink(source.Document,"")
Call mail.Send(False)
End If
End Sub