email objet

[natacha]

Bonjour
j'ai trouve une petite macro sur ce site trés bien je remercie par avance la personne qui la faite
je cherche de laide pour faire une petite modif
j'aimerai env avec cette email la feuil2 du classeur en Piéce jointe

merci de votre aide

 

[renatacha]

visu de la macro


Sub SendEmail_OExpress()
'
'--------------------------
Dim ObjetMessage As String
Dim TexteMessage As String
Dim Destinataire As String
'--------------------------

'--------------------------
Dim CellDest As Range
'--------------------------
'
Application.ScreenUpdating = False

' initialisation des variables
ObjetMessage = Range('B2')
TexteMessage = Range('B3')


For Each CellDest In Range('B8:B' & Range('B65536').End(xlUp).Row)

If Not CellDest.EntireRow.Hidden Then

Destinataire = CellDest.Value

Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & Destinataire & _
'?subject=' & ObjetMessage & _
'&Body=' & TexteMessage, vbMaximizedFocus



' et enfin, on envoie le message
SendKeys '%s'

End If

Next CellDest

Application.ScreenUpdating = True

End Sub