Web Development

<%<br />
// definisco le costanti per CDOSys:<br />
var cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing";<br />
var cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver";<br />
var cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";<br />
var cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";<br />
var cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername";<br />
var cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword";<br />
var cdoSMPTServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";<br />
var cdoDispositionNotificationTo = "urn:schemas:mailheader:dispositon-notification-to";<br />
var cdoReturnReceiptTo = "urn:schemas:mailheader:Read-Receipt-To";<br />
var cdoBasic = 1;<br />
var cdoAnonymous = 0;<br />
<br />
function SendSimpleMail(strTo, strSender, strSubject, strTesto, strAllegato, strSMPTServer, bReadReceipt){<br />
	try {		<br />
		var objMessaggio = new ActiveXObject("CDO.Message");<br />
		var objConfig = new ActiveXObject("CDO.Configuration");<br />
		var objFields = objConfig.Fields;<br />
<br />
		objFields.Item(cdoSendUsingMethod)			= 2; <br />
		objFields.Item(cdoSMTPServer)				= strSMPTServer;<br />
		objFields.Item(cdoSMPTServerPort)			= 25; <br />
  		objFields.Item(cdoSMTPConnectionTimeout)	= 60; //quick timeout<br />
  		objFields.Item(cdoSMTPAuthenticate)			= cdoBasic;<br />
  		<br />
  		if (bReadReceipt == 1) {<br />
  			objFields.Item(cdoDispositionNotificationTo)	= strSender<br />
			objFields.Item(cdoReturnReceiptTo)				= strSender<br />
		}<br />
		<br />
  		objFields.Update();	<br />
					<br />
		objMessaggio.Configuration = objConfig;<br />
					<br />
		objMessaggio.To = strTo;<br />
		objMessaggio.From = strSender;<br />
		objMessaggio.Subject = strSubject;<br />
		objMessaggio.HTMLBody = strTesto;<br />
					<br />
		if(allegato.length>0)<br />
		{<br />
			objMessaggio.AddAttachment(Server.MapPath("../Allegati/"+ strAllegato), strAllegato);<br />
		}<br />
					<br />
		objMessaggio.fields.update();<br />
		objMessaggio.Send();<br />
	}<br />
	catch (e)<br />
	{<br />
		Response.Write(e.description);<br />
		Response.End();		<br />
	}<br />
				<br />
	delete objFields;<br />
	delete objConfig;<br />
	delete objMessaggio;<br />
<br />
}<br />
<br />
<br />
%>