Insérer Signature avec SendMail

Sub EMAIL()

With Dest
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
End With

SigString = "S:\Clients\C\Assistante Service Client\SUIVI de PROD\Signature.htm"

'Crée une session Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")

'Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)

'Check the signature path
If Dir(SigString) <> "" Then
    Signature = Get_Signature(SigString)
Else
    Signature = ""
End If

With message
.Subject = "SUIVI de PRODUCTION S" & NOSEM(Date)
.body = "Bonjour,"  & Signature
 

.Recipients.Add Sheets("Mode OP").Range("H3").Value
'.CC Add("Mode OP").Range(H3).Select

.attachments.Add "S:\C\CA_Atlantica\Assistante Service Client\SUIVI de PROD\Suivi HEBDO\SUIVI PROD Sem " & NOSEM(Date) & ".xls"
.Send
End With


With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Sub

 Function Get_Signature(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    Get_Signature = ts.ReadAll
    ts.Close
End Function