Vous devez être membre et vous identifier pour publier un article.
Les visiteurs peuvent toutefois commenter chaque article par une réponse.
ENVOIE MAIL EN SMTP DEPUIS WINDOWS 2003 / ASP SANS COMPOSANT
![Astuces de l’Infobrol (Développement)](https://www.gaudry.be/img/nz/astc_17.gif)
Pour faire plaisir à Steph, ce code permet d'envoyer depuis un server ASP windows 2003 un mail sans composant suplement via un serveur mail SMTP avec controle d'identification.
![;-)](https://www.gaudry.be/img/smiley/icon_cool.gif)
Code asp (46 lignes)
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "ServerSmtp" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 20 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "LOGIN" .Item(cdoSendPassword) = "Mot De Passe" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "Adresse Mail destinataire" .From = "Adresse Mail emetteur" .Subject = "Sujet du mail" .TextBody = "Contenu du message a envoyer " .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing
![Avatar :: Akira Sato Avatar :: Akira Sato](https://www.gaudry.be/img/users/forum_2001/upload/69c992a2cbd5405f03cf716c1744c177_188.gif)
Source : www.aspfr.com
![Commenter l'article](https://www.gaudry.be/img/nz/btn_rep.gif)
Commentaires
09/05/2005 22:27:34 : Pas clair...
J'ai essayé de modifier ton message pour corriger l'orthographe, mais je ne comprend pas le sens de la première phrase ????
Tu sais le recomposer?
Merci.
- Lea72 -
Document créé le 13/09/2004, dernière modification le 26/10/2018
Source du document imprimé : https://www.gaudry.be/ast-rf-196.html
L'infobrol est un site personnel dont le contenu n'engage que moi. Le texte est mis à disposition sous licence CreativeCommons(BY-NC-SA). Plus d'info sur les conditions d'utilisation et sur l'auteur.