Bonjour,
Je souhaite utiliser un 'SendObject' pour envoyer la fiche active d'un formulaire (F_Contact). J'ai créé pour cela un bouton sur mon formulaire, qui est censé exporter un état (E_Contacts) reproduisant la fiche active du formulaire.
J'ai rencontré un premier obstacle en voulant conditionné l'envoi mail de l'état à la fiche active. En cherchant dans le forum j'ai trouvé quelques pistes de réponses, mais rien n'a vraiment marché.
J'ai donc une incertitude générale sur le code que j'utilise pour réaliser cette opération. Vous le trouverez ci-dessous:
Avec ce code, je rencontre 3 problèmes:
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 Private Sub BtnMailContact_Click() On Error GoTo Err_BtnMailContact_Click Dim stDocName As String stDocName = "E_Contacts" DoCmd.OpenReport "E_Contacts", acViewPreview, , "[NumContact]=" & Me!NumContact DoCmd.SendObject acSendReport, , "HTML(*.html)", , , , "Veuillez-trouver en PJ une fiche Contact", "Fiche Contact" Exit_BtnMailContact_Click: Exit Sub Err_BtnMailContact_Click: MsgBox Err.Description Resume Exit_BtnMailContact_Click End Sub
1) Un message d'erreur m'indiquant que le sous-formulaire (T_SousMatières_Déroulante_Contacts) qui est inclus au formulaire (F_Contacts) que je souhaite exporter ne peut pas être traité. Pour info, je n'ai aucun de ces problèmes avec OpenReport pour une simple impression de l'état.
2) ce n'est pas la bonne version de MSOutlook qui est utilisée. Peut-on orienter le choix de la version d'Outlook (j'utilise Outlook 2003).
3) je n'arrive pas à exporter la fiche en format PDF, j'ai simplement réussi avec du html qui ne reproduit pas du tout la mise en page que j'ai décidée pour l'état
Je mets en pièce jointe une version simplifiée de la base.
J'espère que tout le monde n'est pas en vacances! Merci,
Guillaume
Partager