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")="test@test.com"

rmail("subject")="Sample subject"

rmail("body")=body

runner_mail(rmail)