ATTENTION CE CODE NE FONCTIONNE QUE SUR UN WINDOWS SERVER (NT4 Server ou 2000 Server). Vous devez d'abord déclarer la dll qui se trouve dans le répertoire System32 CDONTS.DLL c'est elle qui vous permet de créer les objets mails. Pas de client de mail recquis.
Source / Exemple :
Public Sub EnvoiMail(From As String, SendTo As String, Message As String, _
Optional SendCC As String, Optional SendBCC As String, _
Optional Objet As String, Optional Priorite As Integer, _
Optional Fichier As String)
Dim i As Integer
Set myItem = New CDONTS.NewMail
'Extraction de la liste des fichiers joints
If Fichiers <> "" Then
myItem.AttachFile Fichier
myItem.To = SendTo
If SendCC <> "" Then myItem.Cc = SendCC
If SendBCC <> "" Then myItem.Bcc = SendBCC
If From <> "" Then
myItem.From = From
Else
myItem.From = App.Title
End If
If Message <> "" Then myItem.Body = Message
If Objet <> "" Then myItem.Subject = Objet
myItem.Importance = Priorite
myItem.Send
End Sub
Conclusion :
Bientot du code sur
http://www.clem2k.fr.st (en attendant ya plein de conneries dessus)
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.