email objet

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