Read email body and extract data from it to excel

[Derek_123]

Hello,

I stuck at extracting email body from outlook to excel. Can anyone please help me with this ? I'm getting runtime error 1004
at a line highlighted as red.


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
'Show Excel
oXLApp.Visible = True
'Open the relevant file
Set oXLwb = oXLApp.Workbooks.Open("\\B:\Test WB.xlsx")
'Set the relevant output sheet. Change as applicable
Set oXLws = oXLwb.Sheets("Output")
lRow = oXLws.Range("A" & oXLApp.Rows.Count).End(xlUp).Row
lRow = lRow + 1


Thank You.

[June7]

Where are you running this code? In Access?

Why are you prefixing drive letter with two backslashes? Remove them. Double backslash is used for UNC pathing.

Advise not to begin variable names with number. Could cause issue with MsgBox and Debug.Print and maybe elsewhere.

[Aussiebear]

@June7. The variable names are starting with o not 0. Derek_123 is simply following the programming concept of defining the variable name as o for object.

@Derek_123. Does this work to remove the error from the line in red?



lRow = oXLWs.Range("A" & .Rows.Count).End(xlUp).Row

[June7]

I was talking about variable 1Row - that starts with number. Ooops, must be a lower case "l". I would use lngR as variable name.
I know the Outlook variables start with lower case "o".

OP's code does work for me, after I removed double backslashes from filepath.

Why would you expect removing qualifier would be better?

[Aussiebear]

it all shows as lRow here

[June7]

In VBA code the number 1 and lower case "l" look almost the same:


1 this is number
l this is letter

I confirmed that VBA will not accept a variable beginning with number so must be lower case "l"

[Derek_123]

I tried below line of code but still getting runtime error 1004, application defined or object defined .




lRow = oXLws.Range("A" & oXLws.Rows.Count).End(xlUp).Row




@June7. The variable names are starting with o not 0. Derek_123 is simply following the programming concept of defining the variable name as o for object.

@Derek_123. Does this work to remove the error from the line in red?



lRow = oXLWs.Range("A" & .Rows.Count).End(xlUp).Row

[June7]

Did you remove double backslash as recommended in post 2?

Do not remove object qualifier.

[Derek_123]

There are no backslashes in the actual code, It looks like below but the error application defined and object defined keeps on occurring at the line colored red.



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
'Show Excel
oXLApp.Visible = True
'Open the relevant file
Set oXLwb = oXLApp.Workbooks.Open("B:\Test WB.xlsx")
'Set the relevant output sheet. Change as applicable
Set oXLws = oXLwb.Sheets("Output")
lRow = oXLws.Range("A" & oXLApp.Rows.Count).End(xlUp).Row

lRow = lRow + 1



Any help will be much appreciated.

[Aussiebear]

Not tested but try


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
'Show Excel
oXLApp.Visible = True
'Open the relevant file
Set oXLwb = oXLApp.Workbooks.Open("B:\Test WB.xlsx")
'Set the relevant output sheet. Change as applicable
Set oXLws = oXLwb.Sheets("Output")
With Sheets(“Output”)
lRow = Cells(Rows.Count,1).End(xlUp).Row
End With
lRow = lRow + 1


I believe the problem with the line in red in post #9 is that you are using the variable oXLApp which you have earlier set as an Excel Application where as rows.count happens at the sheet level. Someone will correct me here I guess

[June7]

Whichever it is, need to fully qualify object references. If you use With structure, don't forget dot prefix. Use the oXLws object variable. As I already stated. OP's original code works for me - after removing double backslashes and using my folder and file names.

I expect the oXLApp prefix means code acts on whichever sheet has focus. So better to qualify with sheet reference.

Changing oXLApp to oXLws does seem to run faster.


With oXLws
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

Nothing in code has anything to do with reading email body.

Is this code executed from Outlook?

[Derek_123]

Yes I am executing this code from outlook,I have changed the line of code as per your suggestion but still getting 1004 application defined or object defined error message.


On Error Resume Next

Set myOlApp = Outlook.Application
Set mynamespace = myOlApp.GetNamespace("mapi")

Dim strRowData As String
Dim strDelimiter As String
Dim myDestFolder As Outlook.Folder
Dim olRecip As Outlook.Recipient
Dim ShareInbox As Outlook.MAPIFolder
Dim SubFolder As Object
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("B:\\WorkbookTest.xlsx")

'Extract Mailbox and subfolder details from a sheet named as "Folder Details"

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

ProdMail = oXLws.Range("B1")
InputFolder = oXLws.Range("B2")
OutputFolder = oXLws.Range("B3")


strRowData = ""

' Code to extract emails from specific subfolder within shared folder and copy the data across excel spreadsheet.

Set olRecip = mynamespace.CreateRecipient(ProdMail)
Set ShareInbox = mynamespace.GetSharedDefaultFolder(olRecip, olFolderInbox) ' Look into Inbox emails
Set SubFolder = ShareInbox.Folders(InputFolder) 'Change this line to specify folder
Set myDestFolder = ShareInbox.Folders(OutputFolder)

If ShareInbox.Folders(InputFolder) = 0 Then
MsgBox "New Apps folder doesn't exist"
Exit Sub
End If

If ShareInbox.Folders(OutputFolder) = 0 Then
MsgBox "Completed Apps folder doesn't exist"
Exit Sub
End If

Set oXLws = oXLwb.Sheets("Output")

oXLws.Activate

With oXLws
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With


Can you help please? Thanks

[June7]

I still cannot reproduce this issue on that line.

Do you have Microsoft Excel reference library selected?

Disable the On Error Resume Next and step debug your code.

[Derek_123]

I didn't have Microsoft excel reference library selected . It's all working now. Thanks a million for all your help .

[Derek_123]

Hi June7,

I am getting unexpected error while trying to run macros as below
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAiYAAAEuCAYAAAC6ddm2AAAgAElEQVR4Ae2dT48c t5mH66NIl/kAFjIHHYRFYCxyysG3CA52jMCTIHYSHXLIzUB8mEsOQu5GdDFgYJDTer2AoUUg6BIEimIklvxHG ttKgJznG3DBIllFvnxZVdNd1c3qeQQIM8VmsV7 DTfH1nVPc13335jvv7qS/Puu 8Y/qEACqAACqAACqDAPhVovrl4ab784guMyT5HgWujAAqgAAqgAAq0CjQXL1 Y58 fYUwAAgVQAAVQAAVQYO8KNP/38FPzv//z3 atk//aezAEgAIogAIogAIocL0VaD777DPzl7/8xfzsZz 73krQexRAARRAARRAgb0r0Pz97383T548MT// c/3HgwBoAAKoAAKoAAKXG8Fmn/84x8Yk vNAL1HARRAARRAgWoUaJ49e2b te/mnfe4ePC1YwKgaAACqAACqDANVWgef78ufnb3/5m3n333WsqAd1GARRAARRAARSoRYHmyy /NPYB2F/84he1xEQcKIACKIACKIAC11SB5uuvvzb2Adhf/vKX11QCuo0CKIACKIACKFCLAs3Lly/N559/bn71q1/VEhNxoAAKoAAKoAAKXFMFmouLC2MfgL137941lYBuowAKoAAKoAAK1KIAxqSWkSAOFEABFEABFE ABgzEBAhRAARRAARRAgWoUwJjMMBSfnDamaez/U/PJDO3V2ETbx9v3zYsagyMmFEABFECBg1FgO2PyyalLyBMSVkjep13mfmHu325MM HcmtV cf/2xobEaTJkZj4xp9bwtKLtV69JxiTw0Jq0YNZum/uzu5n9alEzj8SGAiiAAmtXYB5j0jSmNxyKJC/um9s WfX1DiG5 D70nfKdd4YiK5bS ERerJe8vl 9phuT1Gg58zW3OdmvFnIYOUYBFEABFJhPgRmMyW1z2 58FLOrMe2uwu3brTkZqDZfr3bWkkuQt WWgDdi432Nd0TyoMd3VPJzlirZ1JgY4/qYabRUoLSLAiiAAiiwagVmMSb379tbOqVVcUhM99vbEuPJek16bmtMjCmbj2HTsmuVMCa7Vpzro QAKoMD1VGAeY/IimA/lYYL2doTd3nd1YmOiJzu/TR8/p BP6uqHZxnE8ykuyYdnG8oPo2b14qA8B1kd WBriEHEmZ83vJtkkts1EYRteWr22rbH tz1xevYHYe2tfKy5uEs7drhte5nG3N6K8eou0fj17NtZlpGfdHjmdZuFy /oAAKoAAKVKfATMbE366RydvESXCCMQnPokQJqL0V4I 7RJW8bjX1uwtq0o6Tu48nqfeJOU3am9qWva5rL7tNoSbj0tj76yUx KScxCnLxvoSax9fWyn/5NSkfXAxxWW6EYjbbZ2EeBBYuZY9ZfR6Y32TWtih8M8xJTrKsRXxcogCKIACKFCdArMZk5AYkrz QJotgDFyyi1 XyU4eS7WcMREr8rCyFkncnSsTYx6Deo1JbdkzXftxAm/bu5Ix0Uxdbgxsu6k Y32RfQ89LZWH193P9Fry2mnd7kjbRSre4uvOan9JrzfWtzye9Py0bY5QAAVQAAXWo8B8xiRLnD5 5dE4kTzZpMslflzKm9cOr7rzMHPiX04/z qRcTJZXacteYB5jkpk65TaOvVra/7G lAzISHl8ayoyaOm1g/bi58CtnPzh6BB/dOutu154LZhacZ1Mi3F28hYoQQEUQAEUqFGBWY2JS7A mWS7BnnySJJdVj XK6nfvTxsJtwzHOkuS9tOSMCdcbINXrUtl0AzUzShL1347S pWdD7KY2Ja6Hcl7TN/np5eWgj7oeMQR737UW/acakvctiv ulNxlTrmdbDfXaL69LxklocWW9o5j5FQVQAAVQoCoF5jUm0TMl7iPC8TeF7seYpDsmQnuf0Pove Rs2JnlbcxmT HZOOYZBc5D1JTcgrveivJDU5bXksVDSHRaMiTOHJcMaTh34sr2sbxgTVX8KUQAFUOAAFJjZmLTL 3HZ1bL/bJF6Bh92IeOGbJjuRMBVx0/p9hVJ5uNWS30boz02SZlild7cUonqR6epL5zMm3e2c0/JHr8v99BGJW0B6fWd8Ok1UY LHItJBb6tXov2tYEwSQzfxeqJl60TyXZcuvnF2svYoQAEUQAEUqFKB Y1J IRM9gmdkR0TK0 bfOTHa/tPVhSTo7Kids3Jjwz3bYXRyNqc3JZtoWBMxm4JhYsnP31ytbeYuoSbVBDPmEzoi9ezN4PRNbpCY VSCORNxZDqlobkjzZj4GHqTOuV6433L4hlhRwuXMhRAARRAgfoUWMCY NsSXeILnZ5gTNqqPnGFZ0Cir7vPklFouv0ZJd1wbpbg87Z1EzClLXtRV69PulFAIVHaWDItonrR r25nQe409RXS/k/rS2jT/ZFB 6cDfN/imIIZ87rZ/qTXErdO pDS3 I hzGIxq rPHq98b7J Fzb XlxN7vr8wsKoAAKoEC1CmxnTKrtFoGhAAqgAAqgAAqsUQGMyRpHjZhRAAVQAAVQ4EAVwJgc6MDS LRRAARRAARRYowIYkzWOGjGjAAqgAAqgwIEqgDE50IGlWyiAAiiAAiiwRgUwJmscNWJGARRAARR AgQNVAGNyoANLt1AABVAABVBgjQpgTNY4asSMAiiAAiiAAgeqAMbkQAeWbqEACqAACqDAGhXAmK xx1IgZBVAABVAABQ5UAYzJgQ4s3UIBFEABFECBNSqAMVnjqBEzCqAACqAAChyoAhiTAx1YuoUCK IACKIACa1QAY7LGUSNmFEABFEABFDhQBTAmBzqwdAsFUAAFUAAF1qhAYkwuLy8N/9EABmAABmAABmBgXwxgTDBjmFEYgAEYgAEYqIYBjAkwVgPjvtw512VlCAMwAAP1MIAxwZhgTGAA BmAABmCgGgYwJsBYDYysWOpZsTAWjAUMwMC GMCYYEwwJjAAAzAAAzBQDQMYE2CsBsZ9uXOuy8oQBmAABuphAGOCMcGYwAAMwAAMwEA1DGBMgLE aGFmx1LNiYSwYCxiAgX0xgDHBmGBMYAAGYAAGYKAaBjAmwFgNjPty51yXlSEMwAAM1MMAxgRjgj GBARiAARiAgWoYwJgAYzUwsmKpZ8XCWDAWMAAD 2IAY4IxwZjAAAzAAAzAQDUMYEyAsRoY9 XOuS4rQxiAARiohwGMCcYEYwIDMAADMAAD1TCAMQHGamBkxVLPioWxYCxgAAb2xQDGBGOCMYEBG IABGICBahjAmABjNTDuy51zXVaGMAADMFAPAxgTjAnGBAZgAAZgAAaqYQBjAozVwMiKpZ4VC2PB WMAADOyLAYwJxgRjAgMwAAMwAAPVMIAxAcZqYNyXO e6rAxhAAZgoB4GMCYYE4wJDMAADMAADFTDAMYEGHsYz09M0zTm5Lwe58wqRh L85OGsZr63vVcNyfnPev2XHhP9ZiqJ/XQbWEGmsePH5uHDx a09PTGcU NyeNmzhtouv/n5jzhTuUJjIXx/HZ06hvPjY5Se00Lj3ZpLHvoc7EiTokxX5ch8zMU3N23Jh0DPS uXaPzdlT//rTM3Oc8BOzFNUTY5e1k7w HM/Ts OI18Zkyaxra7gdN5Zz1RF6FcZpUuwhSXtd1XGZUqfVYaR/U9qZq85YPJ6lxHT7aydl3fgKzSmP5lC02ftcfeA8Np999pn585//bN55550ZwdMMgZvEmmaX5kSLA2NSfFO1k3c54ffJNh3DkBDVCd5P/moCjN5coY2mGbv pXF19Xqj7QzE4wxN3LcBVgba6fSdq06k0 Wlfx8JYz0p9jaeSDefrJOxmVInxDPUvyntzFVnSjyXlybTaBLvJOGO56AzP2fMlfCl8bVDY3JpL rWJcFHINWMCCBoIbdnGE7WSwP1Yh12VJPnJMQ8J6szeSooSp6zXHuuJuY1/qJ3ReHRWnNGJzMpoOz3ng32f0o7W/9DHsKvU1pkSu65bm6yPz8zTAW3TOlP6N9e1prQzJR7/nveadwa6PR7jjfmiOF9ofFKGaZmBgT0bE21ClWXh Ly9JTA42SeCuPNCfffTJpjQXri9E47T9pt2svYT48C2d79Ct7cZogSWxJJObuVzQixP/a5AaLNU7tpN25O3TYbPTScdW3daH9LzvE5dgov7218/PcfXiZOFmnTjtsJzAUoymdxOKR5XLm/dZMakG9dSO3G8c9Xp28xMQhvPlNgLsSSaT6nTx3KZvZfCa1PamatOuKb9WWizGzO/a9JxauvHvIf3e1wWt8/v6ns40pfXYWQOBnZrTNpJMH4eQZtIZJk7tsaiW kkk kQCLItW1eWldq3piBKgHHi829El7T6OnrSSOMbPqePJd1hKJUrtzV8nP355XPnAKhtw19TJnXXv rt H0 sh3htdFz1FXQ2poPtiGtGk2o7ftaEdrdJynWza0bt9LoOnR90mFJnvO5o7Aq/bZzxe3JKnaSfhdintDNXnSnxRHXKRtNqjDHp2Q3M8RNNds/ADo2Jm8T6Sd92VpvYZJk8Lp2niTfl3Cl1tGsq55Um225iHDtHeb0992rl6eRbOlfTa7OykBQ749 j1V9MtXEMxGYOGorRbctV2hvVw2vUP2eqGaqhfoX9z1gltuth1nYNJLcQeG5B4fOLy PdSnbhcff GcYoWEuGcuP349/C6/RmXx7 X6sTlpXjiOm2b/WKCpBPY4ics1MPAosYkvY2iTQZakpBl8tiKJ8r8BNZfL1xL1GsnKFkmj5X2tfNUE LaKiWO8IxN np8jhZLKZ7 3nraXpjchzSYAGBRU3FuqNftMojX5Vj5JOHMjNgyH0wa3oB02/DuOldvp6SxeDjSj69lSjcn5Xb6CW6uOl7TNqYwrqnOiQ5a7H6cdFa8iZhSJ07yhbFNzEVcP24//n2bOvG5pXjiOgMa9uOWaks5esDAbhlY1Jh0E3qYKLPkpU3cskweW4G0Mk04rZ4sk8el9kU9P7H2 ZqiwUo0nxdFzxDW6cwvlbXtKovJ6uyRUOLdrW9NtYlkYV2EW0jexfv2wy6Lpp5qBQiK7cjsldhL N v679hWNS 0kuup9n6JPWsfH08aoxDIl9kKdxERMqTOlf1PamavOlHjiOu11FQ3jOvzOA5wwsFcGdmNM7CD7x NKZlXbgtYlblsljO0lrZX0y6Sd1rZ4sk8el9kW90sQ6BPToOeIaXVuF8lJ7iWEpnNu1rek2pcy1 O/7A7xWun8Qdx6DvlvTjHNcNrJWSTyGe0rU9t9lOwyQGC9dKtJ9Sx/dv0nhHWiSxu tk/Uj6PaVO1H5RgyntzFVnSjxRnVbDEhtRvWSMKC 19Bprwn8UMdld8ak x6B N6zm5yGzcqUOqWJY8q5U rY9mU9eVyKIS4fO6f0 tXKl3/GxMXjPrkU90/7vRS7UjdJktHrSYKNykuTYqmdtn4hntI1im0V2klimqtO6HOhvUmxK8/ihPdkt M1pU6Ixf4sxBMeIhU7pO3u05WuNVc8fczpe6MvP9QJnn4xxmtkYKfGRHvqXZ2skvv62uSnlekAp u3bOvJceazV0cvcJJeuvp6enfTfXJokKRff8DlaLPq1A2xZe35V3Zu9UpsuntDO9J uvWmmZDj27JqqCbjibonVXG0n9Lekh79O8vFR31eRYF3cpXbCdab2fUo7fZs5z/a1ibFLXTJWFO20Oh3XA7HPda0p7UyJx9fR9Qv6ajqG1/iZvV873dEGbeZlYMfGpH9gs/8orp/82 8KsUleTnby2AqglZWEidu3D1vKc VxqX2tXv5JiCkJ25mJ/pmU/hz9GmP9le31pqTUl5JWE8p9oio9G9LdKijUS2MT15NJyE58bVm8yybO0SZHrZ2J8bSJy39vjfqs y5R25qoztW 3mjskZ5h/NTx8JoX60zp31zXmtLO1Hh8vY5Rr1ufVDAmvRYT3meZfpyDfvMwsJAxmSc4BhkdYUAy4JOnuosj 63Ic8 OMm/gkGMmVZyRgoDoGMCZAWR2UcTLhd8VcbLKLdN05H90tUXS 7prRf bGPTGAMdmT8CRcEsE2DITbNuXbEujb6RtuTbHLRKJlvl8FAxgTQF0FqF2SYbwYLxiAARg4aAYwJ gB 0IBjaNg5gQEYgIF1MYAxwZhgTGAABmAABmCgGgYwJsBYDYysata1qmG8GC8YgIElGMCYYEwwJjA AAzAAAzBQDQMYE2CsBsYlnDdtsqKDARiAgXUxgDHBmGBMYAAGYAAGYKAaBjAmwFgNjKxq1rWqYb wYLxiAgSUYwJhgTDAmMAADMAADMFANAxgTYKwGxiWcN22yooMBGICBdTGAMcGYYExgAAZgAAZgo BoGMCbAWA2MrGrWtaphvBgvGICBJRjAmGBMMCYwAAMwAAMwUA0DGBNgrAbGJZw3bbKigwEYgIF1 MYAxwZhgTGAABmAABmCgGgYwJsBYDYysata1qmG8GC8YgIElGMCYYEwwJjAAAzAAAzBQDQPN48e PzcOHD83p6Wk1QS3hwGgTZw8DMAADMAAD9TOAMcElY0hhAAZgAAZgoBoGMCbAWA2MrGTqX8kwRo wRDMDA0gxgTDAmGBMYgAEYgAEYqIYBjAkwVgPj0i6c9lnpwQAMwED9DGBMMCYYExiAARiAARioh oGdGJPzk8Y0TWOak/MNO35uTprGHJ893fD8uR2iFo8r27yPc8dIe6yMYAAGYAAG1sfADoyJT9jWmDQn5nwjV6oZgX2Kr cWDMWEC2CeTXBv YAAGDoOB5Y3J YlpmmNzdmZ/NubkfBPhNCOwSTtznVNbPHP1i3aY2GAABmAABvbLwOLGpL2Nc3xmnl6WdhS0JB X fPaHRd/SyjaeXl6duxuE/nX09s9oZ1zc3Yczm1M08bzNCnTzmtvP3XXDbs9pXjCtdLbTZvEl8ZSBiRtO8Rn6/ex9HXs66Vyd42 rtMqjWP4XN7I5XFCG7SBARiAgekMLGxMXDJzz10EIxAnUBton/D6gZNl8th10CXSY3P21Hf46Zk5Tp5F8dePd2raHRybePPz t2cc3MudnbcczIhdi2evGzz KLYCre ZNu9Aew1tcZKMxd5 aWR7V0OaJm26bUvxNmPKfXQAgZgAAZgYJyBZY2JNwEh4bvkJ2/n5Ak9NytT6rjOumtczUDk11OEC7ekWhM0JR6tTjAAV41PxqO07Y2E01p5vTUOVysf11LGxTGTDg zAAAzAwHYMLGpM0sR2afJVuA1eS5ayTB73bQXT04FwZQNRiiGYiOgWULfLosQj 5EYhWiQNoovOt8aDLVtF9NGxkRt79JcjsYq4mLXpJJPjTEu3XwAkzAJA6tjYEFj4m/dtM9zhIlSK5uQ5GXSt6AlSTO0L5P2lLbtubKeO05u9yTXk/WVNpL628YXnd/1PTZM/e/uNosWnxJjeMNuHKuIK7THz9VNBCRyWIYBGKiFgeWMiV Fpw QhgQaP0OhJVFZJo lAYmASpKscl5mQuy5ol7Shm87KRP120QsyjbehRDtaEm 1HZXt9RGobzU3mifI927a1NWy5ubOGARBmBgjQwsZkyy2zghcfkk2D9AqSVLWSaPLWxaWbj9ctV nOERbSUL2YCdlon7bN1kmj107qS5aHa1MvrnG6pRev1r5eKwyLo7XOAkQM9zCAAzUxMBCxsTfsl G/6TW/nZN osS/Lj5RktZxELnEGe2 bGR6bFsiYRfaiW/t5PGINi6DSZojvvxNk/W9vd6J/4RSHouDrlS aax5XDXBTSyMDwzAAAysj4FljEnp1oDfNcmTqkuY7raPTeRaAo3rhB2RkFDDLSL947H97owdoHL bSb12hyS0G74gLjIZvh0Xs41Ha3eu HSwnI4hxvD9LKU DpW79mV7iR6F/vGm18cGXdAFBmAABjZjYBljEm7b8JOHIGEABmAABmAABq7AAMbkCmLhfjdzv iGbjAAAzAAA1MZwJhgTHDyMAADMAADMFANAxgTYKwGxqlumnqsvGAABmDgcBnAmGBMMCYwAAMwA AMwUA0DGBNgrAZGVkCHuwJibBlbGICBqQxUbkzkR3DlMQM9daC3qpd8uZymeY3jImOSx1o/KNuKE0w Jh8GYGAGBpY3Jsn3gYTv3Ii/D2QoGchkIo Hzl3ha16r9PtDNu3HjFphTJhsZphsMD2bvpc5D3auFwOLGpP221Gbxqh/ATj5434l0WVylcel81ZajjGZ0QBIVuTxShnBIMzICAyQ8GGgRgaWMyY yWam5EoTq0wm8hioylDNqBU7JiTDK71veV W35dogzYwMMbAQsYk/3s4eiAueaZ/gbj/uvn86 PHk23 N2wuTV4W/y2fsRguzaU3WV2cg7s9fYz9V7z3ferL7G2tvjzsLtlryFs5pXOCpunrjWlOTsxJE26bhZ/9tdL6fXloL tv29bQ7Tetz/FX5Md6p2/KfGzS121Maby2f fdnxboxqSNMe5LH5Prlzx210nbjs f9nqnGYkb8wYDMAADszDQG5M335ilwXaizv4IXp5sQrI4P09fcwk6JAiZTORxem7bZra6d fEf4AvGB63m3NuBmNQ/u7P UmIT7l 9Dd0dIPRJ/g8Kef9c4mzfI58ve1ba5zytqw sn4Wg7bTlWkq x00jk2VMCNtG1I3d97QrpqMN 7f4Lhlf9sn10O2LbUYe90xLLXgGF1gAAZgYBsGnDH53Y/Ma0dHezAmyuAlSVAmE3msnC NhG3v MScHEfPurR1 mSfCRjHEP8 yQ2XYlTKZawTkullco7SZhej9ppSlrQnzERoa1QDpV17bnKeUqd9XZqVeEyVc0JM2s/B68m25PGlGdU20SqOk9 z95A2PpTNN8eiJVoeMAPN4/PfmDs3bpijozvzDbSfwOWOQWnycivTcMvB/gymQSYPeawlBJdcw7Vt2/b39hrtLQC/ayBuxxRj8H1pRP1SX8JuTLh V09Naq4//Y6B6N/YOerrQRPRloVYrR/FoL4uDUZoP/6pXEu5ntyRaI/9mHQ6xW 2UjxRneK4jZk8te0xLaLXoxjU2Hl9vvkELdESBq4VA83vf3zT3Lhxw9x543S jvtJP0vOGVxuou NiEyCMuHJ4zg59r/3Cc aFG9y2pjc6rx/3Z4zFkO4/REZp6FkmiVEH1e7mo/aiJ4B6XUS/Rs7x7/eG5teg9Cvvu2g7UAMarIO5wWzGF8j/C7iDuMs22uP4/EYajNcN9rpCu22P8fGTcYkjidqmz7D4rRLNE1iCnrwE7MGAzAAA5sy0PzmP26aG3d bd48ndGYXPpbAmO7DG1yEMkpKRPJpJT0ZXJo2zgx5zYRdjG4mE7Ow08PTXK9gbL2Gr5f3Y6OBp6 M2deRSVrG3B6Lc8fOGXxdtGXbH6w/8LqmURK/cq3uevH4Ov1sYm93Orqx0XQciMe2rcWUlMmYxPGmWiT9LsRNnfkWOWiJljBw7RhofnxzCWPS7zL oq3k/oSeJRCsTyWSqMWmTzrE5Ozvxn BwbdtkeHx2Zk5iYzEag0g YwmtGKPsi2i3ffPJOvJYnjP0uvaaVha3WXhd0yiZLPTz3G2W9BkSZ0jEMz9JWxPisfW1mJIyGdP YcXxd 7usL1/neNPVEOfBDgzAwBADixkTe9H2lsnQF6z5JN9vjbtk0N/akclBHpcGN xsiNsAbeKKP8bar8pLMdhEGpsrLdmmApdjdOfGOwjWwJ2Ys6ehH/m5Y fkr5 bE78T0eovdiXy mkMbsxiM Fi6sckxBr/DHWi87Kx9fV9efxR6VS/uN1gcGPNfP y9kMMoa7UUh5rbadajGnlXo8/iZTGPtQvXkMrGIABGNAZ8M Y3DE/eHPOWznRxYIZiJ6pSJJc8rrf5eh2NGQykcfRdcSqO0 wtq47330PRnTuUAxdIg3PZoTEF52fXHs4xpDMumcXEuOgnzt8TkiwIb7wPR9Rf8V3fIy1Fwyli/HEnLf6DPXbx31yYo6jce7NXqpV2/7gczpp/SzecO7QuGU7HjNpG41XiKvUTyaddBzRAz1gAAamMNA8/v2P24dfj177wbW7jzVFoJ3W8SYo3qHZ6fUTg7XQG6jt45DJWei6u gb12AOgQEYgIGtGWi/x TDX98xR3N jwkDs9HAuBX4YSftto/RrsPBGS/Y34h9OMCQwwAMBAa6b3598w12TIIou/4Z3zo56N2S7PYKb8Rds8b1YA4GYKB2Bjpjcjrrx4UZ NoHnvhgFAZgAAZgoEYGMCZsvbP1DgMwAAMwAAPVMIAxAcZqYKzRuRMTK0oYgAEY2C0DGBOMCcYE BmAABmAABqphAGMCjNXAyKpkt6sS9EZvGICBGhnAmGBMMCYwAAMwAAMwUA0DGBNgrAbGGp07MbG ihAEYgIHdMoAxwZhgTGAABmAABmCgGgYwJsBYDYysSna7KkFv9IYBGKiRAYwJxgRjAgMwAAMwAA PVMIAxAcZqYKzRuRMTK0oYgAEY2C0DGBOMCcYEBmAABmAABqphoLl586a58 sPDX8rZ7eOEAeO3jAAAzAAAzCQM9A8fvx786MbN8zRa/x1YQDJAUETNIEBGIABGNglA/5WzofmB68dVbONs0sBuBZvOBiAARiAARioh4H GZM37mBMuMcIAzAAAzAAAzCwVwZ6Y/Imt3JwzPU4ZsaCsYABGICB68kAxgRnvFdnzMRzPScexp1xhwEYKDGAMcGYYExgAAZgAAZgoBoGe mPCMybVDErJRVLOCgMGYAAGYODQGfDGhE/lHPpA0z8mMxiAARiAgTUwwPeYsH3HThEMwAAMwAAMVMNA 82vP/rdQ775FSirgXINjp4YWXnCAAzAwDIM9M YnJ6SmDAnMAADMAADMAADe2UAYwKAewWQFccyKw50RVcYgIG1MoAxwZhgTGAABmAABmCgGgYwJs BYDYxrdffEzcoUBmAABuZjAGOCMcGYwAAMwAAMwEA1DGBMgLEaGFlxzLfiQEu0hAEYWCsDGJ9pl jkAABBFSURBVBOMCcYEBmAABmAABqphAGMCjNXAuFZ3T9ysTGEABmBgPgYwJhgTjAkMwAAMwAAM VMMAxgQYq4GRFcd8Kw60REsYgIG1MoAxwZhgTGAABmAABmCgGgYwJsBYDYxrdffEzcoUBmAABuZ jAGOCMcGYwAAMwAAMwEA1DGBMgLEaGFlxzLfiQEu0hAEYWCsDGBOMCcYEBmAABmAABqphAGMCjN XAuFZ3T9ysTGEABmBgPgYwJhgTjAkMwAAMwAAMVMMAxgQYq4GRFcd8Kw60REsYgIG1MoAxwZhgT GAABmAABmCgGgYwJsBYDYxrdffEzcoUBmAABuZjAGOCMcGYwAAMwAAMwEA1DGBMgLEaGFlxzLfi QEu0hAEYWCsDGBOMCcYEBmAABmAABqphAGMCjNXAuFZ3T9ysTGEABmBgPgYwJhgTjAkMwAAMwAA MVMMAxgQYq4GRFcd8Kw60REsYgIG1MoAxwZhgTGAABmAABmCgGgYwJsBYDYxrdffEzcoUBmAABu ZjAGOCMcGYwAAMwAAMwEA1DGBMgLEaGFlxzLfiQEu0hAEYWCsDGBOMCcYEBmAABmAABqphAGMCj NXAuFZ3T9ysTGEABmBgPgYwJhgTjAkMwAAMwAAMVMMAxgQYq4GRFcd8Kw60REsYgIG1MoAxwZhg TGAABmAABmCgGgYwJsBYDYxrdffEzcoUBmAABuZjAGOCMcGYwAAMwAAMwEA1DGBMgLEaGFlxzLf iQEu0hAEYWCsDGBOMCcYEBmAABmAABqphAGMCjNXAuFZ3T9ysTGEABmBgPgYwJhgTjAkMwAAMwA AMVMMAxgQYq4GRFcd8Kw60REsYgIG1MoAxwZhgTGAABmAABmCgGgYwJsBYDYxrdffEzcoUBmAAB uZjAGOCMcGYwAAMwAAMwEA1DGBMgLEaGFlxzLfiQEu0hAEYWCsDGBOMCcYEBmAABmAABqphAGMC jNXAuFZ3T9ysTGEABmBgPgaai4sL8 zZM3Pv3j0SFCYFBmAABmAABmBgrwxgTABwrwCyyphvlYGWaAkDMHAIDGBMMCYYExiAARiAARioh gGMCTBWA MhOH36wIoVBmAABrZjAGOCMcGYwAAMwAAMwEA1DGBMgLEaGFllbLfKQD/0gwEYOAQGMCYYE4wJDMAADMAADFTDAMYEGKuB8RCcPn1gxQoDMAAD2zGAMcGYYExgAAZgAAZgoB oGMCbAWA2MrDK2W2WgH/rBAAwcAgMYE4wJxgQGYAAGYAAGqmEAYwKM1cB4CE6fPrBihQEYgIHtGMCYYEwwJjAAAzAAAzBQD QMYE2CsBkZWGdutMtAP/WAABg6BAYwJxgRjAgMwAAMwAAPVMIAxAcZqYDwEp08fWLHCAAzAwHYMYEwwJhgTGIABGIABGKiG AYwJMFYDI6uM7VYZ6Id MAADh8AAxgRjgjGBARiAARiAgWoYwJgAYzUwHoLTpw sWGEABmBgOwYwJhgTjAkMwAAMwAAMVMMAxgQYq4GRVcZ2qwz0Qz8YgIFDYABjgjHBmMAADMAADM BANQxgTICxGhgPwenTB1asMAADMLAdAxgTjAnGBAZgAAZgAAaqYQBjAozVwMgqY7tVBvqhHwzAw CEwgDHBmGBMYAAGYAAGYKAaBjAmwFgNjIfg9OkDK1YYgAEY2I6B3pi8fZcEhUmBARiAARiAARjY KwPOmPzhJ Z7R0d7DQSHuZ3DRD/0gwEYgAEYOAQGmotHZ b1GzfM0dH3MSa4ZBiAARiAARiAgb0y0Hz405vmxo0b5vt37 01kENwefSB1QoMwAAMwAAMbMdAc/afN82N139r3r6HMQGm7WBCP/SDARiAARjYloHmpzcxJtuKyPm8EWEABmAABmBgHgYwJtxL5BYeDMAADMAADFTDgH/G5HXzw7e5lYPbncftoiM6wgAMwAAMbMpAc/HhT9uHX4 98Nq3NKmneE83ggwAAMwAAMwsG4G2u8x fS3r5sjvscEY8ZWJgzAAAzAAAzsmYHum1/fvsuOCS573S6b8WP8YAAGYGD9DHTG5B4fF8Yl79klM6Gsf0JhDBlDGICBbRnAmJCMMWQwAAMwAA MwUA0DGBNgrAbGbV0257NSgwEYgIH1MzC7MfnTn/5k L9ODZZ6Q//xj380/F nBksw0fzmC8P/dWqwBA 2TeaHdc4PdtyWYGIRY/LkyRPD/3VpYM3kEoCFSefVq1eG/ vSYLFJB2OyWmPGHLGu9/DSc 5ic8TFxYV59uyZmevhV5vgMCXrMiV2vDAmTDhyElts0vHGRF6P43oZDDtcGJN6x2gf75/F5giMyfpMxBLGD2PChCMntsUmHYzJ6nYPMSbMD3J sMeLzREYE4wJOyZMOjuddDAmGBPxoQOb4DQGKat7bsKY8NzKorfI2DGpewLYxwS92KSDMVldEmb HhPlBm4MWmyPYMWHHhB0TJp2dTjoYE4wJOyarY2CncwTGBGOCMcGY7HTSwZisLimxY8IcsdM5Am OCMcGYMOnsdNLBmGBM2DFZHQM7nSNu3rxpXv/tp3xc Jo/w8IzJjswJw/umqa5Zd57tINrzfC9MYvdPz4oY/LA3G0ac u9RweRaLTkY8vYMZnrPXtYvCw2R1xcfGh cuOGOfrePH9d2CY4uwLfyf PPzDvv/ H/ffPRozut/bD54/31z/6NHUZ9c2fsffByVzXnN3beFMbETj5s0mqYx2v tkw/GpP0Sv5DkSklw fLSOG9iGg8r0ZS0D2N2Pb/HZGiMh17TzMxV62tt1FO2oDGxX7D2qfnh945m ebPXRmTjz9whuSDj0USt2bl/kfm0WzmCGOy7WRk4S1NeHWVLzxpYEyqMibSaD5675YzpLfeM48m7zgtzMzkOJZNVhiT0q7YVcf/qvWXHddt59 Fjckzc /u99djTPxOSWZKZjMjsdnRjEn8 mH8zo6JnQAWnjQwJlUbk3aSfvSeuWV3zO4 mGimF2YGYzJxHJZM4ENjPPSaFtNV62tt1FO2vDF5ey23ch6Zj 6/P3lX5NFH95NbPdotmfsffeza9LeF jr lk1yu gD8/ETaVbCcakda15CnfyWUH89Z3LSmO31ljc/GBP7Zp8yaYQ6D8x7t/pbPnL13Sa51oj0ddztoU1uF xnIlps0tn7MyZhDPXnQtzOSTpO3W5Ke5vvrnnQGYa raROsuvS1 lXqFrZK/NKMHPrlt3FSWPp29gdF yYXG3HJGGh0Xlx49hzkJyT8LO7cb4qW4vNEd2nctZiTB59ZO5nz3zoidsl OiZk zc3nh0uy/tbkx0ziRDMVc7T4yMub1lNeutKV0rjMnVjIk1GXcf AlD2wnxCaarYxOZVq9LcPVNPotNOpUbk2AOwti5hNGbgwd3G9N0icMlFstDb04fOdPa7br0yaef JWyjBnfDsZkz7smylh179v8tSm89Ky484f5qW9uCBwvNkccrjHRdihC4g 7EFodWSaPbWKXZfJ4xjreTHXGaaHdE4xJb0zczkZppyOfiPKdFpmYBgxMN8HVN/ksNunUbkz87RyXPJTx9q8746K8nplQrY4sq5sZdkzkfJAeS6PRH78yrwZ5kRysa65YbI7ojMlan jHJdj30HYAnpYSe7IgsaCg2MS9qzC5GjMkuEndhkkjMg1ZHlCUTURQ3Oyb1P2Nixzo2JupYuvEe NCbJeYKPlidRltSvjxmMSbwjFo2PvP2rjuMQL4KDMNeo7cTXreP3hY3Jij6VM9WYJAYkMi9J8q/MmPiHevOPQMuPK0f9mWkHhR0T 0YvTBJhstASilZWmlQwJuswJvEtFf 7totW3FGxTCQMaFyJsqR lHQqYQZjMtGYXJkXwUGYa0o8hNcr bmgMVnb95hMfPg1MSBRIk8MS2XGpBTzTOZj6LtlMCYYk3DfOPxcbNKp/FaOe0bAP7A4miCGEkt4LkWrI8pK18GY7Pn5krF5YeI4dkZC1C8thloeAj RUe3aqaNssTnCfvPrT/7wbFXf/Bo tTJ8e0MzHSt8xmQHpoSvpA9vcjlphPL4p1ZHlsljf34lSSYYj7Gfi006NRsTbxD6ZwQKY9klCP3 1xNyoyUeeJ4/rYoYdk4k7JupYD80f rin/MTn1/X7YnNE94zJvXvr R6TJ0/MlC9Yk59wCc d9B/P1cxLXpZ/MkbWkcd2hyYvS9vxOz/iE0ZZzE smfpg5m zjXaQvPFhx8S 4fVJIk3gWp28rP3khvIxwRo pn2pzzRLTbp1GpMwjZ892kap438lIXV79F7d/2fFnBj38RjnZmbVyb9JE/4tE2a7DJmfDs1MIMxSceqfw/l7/0pvEjjm3xvjsJPf73y 3UfdRabI9ZqTNrbEuozGfFHfcMOSf 19b0p0c2DZihCmXv2Y h7TMa o8SZFdeOjTM3L7ZfYUeoe9aEjwvvaDs3JJn0ifvwfEH5mYJ8crKThEs0oa275gE7JlU9YxLGtf9 Z3jp3ySaMZf5x4Vt377ovZvN/zqBPPCGRxGzZ66yLGYzJdGNi3/ujvHR/W8lz0H5fTc9Xzk/gqK6fGJMd3dIYeg7jkF9jx6SuN/w Vj/ymotNOnvfMVnRWLdmNv6Crv3Efr2NyZKa6wZVvhdrPV5sjlj1jglmZbY/IogxWXLyWWfbi006GBN9B/DB3ehL2iwz9SQtjMlS7 F6xngT87PYHIExyZ 3OOSdkVLfMCZLTTzrbXexSQdjUjQm/W0lt61fy5Y xmSp9zHGRPsjsQ3GBGNizQrGZKmJZ73tYkzWO3abrH6HzsGYwILGx2JzBMYEY4IxYdLZ6aTDjom Y9J9BLk HjEm9Y2J9p7ddRnGhOdJZnueRLudw44JE4 c1BabdDAmGJPLy TrKSxrkj O65 TFpsj2DFhx4Qdk/ongH1M0otNOhiT1SVhdkyYI7Q5aLE5AmOCMcGYMOnsdNLxxiQkO35 Ydaigfag4hxl7Jiscw5alTGxtwX4vz4N5phgtDYsvPxfpwbaeG5btpYkTJy5Ydp27EvnMz sc35YjTEpgUd5ek8VPdADBmAABmAABnIGZv 4MCLnIqMJmsAADMAADMDANAYwJuLpcMCZBg46oRMMwAAMwMASDGBMMCbJx/aWgIw2mbxgAAZgAAamMoAxwZhgTGAABmAABmCgGgaaly9fms8//9zcu3evmqCmuirq4cBhAAZgAAZg4LAYwJjgkjGkMAADMAADMFANAxgTYKwGRlY9h7XqYTwZTxiA gU0Y4BkTjAnGBAZgAAZgAAaqYQBjAozVwLiJs YcVmQwAAMwcFgMNN988415/vw5D79iUDAoMAADMAADMLB3BjAmQLh3CFntHNZqh/FkPGEABrZhoPn222/NF198wY4JBgWDAgMwAAMwAAN7Z6D57rvvzFdffYUxAca9w7iNw ZcVmgwAAMwcBgMNP/85z/NixcvMCYYE4wJDMAADMAADOydgeZf//qXubi4wJgA495hZLVzGKsdxpFxhAEY2IaB5t///rd59epVa0zs19LzHw1gAAZgAAamMPDWW2 RM8ibszPw/4VoiD37yo0bAAAAAElFTkSuQmCC

And when I debug then it highlights the below line

Set oXLwb = oXLApp.Workbooks.Open("B:\\Workbook1.xlsx")



Can you please help me in this?

Thanks

[Derek_123]

I restarted my laptop and the macro started working again.I have deployed this macro on other user's outlook who is running this on a shared mailbox and he is getting "The attempted operation failed. An object could not be found" error message in below lines of code:



Set SubFolder = ShareInbox.Folders(InputFolder) 'Change this line to specify folder
Set myDestFolder = ShareInbox.Folders(OutputFolder)


The macro has no issues finding the shared mailbox, and the Inbox of it but fails to recognize the subfolders within the Inbox. I have made sure they got correct references selected and excel 16.0 object library is also selected . Any help will be much appreciated.
Thanks

[Derek_123]

Can anyone please help me with this issue? The macro runs fine if I am using my personal mailbox but it doesn't work with the shared mailbox :( Thanks for your help in advance

[June7]

Sorry, I don't have shared mailbox to test with.

[Derek_123]

Sorry, I don't have shared mailbox to test with.

No worries - What do you think could be the issue? Is it linked to settings in a shared mailbox or the code needs to be amended or any reference needs to be added?

Thanks a lot for your help so far.

[June7]

Really have no idea. Never worked with shared mailbox. I can only refer you to documentation and other forum discussions.

https://learn.microsoft.com/en-us/office/vba/api/outlook.namespace.getshareddefaultfolder

https://www.mrexcel.com/board/threads/accessing-a-shared-inbox-from-outlook-to-vba.1113044/

Are you sure owner has delegated sharing to others?

Disable error handler code when debugging. Comment On Error Resume Next line.