Discussion :

[Pittouti]

Bonjour,

je viens d'utiliser ce code, mais l'émail ne s’envoie pas en automatique, il manque juste d'appuyer sur le bouton envoyer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
On Error GoTo err
    DoCmd.SendObject acSendReport, "Analyse", _
        "PDF", "mmmm@gmail.com", , , "Analyse", _
        "Veuillez trouver l'analyse en pièce-jointe"
 
fin:
Exit Sub
 
err:
    If err.Number <> 2501 Then err.Raise err.Number, , err.Description
    Resume fin
End If

[Pittouti]

est ce que quelqu'un pourrait m'aider ?

je suis bloqué