Envoie de mail en utilisant cdont du serveur iis

Description

Cette fonction est utile dans le cas de développement d'objet utilisé par IIS (par exemple pour des pages ASP). En effet les serveur IIS possèdent déja un système complêt d'envoie de mail (Objet Cdont).
Ce zip vous fourni la dll a mettre en réference dans votre VB6 (afin de pouvoir compiler le projet) ainsi qu'un exemple simple d'envoi de mail.

Source / Exemple :


' La fonction elle même est la suivante :

Function mail(adresse As String, sujet As String, message As String, origine As String)
' Fonction de mail

Set ObjMail = CreateObject("CDONTS.NewMail")
    ObjMail.From = origine
    ObjMail.To = adresse
    ObjMail.Subject = sujet
    ObjMail.Body = message
    ObjMail.Send

End Function

' A appeler simplement comme ceci :

Dim textMail As String, lorigine As String, adresseMail As String, lesujet As String, retour  As Integer

    textMail = "Test d'envoie du mail avec l'objet Cdont de Windows"
    lorigine = "testMailer@vbfrance.com"
    adresseMail = "fabrice_69@hotmail.com"
    lesujet = "test de l'envoie de mail"
    retour = mail(adresseMail, lesujet, textMail, lorigine)

Conclusion :


Utilisé pour mon besoin personnel dans le cas d'un développement d'un module pour un serveur Windows 2000.
Fourni si besoin à qui veut.

Romelard Fabrice (Alias F___)

Codes Sources

A voir également

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.