Sub TestSignature()
Dim OApp As Object, OMail As Object, Signature As String
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)
Signature = Environ("appdata") & "\Microsoft\Signatures\"
If Dir(Signature, 16) <> vbNullString Then
Signature = Signature & Dir$(Signature & "*.htm")
Else:
Signature = ""
End If
Signature = _
CreateObject("Scripting.FileSystemObject").GetFile(Signature).OpenAsTextStream(1, -2).readall
With OMail
.Display
End With
'avec cette ligne j'ai le corps du message, la signature mais pas le format
'Signature = OMail.body
'avec cette ligne la signature et le format mais le corps à disparu ???
Signature = OMail.HTMLbody
With OMail
.To = ""
.Subject = "Ici mettre objet du courriel"
.HTMLbody = "Corps du message Ligne 1" & vbNewLine & _
"Corps du message Ligne 2" & vbNewLine & _
Signature
'.Display
End With
Set OMail = Nothing
Set OApp = Nothing
End Sub