Private Sub CommandButton21_Click()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Dim Temp As String

Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument

Doc.Save
With EmailItem
.Subject = "Report Request"
.Body = "Hello Robert and Lisa." & vbCrLf & _
"I'm writing to request that reports be run on the provider and time period listed below." & vbCrLf & _
.To = "emailaddress"
.Send
End With

Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing

End Sub