<H1>aspSmartMail : Sample 1</H1>
<HR>
<%

On error resume next

Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

' Mail Server
' ***********
mySmartMail.Server = "mail.ligne-web.net"

' From
' ****
mySmartMail.SenderName = "Nicolas"
mySmartMail.SenderAddress = "nicolas@ligne-web.net"

' To
' **
mySmartMail.Recipients.Add "nicolas@ligne-web.net", "nicolas@ligne-web.net"

' Message
' *******
mySmartMail.Subject = "Exemple ASP Mail"
mySmartMail.Body = "Exemple Asp SmartMail"

' Send the message
' ****************
mySmartMail.SendMail

if Err.Number<>0 then

Response.write "Erreur: " & Err.description

else

Response.write "Mails envoyé avec succes " & mySmartMail.Recipients.Item(1).Name & "."

end if

%>
</body>
</html>