Aujourd'hui, je développe des messages utilisateur. Une copie est stockée dans la base de données et l'autre copie doit être envoyée à une boîte aux lettres spécifiée. Je ne sais pas si le serveur la prend en charge, les informations du message seront envoyées. envoyer un e-mail. Tout d'abord, il doit y avoir une déclaration On Error Resume Next
Essayez ensuite l'exemple de reprise de jmail :
Faible JMail
Définir JMail=Server.CreateObject(JMail.Message)
Portez un jugement sur l'instance. Si le composant n'est pas installé correctement, aucune instance n'est créée :
Si JMail n'est rien alors
Response.Write n'est pas pris en charge
Autre
Prise en charge de Response.Write
Fin si
Les autres composants sont traités de la même manière, ce qui est très simple.
Il est préférable de le gérer dans le fichier global, afin que vous n'ayez pas à vous en soucier lorsque vous l'utilisez.
La meilleure façon est de mettre la génération d’e-mails dans un tableau puis de parler de son envoi.
Copiez le code comme suit :
Fonction IsObjInstalled(strClassString)
En cas d'erreur, reprendre ensuite
IsObjInstalled = Faux
Erreur = 0
DimxTestObj
Définir xTestObj = Server.CreateObject(strClassString)
Si 0 = Err Alors IsObjInstalled = True
Définir xTestObj = Rien
Erreur = 0
Fonction de fin
Code du jugement :
si IsObjInstalled(JMail.Message)=True alors{
si IsObjInstalled(JMail.Message) =True alors
SendStat = Jmail(***@vevb.com, message client provenant d'Internet, <html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>Message de l'utilisateur du site Web</title></head><body>Personne du message : &txtname&<br>Sexe : &xingbie&<br>Site Web de conseil : &txtweb&<br>Coordonnées : &txttel&<br>Contenu du message :&suite ent&<br>Adresse IP :&adresse IP&<br>Heure du message :&now()&<br><br>Cet e-mail est automatiquement envoyé par le système, aucune réponse n'est requise<!--Script Home www.vevb.com-- ><br ><br></body></html>,GB2312,text/html)
finir si
}
fonction d'envoi de jmail
Copiez le code comme suit :
' =============================================
'jmail envoie un email
' =============================================
Fonction Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'Paramètres d'entrée :
' mailTo adresse e-mail du destinataire
'mailTopic sujet de messagerie
' corps de l'e-mail mailBody (contenu)
' jeu de caractères de messagerie mailCharset, tel que GB2312 ou US-ASCII
' Format de corps d'e-mail mailContentType, tel que text/plain ou text/html
'Valeur de retour :
' La chaîne, OK sera renvoyée après une transmission réussie, un message d'erreur sera renvoyé en cas d'échec.
'Usage:
' 1) Définissez la constante, c'est-à-dire la variable commençant par Const
'2) Utilisez un code similaire à celui-ci pour envoyer un message
'Dim EnvoiStat
'SendStat = Jmail([email protected], test Jmail, ceci est une lettre test !, GB2312, text/html)
'Réponse.Écrire SendStat
'******************Définissez les constantes nécessaires pour démarrer******************
Dim ConstFromNameCn, ConstFromNameEn, ConstFrom, ConstMailDomain, ConstMailServerUserName, ConstMailServerPassword
ConstFromNameCn = Nom chinois de l'expéditeur de Lottery Network (utilisé lors de l'envoi d'e-mails chinois), tel que « Zhang San »
ConstFromNameEn = bc5'Le nom anglais de l'expéditeur (utilisé lors de l'envoi d'e-mails en anglais), tel que « zhangsan »
ConstFrom = [email protected]', adresse e-mail de l'expéditeur, telle que « [email protected] »
ConstMailDomain = adresse du serveur SMtp de smtp.163.com, telle que smtp.163.com
ConstMailServerUserName = nom de connexion à la boîte aux lettres du serveur SMTP de [email protected], tel que « zhangsan ». Assurez-vous de faire correspondre l’adresse e-mail de l’expéditeur !
ConstMailServerPassword = mot de passe de connexion à la boîte aux lettres du serveur SMTP de www.vevb.com
'******************Définissez les constantes nécessaires pour terminer******************
'--------------------------------Le contenu suivant n'a pas besoin d'être modifié-------- -------- ---------------
En cas d'erreur, reprendre ensuite
Estomper monJmail
Définir monJmail = Server.CreateObject(JMail.Message)
myJmail.Logging = False'Logging
myJmail.ISOEncodeHeaders = Les en-têtes False'Mail n'utilisent pas l'encodage ISO-8859-1
myJmail.ContentTransferEncoding = base64'L'encodage du courrier est défini sur base64
myJmail.AddHeader Priority,3'Ajouter un en-tête de mail, ne le changez pas !
myJmail.AddHeader MSMail-Priority,Normal'Ajoutez l'en-tête du mail, ne le modifiez pas !
myJmail.AddHeader Mailer,Microsoft Outlook Express 6.00.2800.1437'Ajoutez un en-tête de courrier, ne le modifiez pas !
myJmail.AddHeader MimeOLE, produit par Microsoft MimeOLE V6.00.2800.1441'Ajoutez un en-tête de courrier, ne le modifiez pas !
monJmail.Charset = mailCharset
monJmail.ContentType = mailContentType
Si UCase(mailCharset) = GB2312 Alors
monJmail.FromName = ConstFromNameCn
Autre
monJmail.FromName = ConstFromNameEn
Fin si
monJmail.From = ConstFrom
monJmail.Sujet = mailTopic
monJmail.Body = mailBody
myJmail.AddRecipient mailTo
monJmail.MailDomain = ConstMailDomain
monJmail.MailServerUserName = ConstMailServerUserName
monJmail.MailServerPassword = ConstMailServerPassword
myJmail.Send ConstMailDomain
monJmail.Fermer
Définir myJmail = rien
Si erreur alors
Jmail=Err.Description
Err.Effacer
Autre
Jmail=OK
Fin si
En cas d'erreur, allez à 0
Fonction de fin