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

Aspic / by admin / July 04, 2021

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 _
("

instagram story viewer

https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Nom ou IP du serveur SMTP distant
objMessage. Configuration. Des champs. Article _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" localhost "

'Type d'authentification, AUCUN, De base (encodé en Base64), NTLM
objMessage. Configuration. Des champs. Article _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Votre ID utilisateur sur le serveur SMTP
objMessage. Configuration. Des champs. Article _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" UTILISATEUR "

'Votre mot de passe sur le serveur SMTP
objMessage. Configuration. Des champs. Article _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" MOT DE PASSE "

'Port du serveur (généralement 25)
objMessage. Configuration. Des champs. Article _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Utiliser SSL pour la connexion (False ou True)
objMessage. Configuration. Des champs. Article _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Faux

'TIMEOUT en secondes, le temps maximum que CDO essaiera d'établir une connexion avec le SMTP
objMessage. Configuration. Des champs. Article _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. Configuration. Des champs. Mettre à jour

'== Terminer la configuration SMTP ==

objMessage. Envoyer

SendEmail = femailpara & ","

Fonction de fin
%>

Nuage de balises

Aspic

Notation

Vues

Commentaires