Envoie mail en smtp depuis windows 2003 / asp sans composant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 27 341 fois - Téléchargée 44 fois

Contenu du snippet

Comme le titre est tres claire, il y a pas grand chose a ajouter, 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.

Source / Exemple :


<%

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  %>

Conclusion :


il ma fallu du temp pour le trouver, alors j'espere qu'il vous sera aussi utile cas moi.

A voir également

Ajouter un commentaire

Commentaires

GillesWebmaster
Messages postés
507
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
29 juillet 2009
1 -
oui ta source est très rare mais éficace, à condition de posséder un server windows 2003!!!
Source excellente!
G_____
cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
-
salut !

En premier lieux ces quoi ces constantes ex.: Const cdoSendUsingMethod= "http://schemas.microsoft.com/cdo/configuration/sendusing" ?????

En second lieux peut tu commenter un peu le code surtout la section du With Fields ?

merci
lord mathius
Messages postés
24
Date d'inscription
lundi 15 décembre 2003
Statut
Membre
Dernière intervention
24 novembre 2005
-
je suis dsl mais je peut pas commenté plus,

toute les infos que je possede sont mit dans le code
c'est a dire ou ce place le serveur smtp a utiliser
le login, le mot de passe, et le detail du mail a envoyer.

si j'avais plus d'info sur les elements en constante de debut je les metrais volontiers. mais comme c'est infos je l'ai est trouver telle quelle ( est avec grand mal ) je peut juste les rétribuer ainsi.

Merci
JPP80FR
Messages postés
29
Date d'inscription
samedi 23 octobre 2004
Statut
Membre
Dernière intervention
7 mai 2007
-
pourquoi ne metre vous pas les fichier en ligne
cs_Nurgle
Messages postés
1648
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
2 -
salut,
Microsoft possède en fait leur propre système d'envoi de mail, qu'il n'y a pas besoin d'installer sur le serveur mais qu'on peut appeler via ces constantes. Ces adresses http sont de petites applications web auquel on envoie une donnée (le mot de passe, le nom d'utilisateur...) et qui transforme ça en un script qui permet d'envoyer le mail par leur système SMTP uniquement !
C'est du grand art d'avoir trouvé ça ! (pas pour Microsoft, pour lord mathius)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.