ASP: le varie soluzioni per inviare un’email

L’invio di un’email con ASP può essere effettuato attraverso 3 diverse soluzioni:

• Aspemail
• CDonts
• CDosys

Ecco un esempio di invio Email con Aspemail:

Set objASPEMail = Server.CreateObject("Persits.MailSender")
objASPEMail.Host = "smtp.host.it"
objASPEMail.From = email
objASPEMail.FromName = mittente
objASPEMail.AddAddress destinatario
objASPEMail.Subject = oggetto
objASPEMail.IsHtml=true
objASPEMail.Body = testo
' impediamo di dare un errore in caso di mancato invio
On Error Resume Next
objASPEMail.Send()
If Err <> 0 Then
Response.Write "Si è verificato questo errore: " & Err.Description
End If
Set objASPEMail = Nothing

Ecco un esempio con CDonts:

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=mittente
objMail.To=destinatario
objMail.Subject=oggetto
objMail.BodyFormat=0
objMail.Body=testo
objMail.importance=1
objMail.Send
Set objMail = nothing

Ecco un esempio con CDosys:

Dim Mail
set Mail = server.CreateObject("CDO.Message")
With Mail
.From = mittente
.To = destinatario
.Subject = oggetto
.BodyFormat = MailFormat.HTML
'se vogliamo allegare un file
allegato=server.mappath("/folder/file.ext")
.AddAttachment allegato
.TEXTBody = testo
.Send
end With
set Mail=nothing

Se volete seguire i post di www.informarea.it potete iscrivervi al suo feed RSS.