begin process at 2012 02 14 15:18:35
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

OLE, DDE, Automation

 > ENVOI DE MAIL VIA IIS : CDONTS.DLL ET CDOSYS.DLL

ENVOI DE MAIL VIA IIS : CDONTS.DLL ET CDOSYS.DLL


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :OLE, DDE, Automation Niveau :Expert Date de création :13/11/2002 Date de mise à jour :13/11/2002 13:55:39 Vu :19 628
Auteur : Clem2k

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

 Description

Pour executer le code suivant vous devez etre impérativemet sous NT (4 ou 2000) car il faut les DLL cdonts.dll ou cdosys.dll
Pour rajouter ces DLL allez dans projet/référence et ajoutez cdonts.dll
Le code ici marche que vous soyez en NT4 ou 2000 car j'utilise cdonts.dll , l'autre dll est spécifique à windows 2000 et ne marchera pas sous NT4.
Vous pouvez créer une fonction en lui passant les paramètres, c'est plus judicieux et réutilisable, mais la syntaxe ne change pas.
Votre mail se retrouvera dans IIS : inetpub/mailroot/queue et sera traité par votre serveur.
VOUS N'AVEZ PAS BESOIN D'OUTLOOK OU UNE AUTRE MESSAGERIE POUR LE FAIRE PARTIR.

Source

  • Sub EnvoyerMail()
  • Dim MyMail As CDONTS.NewMail
  • Set MyMail = New CDONTS.NewMail
  • MyMail.From = Expediteur
  • MyMail.To = Destinataire
  • MyMail.Subject = Sujet
  • MyMail.Cc = CopieCarbonne
  • MyMail.Bcc = CopieCarbonneCachee
  • MyMail.BodyFormat = CdoBodyFormatHTML
  • MyMail.Body = CorpsDuMessage
  • MyMail.AttachFile MonFichier
  • MyMail.Send
  • End Sub
Sub EnvoyerMail()
Dim MyMail As CDONTS.NewMail
Set MyMail = New CDONTS.NewMail

MyMail.From = Expediteur
MyMail.To = Destinataire
MyMail.Subject = Sujet
MyMail.Cc = CopieCarbonne
MyMail.Bcc = CopieCarbonneCachee
MyMail.BodyFormat = CdoBodyFormatHTML
MyMail.Body = CorpsDuMessage
MyMail.AttachFile MonFichier

MyMail.Send

End Sub

 Conclusion

Ce code est aussi utilisable en ASP en faisant au niveau des deux lignes de declaration :
Dim MyMail
Set MyMail=server.createObject(CDONTS.newmail)

Et ca roule ...
Envoyez des commentaires, si vous avez des envies de code demandez ce sera un plaisir.


 Sources du même auteur

TABLEAU DE CORRESPONDANCES TYPES DE DONNÉES --> CODES ADO
Source avec Zip SCANNER + IMPRIMANTE = PHOTOCOPIEUR
Source avec Zip Source avec une capture RESOLVEUR DE DNS
ADO CONNECTION STRING GENERATOR
ENVOI DE MAIL GRACE À UN WINDOWS SERVER
Toutes les sources de Clem2k

 Sources de la même categorie

IMPORTATION DANS EXCEL DE DONNÉES D'UNE SOURCE AS400 (I5, IS... par Godzestla
Source avec Zip Source avec une capture Source .NET (Dotnet) EXCELDOTNET : PROGRAMMER EXCEL EN DOTNET SANS VBA NI VSTO par Patrice99
Source avec Zip Source avec une capture AJOUTEZ VOTRE COMPLÉMENT À VISUAL BASIC 6 SANS ÊTRE CONTRAIN... par VBsearch
Source avec Zip PILOTER ACROBAT READER DEPUIS EXCEL ET VBA par jpduf
Source avec Zip Source avec une capture INTERCEPTER DES APPELS DE METHODE (SURCHARGE DE VTABLE) par Renfield
Toutes les sources de la catégorie OLE, DDE, Automation

Commentaires et avis

Commentaire de matrey le 05/01/2003 21:04:00

En ASP ok, mais sinon çà à pas d'intérêt...

Commentaire de jackky le 22/03/2003 04:33:13

salut

il manquerais pas quelque chose a ton code??? un .bas par exemple! car jai une erreur sur la ligne : Dim MyMail As CDONTS.NewMail

ca me dis erreur de compilation, type defini par lutilisateur non defini
je suis sur win 2000 pro  

merci!

Commentaire de Clem2k le 22/03/2003 10:20:21

Il doit juste te manquer la déclaration de ta DLL. Il ne manque pas de fichier rassure toi. Va dans le menu PROJET / Référence et ajoute la DLL CDONTS.DLL (ou CDOSYS.DLL) tu devrai la trouver sous la dénomination "Microsoft CDO for NTS 1.2 Library" ou pour CDOSYS "Microsoft CDO for Windows 2000 Library" si ces DLL sont enregistrées sur ton windows.

Commentaire de vivi222 le 06/08/2003 15:10:37

Bonjour, j'ai un soucis.... mes mails restent coincés dans la queue et ne vont pas jusqu'a mon destinataire..... :(
HELP....

Commentaire de oda le 12/08/2003 17:06:59

Moi aussi le message est stocké dans le repertoire "Queue".
il y a 2 fichiers dont un qui indique :
Connection to adresse.fr failed. No Ip address found from xxx.xxx.fr-999.99.99.99 nom@adresse.fr Server received Winsock error Host not found.

Commentaire de Clem2k le 12/08/2003 17:34:43

Alors il faut d'abord etre sous une machine équipée d'un serveur IIS qui marche ... pour vérifier : avez vous un Windows 2000 PRO ou Server, ou XP PRO ... si c'est pas le cas, c'est normal que ca marche po ... sinon il faut vérifier dans les params de IIS que tout est bien configuré au niveau du server SMTP ... pour ca jetez un oeil chez Cro$oft ils ont une bonne doc ... a plousse.

Commentaire de Clem2k le 12/08/2003 17:37:06

Autre info : pour bien tester si ca marche au niveau de IIS, créez un mail avec Outlook par ex, enregistrez le en brouillon, avec un cliquer glisser, passez le dans le rep queue et regardez si il part ... si il part pas c que le server SMTP est po en bon etat ...

Commentaire de oda le 13/08/2003 09:42:01

Concernant le test, le mail est toujours dans le repertoire QUEUE.
Comment et quels sont les parametrages a apporter ?

Commentaire de Clem2k le 13/08/2003 09:58:57

Alors il faut aller dans la console d'administration IIS (clic droit poste de travail, gérer) en suite : services et application / services internet / serveur virtuel SMTP par défaut / Domaine, et là il faut vérifié que tu as un domaine valide : tu vérifie la configuration de l'existant, si tu as des doutes, créé une redirection sur un domaine distant, avec les bons params SMTP, pour plus d'infos la dessus jete un oeil chez CroSoft : http://support.microsoft.com/default.aspx?scid=kb;fr;303701

Commentaire de Arnaud36 le 03/10/2003 17:22:17

J'utilise le même code mais au moment d'effectuer le "send" il me mais l'erreur suivante :
             Erreur d'execution 429
             Le composant ActiveX ne peut créer l'objet

Commentaire de mercier le 03/11/2003 10:07:59

J'utilise le meme code. j'ai l'erreur 438 : cet objet ne gère pas cette propriété ou methode.
Je suis allée dans la console d'administration IIS :services et application / services internet/ et je n'ai que
-Site FTP par defaut
-Site web par defaut
- site web d'administration.
cela peut il venir du fait de ma configuration IIS ?

ps : clem c flo du dess

Commentaire de zeunz le 19/04/2004 09:40:04

et sous nt4 ca marche? car ds mes ref. je n'ai pas les dll indiquées...

Commentaire de lmoktar le 14/11/2005 17:05:12

J'ai une erreur si je crée un fonction avec :

Dim MyMail
Set MyMail=server.createObject(CDOSYS.newmail)

avec la dll cdosys déclarée.
Merci

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Renewable Energy is Within Reach
Photo Water in the Beginning of the Grand Canyon 

Visiter la photothèque
 
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 : 1,264 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)