Envoi de mail via iis : cdonts.dll et cdosys.dll
Soyez le premier à donner votre avis sur cette source.
Snippet vu 22 060 fois - Téléchargée 36 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.
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.
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
- Cdonts.dll
- Cdosys - Meilleures réponses
- Cdosys.dll - Meilleures réponses
- Visual Basic / VB.NET : Envoie de mail en utilisant cdont du serveur iis - CodeS SourceS - Guide
- Envoi de mail via lotus notes - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Visual Basic / VB.NET : Envoi de mail via un composant com/activex - CodeS SourceS - Guide
- Visual Basic / VB.NET : Envoyer des mails via lotus notes - CodeS SourceS - Guide
- Envoi de mail via mirc (tout basique, pour apprendre a le faire) - Codes sources - IRC (Réseau & Internet)
Commentaires
Dim MyMail
Set MyMail=server.createObject(CDOSYS.newmail)
avec la dll cdosys déclarée.
Merci
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
Erreur d'execution 429
Le composant ActiveX ne peut créer l'objet
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.