Send an email with updated fields only

To send an email with updated fields only, use the following code in Edit page: Before record updated event.

dim rmail, body, key
set rmail=CreateDictionary()
body = "Changed fields" & vbcrlf
for each key in values.Keys
  if not IsEqual(values(key),oldvalues(key)) then _
       body=body & key  & ": "  & values(key) & vbcrlf
next
rmail("to")="[email protected]"
rmail("subject")="Sample subject"
rmail("body")=body
runner_mail(rmail)

See also:

•Update selected

•Send an email to all users

•Send an email to selected users

•Send simple email

•runner_mail function

•Email selected records