<%
Dim strFrom, strTo, strSubject, strBody, strDatewed, strPname, strphone 'Strings for recipient, subject, boby
Dim objCDOMail 'The CDO object
<%
Else
' Create an instance of the NewMail object.
Set objCDOMail = Server.CreateObject("CDO.Message")
' Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' Set the properties of the object
'***********************************************************
' PLEASE CHANGE THESE SO WE DON'T APPEAR TO BE SENDING YOUR
' EMAIL. WE ALSO DON'T WANT THE EMAILS TO GET SENT TO US
' WHEN SOMETHING GOES WRONG WITH YOUR SCRIPT... THANKS
'***********************************************************
' This syntax works fine
'objCDOMail.From = "user@domain.com"
' But this gets you the appearance of a real name!
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.TextBody = strBody & vbcrlf&_
strDatewed & vbcrlf&_
strPname & vbcrlf&_
strphone
' There are lots of other properties you can use.
' You can send HTML e-mail, attachments, etc...
' You can also modify most aspects of the message
' like importance, custom headers, ...
' Check the documentation for a full list as well
' as the correct syntax.
' Some of the more useful ones I've included samples of here:
'objCDOMail.Cc = "user@domain.com;user@domain.com"
'objCDOMail.Bcc = "user@domain.com;user@domain.com"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High)
'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt"
' I've had several requests for how to send HTML email.
' To do so simply set the body format to HTML and then
' compose your body using standard HTML tags.
' objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML
'Outlook gives you grief unless you also set:
' objCDOMail.MailFormat = 0 ' CdoMailFormatMime
' THIS LINE SHOULD BE UNCOMMENTED TO ACTUALLY SEND THE
' MESSAGE. PLEASE BE SURE YOU HAVE APPROPRIATE VALUES
' FOR TO AND FROM ADDRESSES AND HAVE CHANGED THE MESSAGE
' SUBJECT AND BODY BEFORE UNCOMMENTING THIS.
' Send the message!
objCDOMail.Send
' Set the object to nothing because it immediately becomes
' invalid after calling the Send method.
Set objCDOMail = Nothing
Response.Write "Message sent to " & strTo & "!"
'Response.Write "Message ARE NO LONGER BEING SENT because of all the abuse the system was receiving!"
End If
' End page logic
%>
<% ' Only functions and subs follow!
' A quick email syntax checker. It's not perfect,
' but it's quick and easy and will catch most of
' the bad addresses than people type in.
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
%>
