parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

Ответ

dipsi 27.08.2010 03:10

@main[]

^form:message.save[/text-debug.txt]

$sTo[nsdg@bk.ru]
$sFrom[info@vanushina.com]

^if(def $form:message){
		^try{
			^send[$sTo;$sFrom]
            &nbsp^;
            
		}{
			$exception.handled(1)
			Произошла ошибка.
		}
}

#end @main[]

@send[sTo;sFrom]
^mail:send[
	$.to[$sTo]
	$.from[$sFrom]
	$.charset[$response:charset]
	$.subject[Новое сообщение]
	$.text[$form:message]
]
$result[]
#end @send[]