procedure TForm2.EmailthisArticle1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
case Notebook1.PageIndex of
   0:form2.wikipedia_console.SendPageInMailAsAttachment(GetTempPath+ExtractfileName(wikipedia_console.LocationName)+'.html');
   2:form2.wikimedia_console.SendPageInMailAsAttachment(GetTempPath+ExtractfileName(wikimedia_console.LocationName)+'.html');
   3:form2.wikidict_console.SendPageInMailAsAttachment(GetTempPath+ExtractfileName(wikidict_console.LocationName)+'.html');
   5:form2.wikibooks_console.SendPageInMailAsAttachment(GetTempPath+ExtractfileName(wikibooks_console.LocationName)+'.html');
   6:form2.wikinews_console.SendPageInMailAsAttachment(GetTempPath+ExtractfileName(wikinews_console.LocationName)+'.html');
   7:form2.Wikiquote_console.SendPageInMailAsAttachment(GetTempPath+ExtractfileName(Wikiquote_console.LocationName)+'.html');
   8:form2.wikisource_console.SendPageInMailAsAttachment(GetTempPath+ExtractfileName(wikisource_console.LocationName)+'.html');
   9:form2.wikispices_console.SendPageInMailAsAttachment(GetTempPath+ExtractfileName(wikispices_console.LocationName)+'.html');
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'A60000');
end;End;