- ' 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)
-
' 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)