Contenu d'un userform par mail

Sub EnvoiMail()
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim corps As String
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = "Dest1@messagerie.com"
  MonMessage.Subject = "Problème fichier excel " & textbox1.value
    corps = "Bonjour ,"
    corps = corps & Chr(13) & Chr(10)
    corps = corps & "agent : " & userform2.textbox1.value & Chr(13) & Chr(10)
    corps = corps & "Problème : " & UserForm2.TextBox2.Value & Chr(13) & Chr(10)
    corps = corps  & Chr(13) & Chr(10)
    corps = corps & "Merci de votre aide."
  
  MonMessage.body = corps
  MonMessage.send
  Set MonOutlook = Nothing
End Sub

Sub Send_Mail(Byval StrBody As String, Byval fExcel As String)
Dim olkApp As Outlook.Application
Dim olkMail As MailItem

Set olkApp = CreateObject("Outlook.Application")
Set olkMail = olApp.CreateItem(olMailItem)


  With olkMail
       .To = ""
       .CC = ""
       .Subject = "Problème fichier excel " & fExcel
       .Body = StrBody
       .Display
    End With

     Set olkMail = Nothing
     Set olkApp = Nothing
End Sub