Discussion :

[nicomidas]

Bonjour,

Quelqu'un pourrait m'aider?

J'aurais besoin d'envoyer un formulaire par mail en format PDF.

J'ai trouvé ça sur le net : http://fr.viadeo.com/fr/groups/detai...02h0jqt7mmyved

Mais étant débutant en VBA, je ne sais pas comment modifier ce bout de code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Enregistrer_Click()
 
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = DLookup("[mail]", "[salariés]", "n°salarie=" & Form![acheteur])
MonMessage.Subject = "Commande à valider"
MonMessage.body = "Bonjour, merci de bien vouloir valider ou non cette commande"
MonMessage.send
Set MonOutlook = Nothing
End Sub

Je vous remercie d'avance

Nicolas

[marot_r]

Bonjour.

J'aurais besoin d'envoyer un formulaire par mail en format PDF.

Autant que je sache on ne peut pas envoyer de courriel en format PDF.
On peut envoyer un courriel avec un fichier attaché au format PDF.
En gros ça ressemble à un texte du type "Bonjour, veuillez trouver les informations demandées dans le fichier attaché." dans le message puis le fichier attaché crée au préalable et sauvegardé au format PDF avec un moyen approprié.

La FAQ contient le code nécessaire pour cela, pas besoin d'une nième version
Comment envoyer un mail avec Outlook ?
https://access.developpez.com/faq/?page=Outlook#outlook

Le chemin d'accès au fichier est à mettre dans le 4ième paramètres (Optional Attach As Variant)

Pour la création du PDF le processus de création dépend d'où viennent ses informations, donc si tu veux des détails, merci de donner plus d'information.

A+