Envoyer un email en utilisant ASP (CDOSYS)
Pour les packs d'hébergement Web Windows
Dans cet article, nous vous présentons un exemple de code pour l'envoi d'un e-mail via ASP, que vous pouvez adapter avec vos propres données.
CDOSYS est un composant intégré à ASP. CDOSYS met à votre disposition les Collaboration Data Objects pour l'envoi d'e-mails authentifiés (qui nécessitent un nom d'utilisateur et un mot de passe) dans ASP.
Instructions pas-à-pas
- Copiez tout le texte de la section de code ci-dessous et collez-le dans un éditeur de texte. Par exemple dans NotePad.
- Modifiez le texte aux endroits marqués de cette couleur et saisissez à ces endroits les adresses e-mail souhaitées pour l'expéditeur et le destinataire.
- Enregistrez le texte sous forme de fichier avec l'extension .asp
Exemple : sendmail.asp - Téléchargez le fichier sur votre espace Web.
- Appelez le fichier via votre navigateur pour vérifier qu'il fonctionne .
Exemple : https://www.exemple.com/sendmail.asp
<%
CONST SMTPSendUsing = 2 ' Send using Port (SMTP over the network)
CONST SMTPServer = "smtp.ionos.fr"
CONST SMTPServerPort = 465
CONST SMTPConnectionTimeout = 10 'seconds
CONST SMTPUser = "expediteur@exemple.com
"
CONST SMTPPassword = "SaissezVotreMotdepasseEmail"
dim sSubject, sEmail, sMailBody, sFrom, sReadReceipt, sMsg
sSubject = "Test"
sEmail = "destinataire@exemple.com"
sMailBody = "This is a test message."
sFrom = "expediteur@exemple.com"
sReadReceipt = true
sMsg = ""
On Error Resume Next
dim oMail, oConfig, oConfigFields
set oMail = Server.CreateObject("CDO.Message")
set oConfig = Server.CreateObject("CDO.Configuration")
set oConfigFields = oConfig.Fields
with oConfigFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = SMTPSendUsing
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPServerPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUser
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPassword
.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update
end with
oMail.Configuration = oConfig
oMail.Subject = sSubject
oMail.From = sFrom
oMail.To = sEmail
oMail.HTMLBody = sMailBody
oMail.Send
set oMail=nothing
sMsg = "Message Sent"
if Err.Number > 0 then sMsg = "ERROR: " & Err.Description
Response.Write sMsg
%>
Si le message test a été reçu par le compte e-mail avec lequel vous avez remplacé destinataire@exemple.com dans l'exemple ci-dessus, vous pouvez maintenant adapter le script pour qu'il corresponde mieux à votre utilisation, par exemple en remplaçant les valeurs sSubject et sMailBody.