Salut, j'essaie d'envoyer des mails contenant plusieurs pièces jointes. Pour l'instant j'utilise le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
With rdSafeItem
    .Subject = Me.Sujet
    .Body = str_body
    .Recipients.Add (rct_cci("EmailProfessionnel")) 
    .Attachments.Add Me.CheminsFichiers.Value
    .Send
End With
avec Me.CheminsFichiers un contrôle, alimenté comme suit :

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
Dim Fd As FileDialog
Dim Path As String
 
Set Fd = Application.FileDialog(msoFileDialogOpen)
With Fd
.AllowMultiSelect = False ' multisélection interdite
.InitialView = msoFileDialogViewDetails
.InitialFileName = "C:\"
If .Show = -1 Then
Path = .SelectedItems(1) ' mémorisation du fichier sélectionné
Else
Exit Sub
End If
End With
Set Fd = Nothing
If IsNull(Me.CheminsFichiers) Then
Me.CheminsFichiers = Path
Else
Me.CheminsFichiers = Me.CheminsFichiers & ";" & Path
End If
voilà, donc j'ai essayé de séparer les chemins des fichiers par des ";" mais ça ne marche pas quand il y a + d'1 fichier. Une idée?
Merci
Pierre