J
|
Jane 10/12/2006 |
Hi, Function BeforeAdd(dict) if dict("businesstype")="advertising" then 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 end if BeforeAdd = True End Function |