Envoie mail en smtp depuis windows 2003 / asp sans composant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 27 798 fois - Téléchargée 46 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
deply Messages postés 1 Date d'inscription vendredi 18 janvier 2008 Statut Membre Dernière intervention 18 janvier 2008
18 janv. 2008 à 01:12
Fantastique, quel bonheur, merci.
lolandco Messages postés 2 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 31 octobre 2007
31 oct. 2007 à 17:18
Bon, finalement j'ai trouvé (merci google).
Au cas ou d'autres, aussi nuls que moi, chercherai cette info :
il suffit de remplacer .TextBody par .HTMLBody.
lolandco Messages postés 2 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 31 octobre 2007
31 oct. 2007 à 16:53
Bonjour et un grand merci Lord mathius pour cette contrib qui me "sauve la vie" :)

Je n'ais pas réussi à parametrer ce script pour envoyer les mails au format html, quelqu'un aurait-il la solution ?
dadbn Messages postés 18 Date d'inscription lundi 25 août 2003 Statut Membre Dernière intervention 14 octobre 2012
4 sept. 2007 à 10:39
Tout simplement génial !
sahliali Messages postés 90 Date d'inscription dimanche 14 septembre 2003 Statut Membre Dernière intervention 3 juillet 2008
30 janv. 2007 à 18:58
excellent code ... chapo :):):):)
Afficher les 20 commentaires

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.