Discussion :

[clickandgo]

Bonjour à tous

Tout est dans le titre, je voudrais savoir si l'on peut créer temporairement un état de façon à pouvoir ensuite l'envoyer par mail.
Je n'utilise pas la commande Send Object car j'ai créé un compositeur de mails et de modèles de mails qui permet de choisir plein d'options avant d'envoyer par automation via Outlook.

Je connais la méthode pour enregistrer un état mais si je pouvais éviter de le faire et qu'il soit seulement temporaire et disponible en tant que pièce jointe ça serait mieux dans mon cas ...

Merci

[jimbolion]

Moi personnellement pour faire ce genre de choses j'utilise la librairie CDO.

Regarde cet article

http://jdgayot.developpez.com/tutori...cdo/#LVI-A-3-d

JimBoLion

[minot83]

Bonsoir, quelle version d'Access utilises-tu ?

As-tu lu ceci ? http://cafeine.developpez.com/access/tutoriel/pdf/

[clickandgo]

Merci pour vos réponses mais je cherche seulement à éviter la procédure de création du PDF en dur et connaitre seulement la méthode permettant son incrustation en pièce jointe sans avoir à l'enregistrer sur disque si possible.
Je possède la version 2010 qui contient déjà le créateur de PDF

Si l'un d'entre vous a une idée ...

[clickandgo]

Bonjour à tous,

J'actualise le sujet car je n'ai toujours pas trouvé de solution :

- Est-on obligé de passer par la création un fichier PDF si l'on veut ensuite que l' automation fonctionne avec Outlook ?
Dans mon cas, j'ai le code joint qui marche parfaitement à condition de créér à chaque fois le PDF au préalable dans un dossier , l'automation vers Outlook marche parfaitement mais si j'essaye avec le code ci-dessous c.à.d sans créer avant le PDF l'automation me dit qu'elle ne trouve pas le document (logique !).
Pourtant théoriquement l'on devrait pouvoir incruster des PDF temporaires (créés à la volée ) sans avoir à les créer en dur non ?

Merci d'avance pour tout éclaircissement

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
Private Sub BtnEnvListePDF_Click()
 
Dim strNomDocument As String
Dim NumMailActif As String
strNomDocument = "Liste RDV " & Screen.ActiveForm.NumContact
 
 
'Ouvre l' état
DoCmd.OpenReport ("rptlisteactions"), acViewPreview, , "[numgrpaction]=screen.activeform.numgrpaction"
 
'Enregistre l'état
             DoCmd.OutputTo acOutputReport, , "PDF", strNomDocument
             DoCmd.Close
 
             DoCmd.OpenForm ("mails"), , , , acFormAdd
 
             With Forms("mails")
 
             .CboContact = Me.NumContact
             .Objet = "Votre facture Click and Go ! informatique"
             .Salutations = DLookup("entêtecourrier", "contacts", "[numcontact]='" & Screen.ActiveForm.[NumContact] & "'")
             .Destinataires = DLookup("mail1", "contacts", "[numcontact]='" & Screen.ActiveForm.[NumContact] & "'")
             .Signature = DLookup("signaturepardéfaut", "entreprise")
 
             End With
 
             NumMailActif = Forms("mails")![NumMail]
 
             'Enregistre l'état en tant que pièce jointe dans le mail en édition
 
            DoCmd.SetWarnings False
            DoCmd.RunSQL "insert into [attachments mails](nummail,pathattachment) values ( '" & NumMailActif & "','" & strNomDocument & "');"
            DoCmd.SetWarnings True
 
End Sub