Discussion :

[Pouic1605]

Bonjour à tous.

Je cherche à envoyer automatiquement par mail toutes les pièces jointes du folder où se trouve la DB Access se terminant par "_P.csv".

Pour l'instant, j'ai un code VBA "classique qui ressemble à cela (https://www.experts-access.com/micro...en-vba-access/).

Le problème est que je dois faire une ligne Attachements.Add par pièce jointe et que cette liste de pièces jointes est censée évoluée dans le temps. Et j'aimerais éviter d'aller dans le code pour modifier ma liste de pièces jointes.

Merci pour votre aide.

[User]

Bonjour,

Vous pouvez à nouveau créer une procédure générique dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub attacherPJ(objOutlookMsg As Object, dossier As String)
    ' dossier : "c:\Mon_Dossier\
 
    fichier = Dir(dossier)
 
    ' parcours des fihciers du dossier
    While fichier <> ""
        cheminPJ = dossier & fichier ' chemin du fichier
        objOutlookMsg.Attachments.Add cheminPJ ' ajout de la PJ au mail
        fichier = Dir() ' fichier suivant
    Wend
 
End Sub

Ensuite vous l'exécuter dans votre code comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'...
objOutlookMsg.Subject = TxtSujet
objOutlookMsg.Body = TxtBody
'...
dossierPJ = "...\_P.csv\"
' dossierPJ = currentproject.path & \_P.csv\"
 
attacherPJ objOutlookMsg, dossierPJ
 
'...

Cdlt,

[Pouic1605]

Merci pour votre réponse, mais je rencontre quelques problèmes avec votre code.

Ici, ce que j'ai recopié de votre code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Sub AttacherPJ(objOutlookMsg As Object, dossier As String)
Dim Fichier As String, CheminPj as String 'Ajout car message d'erreur variable non définie
 
    dossier = CurrentProject.Path & "\"
    Fichier = Dir(dossier)
 
    While Fichier <> ""
        CheminPJ = dossier & Fichier
        objOutlookMsg.Attachements.Add CheminPJ
        Fichier = Dir()
    Wend
 
End Sub

Ici le code que j'utlise pour l'envoi du mail

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
19
20
 
Private Sub Command239_Click()
 
Dim objOutlook As Object, olmail As Object, objOutlookMsg As Object, DossierPJ As String 'Ajout car message d'erreur variable non définie
 
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
 
DossierPJ = CurrentProject.Path & "\_P.csv"
 
AttacherPJ objOutlookMsg, DossierPJ
With objOutlookMsg
    .To = EmailsDestinataires("Destinataires", "Mail", "To")
    .Cc = EmailsDestinataires("Destinataires", "Mail", "Cc")
    .Subject = "Files for xxx"
    .Body = "Please find attached the files for xxx"
    .display
 
End With
End Sub

En faisant, tourner la macro, j'ai un message d'erreur me disant que "DossierPJ" n'est pas défini. Je l'ai donc rajouté en Srring.
Je refais tourner le code, et j'ai encore variable non définie sur "Fichier" dans le 1er code. Je le rajoute alors dans le code en String.
Je refais tourner le code, et j'ai encore variable non définie sur "CheminPJ" dans le 1er code. Je le rajoute alors dans le code en String
Je refais tourne le code, et j'ai un message d'erreur "Run time error 438. Object doesn't support this property or method. Et il me surligne "objOutlookMsg.Attachements.Add CheminPJ"

Est-ce que vous auriez une idée de comment résoudre le problème ?
Je me pose aussi une question. Est-ce correct que DossierPJ = CurrentProject.Path & "\_P.csv" ? Dans mon current folder, j'ai plusieurs fichier dont ceux se finissant par _P.csv. (ex. aaa_P.csv, bbb_P.csv, aaaabbbb;csv, cccddd.xlsx, etc).

Merci pours vos réponses.

[User]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objOutlookMsg.Attachments.Add CheminPJ

Attachments et non Attachements (terme anglais)

[Pouic1605]

Merci pour la correction.
Maintenant cela tourne bien, mais le code met tous les fichiers du folder en pièce jointe pas uniquement ceux se finissant par "_P.csv".
Sauriez-vous comment corriger cela ?
Merci encore pour votre aide jusqu'à maintenant.

[User]

Dans la boucle de parcours des fichiers il faut mettre une condition pour ne sélectionner que ces fichiers pour l'attachement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'...
    While Fichier <> ""
        If Fichier Like "*_P.csv" Then
            CheminPj = dossier & Fichier
            objOutlookMsg.Attachements.Add CheminPj
        End If
        Fichier = Dir()
    Wend
'...

[Pouic1605]

Merci beaucoup pour votre réponse rapide.
Cela fonctionne parfaitement maintenant.