Discussion :

[bigounet]

Bonjour à tous et à toutes.

Actuellement, je sais envoyer un mail avec un report en pièce jointe. Mais, suite à une amélioration de mon formulaire, je souhaiterais pouvoir envoyer un 2ème report en pièce jointe.
Je m'explique. J'ai mis 2 champs date (début et fin de mission) et si la mission se déroule en une journée, pas de soucis, c'est ce que j'ai actuellement, un seul report en pièce jointe.
Mais, si la mission se déroule en 2 ou plusieurs jours, je devrais ajouter un 2ème report en pièce jointe. Et c'est là que je bloque.
Bien sur, je pourrais envoyer 2 e-mail différents avec les pièces jointes différentes (Report A et pour l'autre mail, report B). Mon but serait d'envoyer le report A et le report B en format "rtf" dans le même mail.
Si quelqu'un connait une procédure, je suis preneur.
En vous remerciant.

Francis

[loufab]

Bonjour,

Quelle méthodes tu utilises ?
As-tu le bout de code ?

Merci de donner plus de précision. Les arts divinatoires ne sont pas applicables ici.

Cordialement,

[bigounet]

voici le code que j'utilise pour envoyer un mail avec 1 pièce jointe.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Command51_Click()
 
On Error GoTo Err_Command51_Click
 
    Dim stDocName As String
    Dim texte As String
    Dim mission As String
    Dim Chef_mission As String
    Dim collectif As String
 
    Chef_mission = Forms![fm-demande OM]![Text2]
    mission = Forms![fm-demande OM]![Text10]
 
 
    'Détermine si la demande est individuelle ou collective
    If Forms![fm-demande OM]![Text29] > 0 Then
        collectif = "collectif"
        Else
        collectif = "individuel"
    End If
 
    'texte inséré dans le corps du mail
    texte = "1- La demande d'ordre de marche doit d'abord être envoyée à votre chef de peloton." & _
    vbCrLf & "2- Après l'accord de votre chef de peloton, le mail sera transféré au bureau cie." & _
    vbCrLf & " " & _
    vbCrLf & Chef_mission & " - demande d'ordre de marche " & collectif & " pour la mission ... " & mission
    stDocName = "Demande ordre de marche"
    DoCmd.SendObject acSendReport, stDocName, "rtf", "adresse mail de votre chef / adjoint de Pl, boîte mail de Sv Pl", , , "Demande d'ordre de marche " & collectif, [texte], True 'envoie en PJ sous forme HTML
Exit_Command51_Click:
    Exit Sub
 
Err_Command51_Click:
 
    Select Case Err.Number
        Case 2501
            MsgBox "Envoi du mail annulé"
    Exit Sub
    Case Else
        MsgBox Err.Number & " : " & Err.Description
 
    End Select
 
 
    Resume Exit_Command51_Click
 
End Sub

[loufab]

Utilises plutôt cette méthode elle est plus flexible.

http://access.developpez.com/faq/?pa...ailPieceAttach