I was able to piece together a solution to this question and thought I'd post here in case anyone has a need:

Sub CopyAll_and_openSite()
Dim objApp
Dim objInsp
Dim colCB
Dim objCBB
On Error Resume Next

Set objApp = GetObject("", "Outlook.Application")
If objApp Is Nothing Then
Set objApp = Application.CreateObject("Outlook.Application")
End If
Set objInsp = objApp.ActiveInspector
If TypeName(objInsp) = "Nothing" Then
MsgBox "No inspector window found"
Exit Sub
Else
Set colCB = objInsp.CommandBars

Set objCBB = colCB.FindControl(, 354) ' Reply
objCBB.Execute

End If

Set objCBB = Nothing
Set colCB = Nothing
Set objInsp = Nothing

Set objApp = GetObject("", "Outlook.Application")
If objApp Is Nothing Then
Set objApp = Application.CreateObject("Outlook.Application")
End If
Set objInsp = objApp.ActiveInspector
If TypeName(objInsp) = "Nothing" Then
MsgBox "No inspector window found"
Exit Sub
Else
Set colCB = objInsp.CommandBars

Set objCBB = colCB.FindControl(, 3634) ' clear clipboard
objCBB.Execute

Set objCBB = colCB.FindControl(, 756) ' select all
objCBB.Execute

Set objCBB = colCB.FindControl(, 19) ' copy
objCBB.Execute

Set objCBB = colCB.FindControl(, 2011) ' Close email
objCBB.Execute

End If

Set objCBB = Nothing
Set colCB = Nothing
Set objInsp = Nothing

End Sub

Cheers,

Brent