Enviando umemail com ASP pode ser feito por meio de 3 soluções diferentes:
- Aspemail
- CDonts
- CDosys
Aqui está um exemplo de envio de e-mail com Aspemail:
Definir objASPEMail = Server.CreateObject ("Persits.MailSender") objASPEMail.Host = "smtp.host.com" objASPEMail.From = email objASPEMail.FromName = remetente objASPEMail.AddAddress destinatário objASPEMail.Subml.Is Body object objASPEMail = true objASPEMail. = text 'evitamos dar um erro em caso de falha no envio On Error Resume Next objASPEMail.Send () If Err <> 0 Then Response.Write "Este erro ocorreu:" & Err.Description End If Set objASPEMail = Nothing
Aqui está um exemplo com CDonts:
Definir 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 Definir objMail = nada
Aqui está um exemplo com CDosys:
Dim Mail set Mail = server.CreateObject ("CDO.Message") Com Mail .From = remetente .To = destinatário .Subject = objeto .BodyFormat = MailFormat.HTML 'se quisermos anexar um arquivo = server.mappath (" / folder /file.ext ") .AddAttachment attachment .TEXTBody = texto .Enviar end With set Mail = nothing
