|
Function BeforeAdd(dict)
' Parameters:
' dict -
Scripting.Dictionary object.
' Each field on
the Add form represented as 'Field name'-'Field value' pair
'********** Send
simple email ************
' do not forget
to setup email parameters like From, SMTP server etc
' on
'Security->User login settings' dialog
email="test@test.com"
message="Hello
there" & vbcrlf &
"Best regards"
subject="Sample
subject"
sendmail email, subject, message
BeforeAdd = True
' set BeforeAdd
to True if you like to proceed with adding new record
' set it to False
in other case
End Function |
