blog :: john collette

 
 
'Option Explicit
On Error Resume Next
 
	Dim strName, strFrom, strSubject, strBody, strAction, SMTPServer, SMTPUser, SMTPpass, mailTo 
 
		strName = ""
		strFrom = ""
		strSubject = "" 
		strBody = "" 
		strAction = ""	
 
	strAction = trim(Request.Querystring("action"))
	strName = trim(Request.Querystring("name"))
	strFrom = trim(Request.Querystring("emailfrom"))
	'strTo = trim(Request.Querystring("emailto"))
	strSubject = trim(Request.Querystring("emailsubject"))
	strBody = trim(Request.Querystring("emailbody"))
 
 
 
if instr(1, strFrom , "@", 1) < 1 or instr(1, strFrom, ".", 1) < 1 or strName = ""   then
 
	'Do some validation error response - dont send email
	'errormessage = "<font color='ff0000' size='3'>Please fill out your name and email address!</font><br><br>"
	Response.Write = "not_valid"
 
else
 
 
	Set cdoConfig = CreateObject("CDO.Configuration")  
 
 
	Const cdoSendUsingPickup = 1 
	Const cdoSendUsingPort = 2 
	Const cdoAnonymous = 0
	' Use basic (clear-text) authentication. 
	Const cdoBasic = 1
	' Use NTLM authentication 
	Const cdoNTLM = 2 'NTLM
 
 
	if strAction = "test" then
 
' test user
 
	 SMTPServer = "mail.yourserver.com" 
	 SMTPUser = "webform@yourserver.com"
	 SMTPpass = "password"
	 mailTo = "user@yourserver.com"
 
 
	else
 
 
	 SMTPServer = "mail.yourserver.com" 
	 SMTPUser = "webform@yourserver.com"
	 SMTPpass = "password"
	 mailTo = "user@yourserver.com"
 
 
	end if
 
 
    With cdoConfig.Fields  
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")  = cdoSendUsingPickup
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUser
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPpass
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Update  
    End With  
 
 
 
    Set cdoMessage = CreateObject("CDO.Message")  
 
    With cdoMessage  
        Set .Configuration = cdoConfig  
        .From = SMTPUser 'request.form("youremail")
        .To = mailTo  
        .Subject = "CONTACT YOURDOMAIN.COM" 
 
					message = "Below is the result of your Contact us form, It was submitted on " & formatdatetime(now(),vbLongDate) & " " & vbCrLf & vbCrLf
					message = message & "Name: " & strName & " " & vbCrLf
					message = message & "Email: " & strFrom & " " & vbCrLf
					message = message & "Subject: " & strSubject & " " & vbCrLf
					message = message & "Message: " & strBody & " " & vbCrLf
 
					message = message + "___________________________________________________________" & vbCrLf & vbCrLf
					message = message + "IP Address : " & Request.ServerVariables("Remote_Addr") & vbCrLf
					message = message + "End"
 
 
        .TextBody = message  
        .Send 
    End With 
 
 
 
    Set cdoMessage = Nothing  
    Set cdoConfig = Nothing  
 
 
end if
 
 
 
If err.Number <> 0 Then
  Response.Write "ID = " & "1" & "<p>"
  Response.Write "Number = " & err.Number & "<p>"
  Response.Write "Description = " & err.Description & "<p>"
  Response.Write "Source = " & err.Source
  Response.Write "<BR>"
  err.Clear
else 
 
Response.Write = "OK"
 
End If