begin process at 2010 02 10 05:59:07
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

E-mail

 > ENVOIE MAIL EN SMTP DEPUIS WINDOWS 2003 / ASP SANS COMPOSANT

ENVOIE MAIL EN SMTP DEPUIS WINDOWS 2003 / ASP SANS COMPOSANT


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :E-mail Classé sous :mail, envoi, smtp, identification, email Niveau :Expert Date de création :26/01/2005 Vu :20 717
Auteur : lord mathius

Ecrire un message privé
Site perso
Commentaire sur cette source (20)
Ajouter un commentaire et/ou une note

 Description

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

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

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.


 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) HIDDENEMAIL : MASQUER VOS EMAILS AUX ROBOTS par sebmafate
Source .NET (Dotnet) C# - FONCTION TRÈS SIMPLE POUR ENVOYER UN MAIL VIA SMTP par fabrice69
Source .NET (Dotnet) ASP.NET - ENVOYER UN MAIL AVEC JMAIL.NET par epetegnief
Source .NET (Dotnet) CLASS : NEWSLETTER AVEC OPTIN par vladam
Source avec Zip E-MAIL EN JMAIL SIMPLE ET EFFICACE + FORMULAIRE par GillesWebmaster
Toutes les sources de la catégorie E-mail

 Sources en rapport avec celle ci

Source .NET (Dotnet) C# - FONCTION TRÈS SIMPLE POUR ENVOYER UN MAIL VIA SMTP par fabrice69
Source avec Zip E-MAIL EN JMAIL SIMPLE ET EFFICACE + FORMULAIRE par GillesWebmaster
Source avec Zip Source .NET (Dotnet) TENIR VOS VISITEURS INFORMÉS DE LA DISPONIBILITÉ D'UNE PAGE ... par li9
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOI D'UN MAIL EN ASP.NET (GARANTIE 100% ET TRÈS SIMPLE) par CBphoenix
Source .NET (Dotnet) ENVOYER UN MAIL EN ASP.NET par everest

Commentaires et avis

Commentaire de GillesWebmaster le 26/01/2005 15:19:22

oui ta source est très rare mais éficace, à condition de posséder un server windows 2003!!!
Source excellente!
G_____

Commentaire de Jackboy le 26/01/2005 15:25:00

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

Commentaire de lord mathius le 26/01/2005 16:42:12

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

Commentaire de JPP80FR le 27/01/2005 20:50:13

pourquoi ne metre vous pas les fichier en ligne

Commentaire de Nurgle le 27/01/2005 21:15:59 administrateur CS

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)

Commentaire de lord mathius le 28/01/2005 11:22:43

Merci nurgle pour le compliment et le complement d'infos.

Par contre jpp80fr, j'ai pas compris la question ?
vous voulais que je fasse quoi ? metre un zip a dispo ?

Commentaire de JPP80FR le 28/01/2005 13:20:33

oui c'est sa, avec mes remercinemt

Commentaire de lord mathius le 28/01/2005 15:14:19

bin je vois pas ce que je peut metre dans le zip, le code s'arrete a ce que j'ai ecrit, il y a rien d'autre, pas d'images pas de fichiers joint rien,  alors que metre ?

merci

Commentaire de ipfixe le 15/09/2005 16:58:16

y'en a des touristes, si c'est pour ne pas reecrir tout le code un coup de bloc note arrangera tout cela :)

Commentaire de toutnickel le 18/02/2006 11:53:28

Bonjour,
ben si quelqu'un pouvait mettre un formulaire avec les variables qui vont bien se serait super sympa, il n'y aurait plus qu'a mettre le formulaire en ligne sur son site,l'utilisateur n'a plus qu'a remplir les champs et envoie.
qui s'y colle ?

Commentaire de tom le 11/04/2006 15:34:20 administrateur CS

ben toi, t'as l'air bien motivé... Non? ^^

Commentaire de softghost le 15/04/2006 16:36:03

bonjour et merci lord mathius  pour le code il est manifique .
ca marche tres bien pour moi une seule fois .

c bizare mais ..... je sais pas quoi dire je vais chercher encore
merci pour le code

Commentaire de BertrandSuvee le 15/11/2006 14:08:00

Bonjour et merci pour ton code
j'ai bien compris toute la syntaxe, mais je me heurte a un problème de sécurité.
Lors de l'instruction send je recois un message d'accès non autorisé.
Il s'agit d'un problème de droits, mais je ne trouve aucune information précise à ce sujet.  (envoi via MsExchange sur un srveur 2003).  
Peut être avez vous eu ce problème et trouvé comment le résoudre?

Commentaire de lord mathius le 12/12/2006 14:46:15

Bonjour,

Desolé pour cette reponse tardive, mais j'ai pas vu que j'avais un nouveau message,

pour ton souci via exchange, en fait tu peut entré les champs
     .Item(cdoSendUserName) = "LOGIN"
     .Item(cdoSendPassword) = "Mot De Passe"
en definissant les champs de connexion. ( j'ai tester sur mon exchange, ca marche) sinon tu peu aussi declaré ton exchange autorise la machine ou est le serveur web a routé par lui sans auth

Sinon tu peux utiliser le repertoire Pickup dans ton arbo exchange ( VS1\mailroot\pickup)
dans ce cas la, il te faut ecrire une fichier avec l'extention .eml ( en ce moque du nom en fait ) et ecrire un message tipiquement formater en SMTP , seul souci, c'est que pour envoyer des pieces jointe bin tu va t'amuser a la transformé en UTF7

a plus

Commentaire de BertrandSuvee le 15/12/2006 13:52:04

Super Merci de ta réponse,

En fait j'utilisai le Login administrateur pour me connecter, mais c'etait probablement le seul a ne pas pouvoir envoyer de mail  (?????)
J'ai donc crée un User MailSender lié avec profil Exchange qui me sert juste a me connecter et a avoir une adresse from .

L'envoi fonctionne Nickel.


Commentaire de sahliali le 30/01/2007 18:58:30

excellent code ... chapo :):):):)

Commentaire de dadbn le 04/09/2007 10:39:02

Tout simplement génial !

Commentaire de lolandco le 31/10/2007 16:53:04

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 ?

Commentaire de lolandco le 31/10/2007 17:18:11

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.

Commentaire de deply le 18/01/2008 01:12:35

Fantastique, quel bonheur, merci.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

envoi de mail via cdonts et smtp...mail se retrouve dans badmail [ par VB ] qui connais un site sur la config smtp de iis car moi j'ai des messages qui sont dans le répetoire badmail quand j'envoi un mail ...???sinon ce serais envoi un mail via ASP.NET [ par franckydeluka ] Bonjour tous ,J'aimerais pouvoir envoyer un mail depuis mon appli ASP.NETVoilà j'aimerais savoir comment m'y prendre :Depuis l'entreprise j'ai à dispo envoi email [ par scottmat ] Bonjours à tous,a la création d'un compte membership on peut envoyer un mail pour confirmer une inscription.dans le composant createuser j'ai ajouter Envoi d'un mail en asp.net 2.0 en html [ par jubourbon ] Bonjour à tous, apres de longue heure de recherche sur le net, j'ai enfin trouvé comment specifié les parametres d'authentification pour l'envoi de ma envoi d'un mail automatique sous format html en asp.net c# [ par coccolata ] salut,je voudrais envoyer un mail automatique, j'utilise visual studio.net 2005 (en c#)mon problème est :1) mon email est en format html, les balises Envoi d'un formulaire vers une adresse mail [ par atino ] Bonjour à tous,j'ai créé un formulaire sur une page aspx avec differents TextBox et un bouton Envoyer.je voudrai que le contenu des TextBox soient env Formulaire de contact [ par wydad10 ] Bonjour,Je veux que les membres de mon site quand ils s'inscrient un mail sera envoyer a leurs adresse email,et voici  mon code.Espérant que que Envoi des e-mail regroupé [ par younesway ] Bonjour, J'ai une feuil Excel qui porte 800 adress mail, je suis senser de faire envoyer chaque samedi un message à chaque adress et le tout doit êt Envoi d'un e-mail [ par Gapan ] Bonjour, Je suis un novice en ASP.NET, et je dois développer pour un projet un site dans ce langage. J'ai un léger problème qui concerne l'envoi d'e- Pb envoi de mail asp.net [ par DOLLEL ] Bonjour, J'ai un problème d'envoi de mail par un code aspx. des pages asp utilisent ce même serveur pour envoyer des mail sans pb. j'ai donc installé


Nos sponsors


Sondage...

Comparez les prix


Console Nintendo Wii
Entre 220€ et 307€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,811 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)