Како да пошаљете е-маил са ВебПарт у МОСС 2007

Здраво девелопера,
Следи део кода да шаљете емаил са вебпарт.

усинг Систем;
помоћу Систем.Цоллецтионс.Генериц;
помоћу Систем.ЦомпонентМодел;
помоћу Систем.Тект;
помоћу Систем.Веб;
помоћу Систем.Веб.УИ;
помоћу Систем.Веб.УИ.ВебЦонтролс;
помоћу Систем.Цоллецтионс.ОбјецтМодел;
помоћу Мицрософт.СхареПоинт.Утилитиес;
помоћу Мицрософт.СхареПоинт;
помоћу Систем.Дата;
помоћу Систем.Цоллецтионс;
Именски простор Сендмаил
{
публиц цласс Сендмаил : Мицрософт.СхареПоинт.ВебПартПагес.ВебПарт
{
приватни ТектБок тктТо;
приватни дугме бтнСендМаил;
заштићене измењеног воид ЦреатеЦхилдЦонтролс()
{
тктТо = нови ТектБок();
тхис.Цонтролс.Адд(тктТо);
бтнСендМаил = нев Буттон();
бтнСендМаил.Тект = “Сенд Емаил”;
бтнСендМаил.Цлицк = нев ЕвентХандлер(СендМаил_Цлицк);
тхис.Цонтролс.Адд(бтнСендМаил);
}
празнина СендМаил_Цлицк(објецт сендер, ЕвентАргс е)
{
СПСите = нови СПСите _сите(ХттпЦонтект.Цуррент.Рекуест.Урл.ТоСтринг());
СПВеб _веб = _сите.ОпенВеб();
_веб.АлловУнсафеУпдатес = труе;
СПУтилити.СендЕмаил(_веб, лажан, лажан, тктТо.Тект, “Тест-маил”, “Текст тело поруке”);
_веб.Диспосе();
_сите.Диспосе();
}
}
}

Креирање ВебПарт и региструје га као СафеЦонтрол