ThrottleWorks
Excel Ninja
Hi,
I am getting error message as ‘The attempted operation failed. An object could not be found’ at last line of below mentioned code.
Please note, I will not be able to upload the file, this is a editing job I am required to do.
aa is Cell A4 in this case. Cell A3 mentions put ‘Source PST\Folder path’ from cell A4. These can be multiple, A4, A5, A6 and so on.
Cell A4 value is ‘\\chandoo.chandoo@chandoo.com’
Can anyone please help me in this.
I am getting error message as ‘The attempted operation failed. An object could not be found’ at last line of below mentioned code.
Please note, I will not be able to upload the file, this is a editing job I am required to do.
aa is Cell A4 in this case. Cell A3 mentions put ‘Source PST\Folder path’ from cell A4. These can be multiple, A4, A5, A6 and so on.
Cell A4 value is ‘\\chandoo.chandoo@chandoo.com’
Can anyone please help me in this.
Code:
TotalFolderSize = 0
For i = 4 To Arng
aa = Range("A" & i).Value
Dim pst() As String
pst = Split(aa, "\")
pst = Split(aa, "\")
Set Oapp = Outlook.Session.Application
Set OLF = Oapp.GetNamespace("MAPI").Folders(pst(0))