fr832
XLDnaute Occasionnel
Bonsoir, j'utilise ce code pour ouvrir ma messagerie et envoyer un email a un destinataire.
Comment dois je modifier ce code pour joindre la feuille "FEUIL1" à mon email?
Par avance merci beaucoup
Comment dois je modifier ce code pour joindre la feuille "FEUIL1" à mon email?
Par avance merci beaucoup
Code:
Sub envoi_mail()
If MsgBox("Êtes vous sur de vouloir envoyer la feuille par e-mail ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
On Error Resume Next
Err = 0
ActiveWorkbook.FollowHyperlink Address:="mailto:titi@sfr.fr" & _
"?subject=feuille d'appel" & _
"&body=Bonjour,"
If Err <> 0 Then MsgBox "Une Erreur s'est produite..."
End If
End Sub