ENVOI DE MAIL GRACE À UN WINDOWS SERVER

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