<%
		On Error resume Next
		Dim TBdy
		Dim MyCDO
		CR = Chr(13)
		Set MyCDO = Server.CreateObject("CDONTS.NewMail")
		If IsObject (MyCDO) Then
			MyCDO.From = "mail@mail.com (Mr Originating)"
			MyCDO.To = "mailto@mail.com (Mr recipient)"
			MyCDO.Subject = "Subject of the message"
			TBdy = "Dear Sir," & CR & CR & "This is a new mail" & CR
			TBdy = TBdy & "Thank you."
			MyCDO.Body = TBdy
			MyCDO.Importance = 2 (High)
			MyCDO.value("Reply-to")="reply@mail.com"
			MyCDO.AttachFile = "e:\files\catalog.zip"
			MyCDO.Send
			Set MyCDO = nothing
			Response.Write("Message sent")
		Else
			Response.Write("Message not sent")
		End If
%>