Bonjour à tous,

je souhaiterais savoir s'il existe une fonction sous VBA qui permet de joindre les fichiers joint dans une table à un mail.


j'ai regardé un peu partout sur le forum, mais rien de pertinent sur ce sujet.

voici la fonction que j'utilise pour envoyer des mail via access (par défaut Outlook et le client de messagerie)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
merci de votre aide.