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