|
Function BeforeAdd(dict)
'
Parameters:
' dict - Scripting.Dictionary object.
' Each field on the Add form represented as 'Field name'-'Field
value' pair
'********** Send email with new data ************
' do not forget to setup email parameters like From, SMTP server etc
' on 'Security->User login settings' dialog
message =""
keys = dict.keys
For
n = 0 To dict.Count-1
message = message & keys(n) & "
: "
& dict(keys(n)) & vbcrlf
Next
email="test@test.com"
subject="New
data record"
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 |
