[AC-2007] Plantage de la base sur DoCmd.SendObject

[theuma]

Bonjour,
Je dois envoyé par mail de manière automatique (appui sur un bouton) un mail ou il doit y avoir un fichier PDF d'un état fait auparavant!
Problème! c'est que quand j'utilise la fonction DoCmd.SendObject l'application plante et je ne sais pas pourquoi! Pouvez vous m'aider ?
Voici le code que j'utilise

Code :

DoCmd.SendObject acSendReport, "BonCommande", acFormatPDF, "toto@hotmail.fr", , , "Bon de commande", "Tata"

Je ne vois pas pourquoi dès que j'appui sur le bouton envoi de outlook tout plante !!!

[reedy]

Bonjour,

Est ce que ça marche sans le pdf?
As tu integré le complement PDF dans access?
Je sais que la generation d'un état PDF n'existe pas en standard dans access 2007

cordialement

[theuma]

Oui j'ai bien ajouter la référence PDF, mais il me le génère car le mail je dois le confirmer avec outlook et donc en pièce jointe il y'a bien le fichier en PDF

[reedy]

As tu dèja reussi denvoyer un mail par sendobject ?
Essaye de faire un test sans piece jointe de preference via l'action de macro envoyer objet.
Tu peux aussi passer par d'autres techniques pour envoyer un email comme
outlook automation ou bien en utilisant la biblio ODS

cordialement

[theuma]

J'ai essayer avec la macro c'est identique, ca plante !!
C'est dommage de faire un code relativement compliqué alors qu'une fonction existe !!
Par contre sans objet ca ne plante pas ...
Il me fauderait un bout de code utilisant le SendObject savoir si j'oublie pas de fermer quelques chose ou quoi ...

[pop.paki]

J'ai le même problème que toi !

As tu trouvé une solution ?

[pop.paki]

Si vous cherchez encore la réponse la voici. A noter que la commande sendObject plante donc il faut reconstruire la méthode:

Code :

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
 
DoCmd.OpenQuery "R_PDF"
DoCmd.OpenForm "F_Propal_EnvoiMail"
DoCmd.OutputTo acOutputForm, "", acFormatPDF, "C:\Documents and Settings\David\Bureau\David\Projet\Temp\Proposition.pdf"
DoCmd.Close acQuery, "R_PDF"
 
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
 
With MonMessage
.To = Forms![Sites]![Contacts_editeurs]![Mail]
.Cc = "Mon mail"
.Subject = "Mon objet"
.BodyFormat = olFormatHTML
.HTMLBody = "<FONT FACE='Verdana' SIZE=-1>"texte"
.Attachments.Add "C:\Documents and Settings\David\Bureau\David\Projet\Temp\Proposition.pdf"
.Display
.Send
 
End With
 
DoCmd.Close acForm, "F_Propal_EnvoiMail"
DoCmd.Close acForm, "F_Creation_Propal"
 
Set MonOutlook = Nothing

Pour info:

R_Pdf est une requête qui me permet d'isoler un enregistrement sur un formulaire

F_EnvoiMailPropal est un formulaire qui me permet de mettre en forme mon pdf final

Forms![Sites]![Contacts_editeurs]![Mail] me permet de prendre directement le bon mail de ma table grâce au formulaire principal

1° le pdf est enregistré dans un dossier
2° je l'attache au mail

Enfin si vous ne voulez pas que le mail parte automatiquement il suffit d'enlever .Send

Voila