Add content of word document text control fields to email with command button

[Neal]

Thank you Mr. Mayor.

Where do I place this code please? Within the above code. And, do I simply replace 'Call NameOfYourMailMacro with CommandButton21 ? Is that name of my macro? Obviously I'm very new at this.

Sub TestOutlookIsOpen()
Dim oOutlook As Object

On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0

If oOutlook Is Nothing Then
MsgBox "Outlook is not open, open Outlook and try again"
Else
'Call NameOfYourMailMacro
End If
End Sub