1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Public Sub ap_SendMail(Optional ByVal sTO As String, Optional sCC As String, Optional ByVal sObj As String, Optional ByVal sMsg As String, Optional ByVal blnEdit As Boolean = True)
'___________________________________________________________________________
'Objectif :générer un eMail
'Paramètres :
' sTO As String destinataires
' sCC As String destinataires en copie
' sObj As String objet
' sMsg As String message
' blnEdit As Boolean = True ouvrir le message
'Commentaires : suppose un client de messagerie correctement configuré
' la syntaxe des destinataires doit être conforme à celles acceptée par le client de messagerie
' Sous Outlook, pour éviter la fenêtre de confirmation d'accès par outil extérieur,
' mieux vaut mettre blnEdit à True
'___________________________________________________________________________
On Error Resume Next
DoCmd.SendObject acSendNoObject, , , sTO, sCC, , sObj, sMsg, blnEdit
End Sub |
Partager