Envoie mail en smtp depuis windows 2003 / asp sans composant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 27 437 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

Messages postés
1
Date d'inscription
vendredi 18 janvier 2008
Statut
Membre
Dernière intervention
18 janvier 2008

Fantastique, quel bonheur, merci.
Messages postés
2
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
31 octobre 2007

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.
Messages postés
2
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
31 octobre 2007

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 ?
Messages postés
18
Date d'inscription
lundi 25 août 2003
Statut
Membre
Dernière intervention
14 octobre 2012

Tout simplement génial !
Messages postés
90
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
3 juillet 2008

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.