Envoi de mail via iis : cdonts.dll et cdosys.dll

0/5 (13 avis)

Snippet vu 22 754 fois - Téléchargée 39 fois

Contenu du snippet

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 / Exemple :


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.

A voir également

Ajouter un commentaire Commentaires
matrey Messages postés 399 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 6 septembre 2004
5 janv. 2003 à 21:04
En ASP ok, mais sinon çà à pas d'intérêt...
cs_jackky Messages postés 50 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 6 juillet 2003
22 mars 2003 à 04:33
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!
Clem2k Messages postés 10 Date d'inscription lundi 25 mars 2002 Statut Membre Dernière intervention 7 avril 2003
22 mars 2003 à 10:20
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.
vivi222 Messages postés 6 Date d'inscription mardi 22 juillet 2003 Statut Membre Dernière intervention 6 août 2003
6 août 2003 à 15:10
Bonjour, j'ai un soucis.... mes mails restent coincés dans la queue et ne vont pas jusqu'a mon destinataire..... :(
HELP....
cs_oda Messages postés 3 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 11 mars 2004
12 août 2003 à 17:06
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.

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.