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?
Je vous remercie d'avance
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
Nicolas
Partager