ASP: las diversas soluciones para enviar un correo electrónico

enviando unCorreo electrónico con ÁSPID se puede llevar a cabo a través de 3 resoluciones diferentes:

  • Aguardar el correo electrónico
  • CDonts
  • CDosys

ÁSPID


Aquí hay un caso de muestra de envío de mail con Aguardar el correo electrónico:

Equipo objASPEMail = Server.CreateObject("Persits.MailSender")

objASPEMail.Host = "smtp.host.it"
objASPEMail.From = correo electrónico
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 Fallo Sintetiza Next
objASPEMail.Send()

If Err <> 0 Then
Response.Write "Si è verificato questo errore: " & Err.Description
End If

Equipo objASPEMail = Nothing

Aquí hay un caso de muestra 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 caso de muestra con CDosys:

Dim Correo
equipo E-e correo electrónico = server.CreateObject("CDO.Message")
With Mail
.From = mittente
.To = destinatario
.Subject = oggetto
.BodyFormat = MailFormat.HTML

'se vogliamo allegare un file
allegato=server.mappath("/folder/archivo.ext")
.AddAttachment allegato

.TEXTBody = testo
.Send
end With
set Correo=nothing

Si quieres seguir las publicaciones de www.informarea.it puedes suscribirte a su RSS Feeds.


Comparte en:

Deja un comentario

Seguro que has adivinado que utilizamos cookies. ¡Estás en lo cierto, pero no tenemos más remedio que avisártelo!. Aunque en mucha ocasiones sea molesto para todos.    Configurar y más información
Privacidad