Kiel Sendi Retpoŝton De WebPart en MUSKO 2007

Hi Devs,
La sekvantaro estas la peco de kodo sendi Retpoŝton de webpart.

Uzanta Sistemon;
Uzanta Sistemon.Kolektoj.Kolektiva;
Uzanta Sistemon.ComponentModel;
Uzanta Sistemon.Teksto;
Uzanta Sistemon.Araneaĵo;
Uzanta Sistemon.Araneaĵo.UI;
Uzanta Sistemon.Araneaĵo.UI.WebControls;
Uzanta Sistemon.Kolektoj.ObjectModel;
Uzanta Microsoft.SharePoint.Iloj;
Uzanta Microsoft.SharePoint;
Uzanta Sistemon.Datumo;
Uzanta Sistemon.Kolektoj;
Namespace SendMail
{
Publika klaso SendMail : Microsoft.SharePoint.WebPartPages.WebPart
{
Privata TextBox txtTo;
Privata Butono btnSendMail;
Protektita superregi malplenan CreateChildControls()
{
TxtTo = nova TextBox();
Tio ĉi.Kontroloj.Aldonas(TxtTo);
BtnSendMail = nova Butono();
BtnSendMail.Teksto = “Sendi Retpoŝton”;
BtnSendMail.Klako = nova EventHandler(SendMail_Klako);
Tio ĉi.Kontroloj.Aldonas(BtnSendMail);
}
Malplena SendMail_Klako(Objekta sendinto, EventArgs e)
{
SPSite _ejo = nova SPSite(HttpContext.Fluo.Peto.Url.ToString());
SPWeb _araneaĵa = _ejo.OpenWeb();
_Araneaĵo.AllowUnsafeUpdates = vera;
SPUtility.SendEmail(_Araneaĵo, Falsa, Falsa, TxtTo.Teksto, “Testa Retpoŝto”, “Teksta Korpo Mesaĝo”);
_Araneaĵo.Dispozicias();
_Ejo.Dispozicias();
}
}
}

Krei la WebPart kaj registri ĝin kiel SafeControl