Envoi formulaire word, avec une macro dans un bouton

Signaler
-
Bonjour,

Je suis sous Windows, et office 2007, je tente, d'envoyer sur mon adresse de messagerie un formulaire créé sous Word, j'ai créé un bouton avec le code suivant trouvé sur les forums, je suis certain qu'il comporte des erreurs, mais ma connaissance en programmation, est nulle, j'attends la retraite pour m'y essayer: (l'année prochaine)
Merci, pour les réponses que vous voudrez bien m'apporter.
PR

Sub EmailChart()
Dim stFileName As String
Dim stRecipient As String
stFileName1 "Z:\fic1" 'Contrat _formulaire_14ruedesvosges - pour fusion.dotm stRecipient ravignonp@aol.com
sendemail stRecipient, stFileName
End Sub
Sub sendemail(stRecipient As String, stAttachment As String)
Dim olApp As Object
Dim olNameSpace As Object
Dim olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
With olMail
.Subject = "Contrat"
.Recipients.Add stRecipient
.Body = "Veuillez remplir le formulaire"
.Attachments.Add stAttachment
.send
End With
End Sub

Private Sub Envoyer_Click()

End Sub