CULTURA
ASP: las diversas soluciones para enviar un correo electrónico
Enviando unEmail con ÁSPID se puede hacer a través de 3 soluciones diferentes:
A continuación, se muestra un ejemplo de envío de correo electrónico 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
Aquí hay un ejemplo 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
Aquí hay un ejemplo 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