Signature dans mail via Outlook

Salut Forum!

Après quelques heures passées sur mon script pour envoyer un mail depuis mon userform tout fonctionne très bien

Seul hic ma signature ne s'affiche pas mais plutot un gros X rouge que outlook bloque probablement ...

Quelqu'un aurait une idée?

Private Sub CommandButton117_Click()
Application.ScreenUpdating = True
Dim SigString As String
Dim Signature As String
SigString = Environ("appdata") & _
                "\Microsoft\Signatures\CRFLIX.htm"
                If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If
    On Error Resume Next

Dim OutApp As Outlook.Application
Dim lItem As Long
    For lItem = 0 To ListBox1.ListCount - 1
        If ListBox2.Selected(lItem) = True Then
            Sheets("Clients").Range("DD65536").End(xlUp)(2, 1) = ListBox2.List(lItem)
            ListBox2.Selected(lItem) = False
        End If
    Next
    Sheets("Clients").Select

  '--- Envoi par mail
  Dim olapp As Outlook.Application
  Set OutApp = CreateObject("Outlook.Application")

  Sheets("Clients").Select
  Range("DD2").Select
  Do While Not IsEmpty(ActiveCell)
     Dim msg As MailItem
     Set olapp = New Outlook.Application
     Set msg = olapp.CreateItem(olMailItem)

     msg.To = ActiveCell.Value
     msg.Subject = Me.TextBox16.Value
     msg.HTMLBody = "<p>" & Me.TextBox17.Value & "</p>" & Signature
         msg.Attachments.Add Source:=Me.filenameinput.Value
     msg.SendUsingAccount = OutApp.Session.Accounts.Item(1)
     msg.Send
     ActiveCell.Offset(1, 0).Select
  Loop
'  On Error GoTo 0
'    Set OutMail = Nothing
'    Set OutApp = Nothing
'End Sub

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

Bonjour,

je n'ai jamais réussi de façon stable à récupérer ma signature par cette méthode

par contre, essaie ceci:

msg.HTMLBody = "<p>" & Me.TextBox17.Value & "</p>" & msg.HTMLBody

oui .. je crois bien que ca va etre ca!

Merci