1. Accueil
  2. Tous les snippets
  3. Snippets ASP / ASP.NET
  4. Envoie mail en smtp depuis windows 2003 / asp sans composant

Envoie mail en smtp depuis windows 2003 / asp sans composant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 27 567 fois - Téléchargée 45 fois

Commenter

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
Signaler
Messages postés
1
Date d'inscription
vendredi 18 janvier 2008
Statut
Membre
Dernière intervention
18 janvier 2008
Fantastique, quel bonheur, merci.
Signaler
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.
Signaler
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 ?
Signaler
Messages postés
18
Date d'inscription
lundi 25 août 2003
Statut
Membre
Dernière intervention
14 octobre 2012
Tout simplement génial !
Signaler
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
S'inscrire maintenant

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.

Du même auteur (Lord Mathius)