Sujet : [vb] Fonctions
je poste ici quelques fonctions que j'ai trouvé et modifier parfois et qui sont bien utiles
envoi de mail
Public Function mail(adresse As String, sujet As String, message As String, origine As String, MonFichier As String)
' Fonction de mail
Set objmail = CreateObject("CDONTS.NewMail")
objmail.From = origine
objmail.To = adresse
objmail.Subject = sujet
objmail.Body = message
objmail.AttachFile MonFichier
objmail.Send
End Function
Cette fonction nécessite l'utilisation de la dll CDONTS qui est par défaut avec un serveur IIS, si vous ne l'avez pas, telechargez la et executer ensuite la ligne suivante
regsvr32 cdonts.dll
cela aura pour effet de l'enregistrer aupres de votre os
Il vaut mieux mobiliser son intelligence sur des conneries que mobiliser sa connerie sur des choses intelligentes...