mail sturen vanuit userform

Sub Mail_small_Text_Outlook()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"

    On Error Resume Next
    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Sub hsv()
Dim strbody As String, mailaccount, objOutlook As Object, objOutlookAccount As Object
  Set objOutlook = CreateObject("Outlook.Application")
  Set objOutlookAccount = GetOutlookAccount(objOutlook, [COLOR=#0000ff]"naamaccountverzender@profider"[/COLOR])
  With objOutlook.createitem(0)
    Set .sendusingaccount = objOutlookAccount
        .SentOnBehalfOfName = .sendusingaccount
        .To = "naamontvanger@profider"
        .Subject = "Onderwerp"
        .body = "De groeten van @hsv"
        .display
 End With
End Sub



Function GetOutlookAccount(objOutlook As Object, strEmailId As String) As Object
Dim objOAccount As Object
    For Each objOAccount In objOutlook.Session.Accounts
     If objOAccount.DisplayName = strEmailId Then
       Set GetOutlookAccount = objOAccount
       Exit For
     End If
    Next objOAccount
End Function

Set .sendusingaccount = objOutlookAccount

Private Sub CommandButton2_Click()
    Dim strbody As String, mailaccount, objOutlook As Object, objOutlookAccount As Object
  Set objOutlook = CreateObject("Outlook.Application")
  Set objOutlookAccount = GetOutlookAccount(objOutlook, "blabla@bla.nl")
  With objOutlook.createitem(0)
    Set .sendusingaccount = objOutlookAccount
        .SentOnBehalfOfName = .sendusingaccount
        .To = mail.Value
        .Subject = "Onderwerp"
        .body = strbody
        .display
 End With


    strbody = blablabla


    
    CommandButton2.Enabled = False
    CommandButton2.Caption = "Mail is verzonden"
    
    
End Sub

Function GetOutlookAccount(objOutlook As Object, strEmailId As String) As Object
Dim objOAccount As Object
    For Each objOAccount In objOutlook.Session.Accounts
     If objOAccount.DisplayName = strEmailId Then
       Set GetOutlookAccount = objOAccount
       Exit For
     End If
    Next objOAccount
End Function

'.SentOnBehalfOfName = .sendusingaccount