Access bloqué avec Message sendobject a été annulée

**yieiyiei** · 18/11/2016, 15h02

Bonjour, quand je ferme la fenêtre pour envoi de mail afin d'annuler ET que le volet de gauche a été masqué dans les options j'ai le message : L'action SendObject a été annulée qui s'affiche et ensuite access ne répond plus.

Quand le volet est affiché, je n'ai pas le problème.

J'ai tâché d'intercepter l'erreur mais il me manque quelque chose je pense.

merci

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
 
Private Sub Email_Click()
 
Dim sExistingReportName As String
Dim sAttachmentName As String
 
   'Input variables
    sExistingReportName = "E_Nom"    'Name of the Access report Object to send
    sAttachmentName = "Demande"    'Name to be used for the attachment in the e-mail
 
    'The code to make it happen
    DoCmd.OpenReport sExistingReportName, acViewPreview, , "N°=" & Me.ID, acHidden
    Reports(sExistingReportName).Caption = sAttachmentName    'by changing the report caption
                                                        'you effectively change the name
                                                        'used for the attachment in the
                                                        '.SendObject method
 
Shell "explorer C:\Temp\", vbNormalFocus 'ouvre dossier
 
On Error GoTo err
 
DoCmd.SendObject acSendReport, sExistingReportName, _
        "PDF", "...@...", , , "Demande" & Reports!E_Nom.[Article], _
        ""
 
DoCmd.Close acReport, sExistingReportName
 
fin:
Exit Sub
 
err:
    If err.Number <> 2501 Then err.Raise err.Number, , err.Description
    Resume fin
 
End If
 
End Sub