- Set email = Server.CreateObject ("SMTPsvg.Mailer")
- email.FromName = <nom de l'expéditeur>
- email.FromAddress = <Email de l'expéditeur>
- email.Subject = <sujet du message>
- email.BodyText = <corp du texte>
- email.RemoteHost = <nom du serveur smtp>
- email.AddRecipient <nom du destinataire>, <Email du destinataire>
- If email.SendMail then
- response.write "message envoyé"
- Else
- response.write "erreur lors de l'envoi"
- End If
Set email = Server.CreateObject ("SMTPsvg.Mailer")
email.FromName = <nom de l'expéditeur>
email.FromAddress = <Email de l'expéditeur>
email.Subject = <sujet du message>
email.BodyText = <corp du texte>
email.RemoteHost = <nom du serveur smtp>
email.AddRecipient <nom du destinataire>, <Email du destinataire>
If email.SendMail then
response.write "message envoyé"
Else
response.write "erreur lors de l'envoi"
End If