Macro Email html

Sub OpenHtm()
'
' OpenHtm Macro
' Macro enregistrée le 07/12/2010 par KIREG94
'

'
    ChDir _
        "N:\ECHANGES\Explt_Condt_k2\Groupes de cdt\Groupe 52 & 56\REPART Gr52\Reprise"
    Workbooks.Open Filename:= _
        "N:\ECHANGES\Explt_Condt_k2\Groupes de cdt\Groupe 52 & 56\REPART Gr52\Reprise\Reprise Benjamin.htm"

  Workbooks("REPRISE BENJAMIN.htm").SendMail Recipients:="nyal3@free.fr", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End Sub