begin process at 2012 02 10 17:55:34
  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 :24 307
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 [ par mawsine ] salut , SVP je suis débutante en asp; je travaille avec ASP.net with c# : je veux que une fois on crée un utilisateur dans une base de données on lui Envoi mail avec pièce jointe [ par sowlas ] Bonjour tout le monde. J'ai un problème avec l'envoi de mail avec pièce jointe. j'ai une classe csharp dans laquelle j'ai implémente cette méthode: GESTION DES ALERTES [ par amaniz ] Bonjour, Est ce que quelqu'un peut m'aider des étapes et les outils a suivre pour faire ce sujet: Etude et développement d&#8217;une applicatio S'envoyer un mail [ par Byrong ] Bonjour Comment puis je faire pour que les gens sur le site puisse m'envoyer un mail? Si j'envoie le mail a partir du pc connecter sur le même route Email et accusé de lecture [ par Byrong ] Bonjour Avez-vous une idée pour ajouter l'accusé de lecture car la méthode "mail.Headers.Add("Destination-Notification-To", expediteur)" ne fonction envoi mail!! [ par Skyyyy ] loOl voila jaurai voulu faire une page avec un evoi de mail aune adresse donne sans passe par outlock ou autrevoici le shema deux textbox une pour met


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

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,780 sec (4)

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)