Domino 9 und frühere Versionen > ND8: Entwicklung

Senden Verhindern, wenn im Body ein Route-Zeichen vorhanden ist.

<< < (2/2)

Glombi:
Ich würde MailOptions im Backend setzen und als Zahlwert mit dem Wert 0, nicht als String.

uidoc.Document.MailOptions = 0

thkn777:
Hallo Lancelot,
so, wie ich Dich verstanden habe, editieren die Nutzer die Inhalte des Body-Feldes der Mail. Wir sind also im UI. Wie wäre es mit dem QuerySend Event? Ich habe eine Maske erstellt mit einem RichText Feld "body", dann einen Action-Button dazu erstellt "Senden" und im QuerySend der Maske folgendes eingefügt:


--- Code: ---Sub Querysend(Source As Notesuidocument, Continue As Variant)
Dim s As String
        Dim res as Long

s = Source.FieldGetText("body")
res =  Instr(s, "#") > 0
If res Then
Continue = False
Print Str$(Now()) & " # gefunden - kein Versand"
Else
Print Str$(Now()) & " keine # gefunden."
End If
End Sub
--- Ende Code ---

Der Button "Senden" sieht so aus:


--- Code: ---Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUiDocument

Set uidoc = ws.CurrentDocument
Call uidoc.Send
End Sub
--- Ende Code ---

Ergebnis: ist im Body-Feld eine Raute ("#"), wird die Mail nicht versendet. Vielleicht hilft Dir das ja weiter.

Viel Erfolg.

Peter Klett:
Aus der Hilfe zu ToolsRunMacro

This command executes after all @functions. Use @Command([RunAgent]) to execute immediately

Lancelot:
Danke Euch ihr seit alle klasse.

Jetzt kann ich mir die Lösung so zu sagen aussuchen.  ;)
Ihr habe mit wieder mal sehr viel Nerven und Verzweiflung erspart.

Also nochmals vielen Dank ihr seit einmalig. ;)

Navigation

[0] Themen-Index

[*] Vorherige Sete