Envoi d'unmail avec ASP peut se faire à travers 3 solutions différentes :
- Aspemail
- CDonts
- CDosys
Voici un exemple d'envoi d'email avec Aspemail:
Définir objASPEMail = Server.CreateObject ("Persits.MailSender") objASPEMail.Host = "smtp.host.com" objASPEMail.From = e-mail objASPEMail.FromName = expéditeur objASPEMail.AddAddress destinataire objASPEMail.Subml.Is objet objASPEMail = true objASPEMail. = text' on évite de donner une erreur en cas d'échec d'envoi On Error Resume Next objASPEMail.Send() If Err <> 0 Then Response.Write "Cette erreur s'est produite :" & Err.Description End If Set objASPEMail = Nothing
Voici un exemple avec CDonts:
Définir 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 rien Définir objMail = rien
Voici un exemple avec CDosys:
Dim Mail set Mail = server.CreateObject ("CDO.Message") With Mail .From = sender .To = destinataire .Subject = object .BodyFormat = MailFormat.HTML' si nous voulons joindre un fichier joint = server.mappath (" / dossier /fichier.ext ") .AddAttachment attachment .TEXTBody = text .Send end With set Mail = rien