En fait, ASP peut faire beaucoup de choses, mais les gens ne savent pas comment les utiliser. Microsoft fournit de nombreux composants prêts à l'emploi et utiles pour ASP, mais personne ne connaît ces composants, comme l'utilisation de CDO.Message pour envoyer des e-mails.
Qu’est-ce que CDO.Message ? Pour envoyer des emails sous Winnt et Win2k, vous devez utiliser CDONTS.NewMail. Le composant CDONTS.NewMail doit être enregistré. C'est très simple, exécutez simplement la ligne de commande regsvr32 Cdonts.dll sur le serveur et confirmez dans la fenêtre contextuelle. Utilisez CDONTS. Le service NewMail doit également avoir le smtp fourni avec ii. Avec Windows 2003, le système n'est plus livré avec le fichier Cdonts.dll, ne laissant qu'un fichier similaire, cdosys.dll. Bien sûr, ce fichier est également disponible dans win2k (nécessite l'enregistrement des composants), mais à quoi bon en 2003 ? Ce composant n'a pas besoin d'être enregistré manuellement, le système l'a automatiquement enregistré. Voyons maintenant comment utiliser ce composant.
<%
Dim cm
Définir cm=Server.CreateObject("CDO.Message")
'Créer un objet
cm.From=" [email protected] "
'Définir l'adresse e-mail de l'expéditeur
cm.To=" à@test.com "
'Définir l'adresse e-mail du destinataire
cm.Subject="J'ai trouvé un site Web qui vous permet de vous abonner au RSS en ligne. Plus besoin d'installer de logiciel à l'avenir."
'Définir le sujet de l'e-mail
'cm.TextBody=" http://www.downcodes.com/rss/ "
"Ce qui précède utilise un format de texte ordinaire pour envoyer des e-mails. Il ne peut s'agir que de texte et ne peut pas prendre en charge le HTML, il n'est donc pas utilisé ici.
cm.HtmlBody="Le lecteur de flux RSS en ligne est un système de lecture de nouvelles RSS en ligne."&_
"Il n'est pas nécessaire de télécharger et d'installer. Tant que vous vous inscrivez, vous pouvez disposer d'un système d'abonnement RSS en ligne et d'agrégation d'actualités aussi puissant que le logiciel."&_
"Peu importe où vous êtes, tant que vous avez accès à Internet, vous pouvez consulter vos abonnements préférés."&_
"Dépêchez-vous et inscrivez-vous : <a href=http://www.gbmad.net/rss/>http://www.gbmad.net/rss/</a>"
'Ce qui précède est le texte HTML que vous avez construit, comme ça Les e-mails que vous envoyez sont bien meilleurs que ceux contenant uniquement du texte. Ne dites pas que vous ne connaissez pas html'cm.AddAttachment
Server.MapPath("test.zip")
« Si vous devez envoyer une pièce jointe, utilisez la méthode ci-dessus pour joindre le fichier.
cm.Envoyer
'Enfin, bien sûr, exécutez l'envoi
Définir cm = Rien
'Lâchez l'objet immédiatement après l'envoi réussi.
Response.Write("Envoyer l'e-mail avec succès.")
%>