Ответ

AL 09.08.2006 18:34

Часть кода, которая за рассылку отвечает:

^if('$form:cmd' eq 'mail'){
^use[/classes/mailpro/templates/body.p]
^mail_:get_params[]
$email[^table::sql{SELECT email FROM $base WHERE mail_active='1'}]
^email.menu{
	^mail:send[
	$.from[$from_name <$from>] 
	$.to[$email.email] 
	$.subject[$theme_short]
	$.html{
	^body:_body[]
	}
	]
^memory:compact[]
}
		^if(def $out.end_code){
			^process{^untaint[as-is]{$out.end_code}}
		}
}

---