1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| <html>
<head><title>ASP Mailer Test</title><head>
<body>
<H3>ASP Mailer Test</H3>
<% Set email = Server.CreateObject ("SMTPsvg.Mailer")
email.FromName = "moi"
email.FromAddress = "moi@moi.moi"
email.Subject = "Demande de cotation"
email.RemoteHost = "mail.moi.com"
email.Bodytext ="<html><head></head><body>Hello</body></html>"
email.AddRecipient "moi", "moi@moi.moi"
If email.SendMail then
response.write ("Email envoyé !")
Else
message = "Email non-envoyé, l'erreur rencontrée est : " & email.Response
response.write (message)
End If %>
</body>
</html> |
Partager