I wrote this a while back... should work okay for ya... written in ASP (VBScript)...
<%
sub sendmail(byval sendTo,byval sendFrom,byval sendSubject,byval sendBody,byval sendFormat,byref bitError,byref strResponse)
bitError=false
strResponse=""
on error resume next
set...