Come inviare un'e-mail utilizzando CDO

Come inviare un'e-mail utilizzando CDO

Ecco un esempio di codice ASP che consente di inviare utilizzando l’oggetto CDO un’email da una qualsiasi pagina Active Server Pages.

<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = Request.Form("to")
strSubject = "Prova di invio E-mail"
strBody = "Prova di invio messaggio di postaelettronica"
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Sta per essere inviato a: "
strBody = strBody & Request.Form("to")
strBody = strBody & vbCrLf
If strTo = "" Or Not IsValidEmail(strTo) Then
%>

<FORM ACTION="./email_cdo.asp" METHOD="post">
Inserire indirizzo e-mail:<BR>
<INPUT TYPE="text" NAME="to"
SIZE="30"></INPUT>
<INPUT TYPE="text" NAME="subject"
SIZE="30"></INPUT><BR>
Message:
<TEXTAREA NAME="body" ROWS="10" COLS="40" WRAP="
virtual"></TEXTAREA><BR>
<INPUT TYPE="submit" VALUE="Send Mail!"></INPUT>
</FORM>

<%
Else
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "Rossi Franco
<rossi@pippo.com>"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
Response.Write "Messaggio inviato a" & strTo & "!"
End If
%>

<%
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
%>

Continua >>>