Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 002 fois - Téléchargée 39 fois
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
EnvoiMail(??????)
j'ai pas la syntaxe qui va bien
Merci
L'objet CDONTS n'existe QUE sur NT ou 2k...
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.