création d'un bouton envoyer par email

**smelweth** · 26/05/2012, 13h05

Bonjour,

Je suis novice dans access j'arrive pas à trouver ce qu il cloche

j'ai fais 2 bouton ¨

1 pour avoir l'impression d'un document qui s'appel ok

2 pour envoyer un email

3 pour annuler

le 1 et le 3 fonctionne mais le 2 j'y arrive pas

fomule sur bouton 1

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
 
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
    If Not IsLoaded("Commandes par client") Then
        MsgBox "Ouvrez le formulaire Impression de la facture à l'aide du bouton Aperçu du formulaire Commandes par client."
        Cancel = True
    End If
End Sub
 
 
Private Sub OK_Click()
    Me.Visible = False
End Sub
 
 
Private Sub Annuler_Click()
    DoCmd.Close acForm, "Impression de la facture"
End Sub
 
Private Sub envoyer_par_email_Click()
On Error GoTo Err_envoyer_par_email_Click
 
    Dim stDocName As String
 
    stDocName = "bondelivraison"
    DoCmd.SendObject acReport, stDocName
 
Exit_envoyer_par_email_Click:
    Exit Sub
 
Err_envoyer_par_email_Click:
    MsgBox Err.Description
    Resume Exit_envoyer_par_email_Click
 
End Sub

mais le bouton "email" m'en l'envois pas il me met un message d'erreur "utilisation incorrecte de null"

et si possible que ca me le mette directement en pdf..

merci d'avance de votre aide