Discussion :

[bernard26]

bonjour
dans le code suivant j'envoi par mail un état résultant de la saisie d'un formulaire "bon de commande" et cela marche parfaitement.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Courriel_PDF_Click()
On Error GoTo Err_Courriel_PDF_Click
    DoCmd.OpenReport "Bon de commande", acViewPreview, "Filtre bon de commande"
    DoCmd.SendObject acSendReport, , "PDF", Me![Courriel], , , "Commande de Nouvel arrondissement", "Bonjour. Merci de bien vouloir me faire parvenir cette commande. Stella"
 
End
Exit Sub
 
Err_Courriel_PDF_Click:
If Err.Number <> 2501 Then Err.Raise Err.Number, , Err.Description

je souhaite pouvoir rééditer cet envoi à l'aide d'un formulaire qui me permet de choisir mon bon de commande . j'ai bien le pdf qui s'ouvre du bon de commande mais l'envoi bloque car il ne trouve pas la champ courriel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Courriel_PDF_Click()
On Error GoTo Err_Courriel_PDF_Click
 
    DoCmd.OpenReport "Bon de commande?", acViewPreview
    DoCmd.SendObject acSendReport, , "PDF", Me![Courriel], , , "Commande de Nouvel arrondissement", "Bonjour. Merci de bien vouloir me faire parvenir cette commande. Stella"
 
End
Exit Sub
 
Err_Courriel_PDF_Click:
If Err.Number <> 2501 Then Err.Raise Err.Number, , Err.Description
End Sub

je ne comprend pas pourquoi...
si j'enléve le champ courriel ..outlook s'ouvre mais je suis obligé de saisir l'adresse merci de votre aide....précieuse

[tee_grandbois]

Bonsoir,

l'envoi bloque car il ne trouve pas la champ courriel

as-tu vérifié que le champ courriel est bien associé à un contrôle de ton nouveau formulaire ?

[micniv]

Bonjour,
Si le champ courriel est bien renseigné. Alors sauvegarde la saisie avant d'envoyer le mail :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Courriel_PDF_Click()
On Error GoTo Err_Courriel_PDF_Click
 Me.refresh
    DoCmd.OpenReport "Bon de commande", acViewPreview
    DoCmd.SendObject acSendReport, , "PDF", Me![Courriel], , , "Commande de Nouvel arrondissement", "Bonjour. Merci de bien vouloir me faire parvenir cette commande. Stella"
 
End
Exit Sub
 
Err_Courriel_PDF_Click:
If Err.Number <> 2501 Then Err.Raise Err.Number, , Err.Description
End Sub

CDLT

[bernard26]

bonsoir

je reviens un peu tard, mais j'ai fini par trouvé. En réédition il me faut designer le non de l'état puisqu'il n'est pas ouvert par rapport au formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Courriel_PDF_Click()
On Error GoTo Err_Courriel_PDF_Click
 
    DoCmd.OpenReport "Bon de commande?", acViewPreview
    DoCmd.SendObject acSendReport, , "PDF", Reports![Bon de commande?]![Courriel], , , "Commande de Nouvel arrondissement", "Bonjour. Merci de bien vouloir me faire parvenir cette commande. Stella"
 
End
Exit Sub
 
Err_Courriel_PDF_Click:
If Err.Number <> 2501 Then Err.Raise Err.Number, , Err

merci d'avoir pris le temps de répondre