Exemple d'une fonction pour envoyer des e-mails avec CDO en ASP

J'ai fait cette fonction pour envoyer constamment des emails depuis les formulaires de mes pages en ASP, je n'ai donc qu'à créer un fichier et l'inclure pour envoyer des emails en ASP.

Fonction SendMail (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
SUR ERREUR REPRENDRE SUIVANT

 'Envoyer un SMS en utilisant l'authentification sur un serveur SMTP

 Const cdoSendUsingPickup = 1 'Envoyer un message à l'aide du service de collecte de répertoire local SMTP
Const cdoSendUsingPort = 2 'Envoyer en utilisant le réseau, SMTP sur le réseau

 Const cdoAnonymous = 0 'Ne pas authentifier
 Const cdoBasic = 1 'Authentification de base (texte brut)
 Const cdoNTLM = 2 'NTLM

 Définir objMessage = CreateObject ("CDO.Message")
 objMessage. Sujet = problème
 objMessage. De = f nom de l'expéditeur & ""
 objMessage. À = femailpara
 objMessage. Cci = fbcc
 objMessage. Corps de texte = fmessage
 SI fadjoint <> "" ALORS
 objMessage. AddAttachment fadjoint
 FIN SI

 '== Ici, vous configurez le serveur SMTP.

 objMessage. Configuration. Des champs. Article _
 ("

 SendEmail = femailpara & ","

Fonction de fin
%>