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