Automation Error: Call was rejected by callee

Hi guys,

I've written a macro in outlook that will extract the data from email body and copy it across excel spreadsheet. It's giving me below error:
run-time error '-214748111 (80010001)':
automation error
Call was rejected by callee.

Please see below the code:

Code:

---

Public Sub Extract()   
On Error Resume Next
Set myOlApp = Outlook.Application
Set mynamespace = myOlApp.GetNamespace("mapi")
Dim strRowData As String
Dim strDelimiter As String
Dim myDestFolder As Folder
Dim olMailbox As Folder
Dim ShareInbox As Folder
Dim SubFolder As Folder
Dim InputFolder As String
Dim OutputFolder As String
Dim ProdMail As String
Dim oXLApp As Object, oXLwb As Object, oXLws As Object
Dim lRow As Long
On Error Resume Next
Set oXLApp = GetObject(, "Excel.Application")
'~~> If not found then create new instance
If Err.Number <> 0 Then
    Set oXLApp = CreateObject("Excel.Application")
End If
Err.Clear
On Error GoTo 0
'~~> Open the relevant file
Set oXLwb = oXLApp.Workbooks.Open("X:\Test1.xlsx")
'Extract Mailbox and subfolder details from a sheet named as "Folder Details"
Set oXLws = oXLwb.Sheets("Folder Details")

---

Any help will be much appreciated.

Thanks

Any idea how this issue can be resolved? Thanks

Hi Derek_123,

On which line do you get the error?

Quote:

---

Originally Posted by Derek_123

Any idea how this issue can be resolved? Thanks

---

Wow, waited all of 20 mins? :(
Apologies for misreading the time on my phone. :banghead:

As mentioned, have you walked through your code with F8 and breakpoints?
I do not even see where you are touching the email body?

@Gasman, its a bit longer than 20 mins.

Quote:

---

Originally Posted by Aussiebear

@Gasman, its a bit longer than 20 mins.

---

Oops, my apologies. :-(

The other questions still stand though?

This is the last line that I see in the code window

Set oXLws = oXLwb.Sheets("Folder Details")

Hi guys, I'm getting the error at below line:

Code:

---

Set oXLwb = oXLApp.Workbooks.Open("X:\Test1.xlsx")

---

Any help will be much appreciated.

Have you checked you actually have an excel object?, as you have On Error Resume Next :(

is that a valid path to the document?

Sorry It didn't recognize the path. After changing the folder path it worked. Thanks