ENVOIE MAIL EN SMTP DEPUIS WINDOWS 2003 / ASP SANS COMPOSANT

Const cdoSendUsingMethod        = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer          = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort      = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate        = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic                  = 1
Const cdoSendUserName            = "http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword            = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
 
Dim objConfig   ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields   ' As ADODB.Fields
 
' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
 
' Set config fields we care about
With Fields
    .Item(cdoSendUsingMethod)        = cdoSendUsingPort
    .Item(cdoSMTPServer)            = "ServerSmtp"
    .Item(cdoSMTPServerPort)        = 25
    .Item(cdoSMTPConnectionTimeout) = 20
    .Item(cdoSMTPAuthenticate)      = cdoBasic
    .Item(cdoSendUserName)          = "LOGIN"
    .Item(cdoSendPassword)          = "Mot De Passe"
 
    .Update
End With
 
Set objMessage = Server.CreateObject("CDO.Message")
 
Set objMessage.Configuration = objConfig
 
With objMessage
    .To      = "Adresse Mail destinataire"
    .From    = "Adresse Mail emetteur"
    .Subject    = "Sujet du mail"
    .TextBody = "Contenu du message a envoyer "
    .Send
End With
 
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing