Enviando unemail con ASP se puede hacer a través de 3 soluciones diferentes:
- Aspemail
- CDonts
- CDosys
A continuación se muestra un ejemplo de envío de correo electrónico con Aspemail:
Establezca objASPEMail = Server.CreateObject ("Persits.MailSender") objASPEMail.Host = "smtp.host.com" objASPEMail.From = email objASPEMail.FromName = remitente objASPEMail.AddAddress destinatario objeto objASPEMail.Subml. = texto 'evitamos dar un error en caso de que no se envíe. On Error Resume Next objASPEMail.Send () If Err <> 0 Then Response.Write "Se ha producido este error:" & Err.Description End If Set objASPEMail = Nothing
Aquí hay un ejemplo con CDonts:
Establecer 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 Establecer objMail.Send
Aquí hay un ejemplo con CDosys:
Dim Mail set Mail = server.CreateObject ("CDO.Message") Con Mail .From = remitente .To = destinatario .Subject = object .BodyFormat = MailFormat.HTML 'si queremos adjuntar un archivo adjunto = server.mappath (" / carpeta /archivo.ext ") .Añadir adjunto adjunto .TEXTBody = texto .Enviar final Con el conjunto Correo = nada
