Hi,

I'm trying to code Outlook to Reply, Select All, Copy, then close an email. I can make the below code work perfectly if I don't have the Reply code in the script, when I add the Reply code it stops working.

I'm using this code to quickly copy all contents of a selected email so I can paste into a note record in my work system. I was also hoping to add a line of dashes "------------------------------" between each individual email (header) but that's way above my head.

Any help would be greatly appreciated, here's the code I'm struggling with:

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

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

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