cdosys mail

///*** << cdosys mail >> ***/// :--

----------------------------------

<script language="JavaScript">

<!--

function MM_goToURL() { //v3.0

  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;

  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");

}

//-->

</script>

<%

Set oMail = Server.CreateObject("CDO.Message")

Set iConf = Server.CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

'Local service (dont change)

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

iConf.Fields.Update

Set oMail.Configuration = iConf

oMail.To = "tx.gallery@mb21.co.uk"

oMail.From = "tx.gallery@mb21.co.uk"

oMail.Subject = "Subject: "

oMail.TextBody = "Body: just some message"

oMail.Send

Set iConf = Nothing

Set Flds = Nothing

%>

<script language="JavaScript">

MM_goToURL('parent','http://mb21.co.uk/');

</script>

-----------------------------------------------------