Bonjour,
alors voilà: j'ai un état sur lequel un bouton permet de l'envoyer par mail (je n'ai pas les mails référencés dans ma base, donc je veux passer par l'interface outlook et valider l'envoi du mail après avoir renseigné l'adresse). J'ai donc ce code:
Il fonctionne, mais si je veux faire la même opération après avoir actualisé mon rapport (sourcé sur qry variable) ACCESS plante et redémarre. La plupart des tutos que j'ai trouvé propose d'enregister le rapport sur le poste puis de l'attacher en PJ. J'aimerai éviter cela.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub commEnvoyerMail_Click() Dim Sujet As String Dim Message As String Sujet = "Rapport Service Technique concernant " & Me.ServiceConcerne & " periode du " & Me.Texte12 & " au " & Me.Texte14 Message = "Bonjour, voici le rapport du service technique" DoCmd.SendObject acSendReport, "rptRapportVar", acFormatPDF, , , , Sujet, Message End Sub
Auriez vous une piste?
Partager