Hi Vitaliy,
I do not know how Sander is doing this, but this could keep you updated:
membersold = 0; RunScheduledTask[
membersnew =
ToExpression[
StringDelete[
StringTake[
StringSplit[
Import["http://community.wolfram.com/people", "Text"],
"People on Community"][[1]], {-47, -42}], " "]];
If[membersnew != membersold,
SendMail["From" -> "XXXXXXXX@yahoo.com",
"To" -> "XXXXXXXX@abdn.ac.uk",
"Subject" -> "A new member has joined.",
"Body" ->
"Now there are " <> ToString[membersnew] <>
" members in the Community.", "Server" -> "smtp.mail.yahoo.com",
"UserName" -> "XXXXXXXl@yahoo.com", "Password" -> "XXXXXXXX",
"EncryptionProtocol" -> "SSL"]]; membersold = membersnew, 10]
where the XXXXX have to be replaced by the appropriate strings.
Cheers,
Marco
PS: I haven't really been running this for long. So there might be bugs.