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

ASP

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.


Fabrizio Cannatelli

Fabrizio Cannatelli

Fondatore di Informarea.it, è un appassionato di informatica. Ha lavorato per molti anni come Analista Programmatore presso varie aziende utilizzando diversi linguaggi di sviluppo, oggi svolge un lavoro completamente diverso ma la voglia di comunicare e di condividere con il web i suoi studi e le sue curiosità lo hanno spinto a far nascere questo blog non solo per esprimere e mostrare la passione per questo mondo, ma anche per confrontarsi con nuove esperienze di sviluppo.

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *