The operation failed. An object could not be found.

[kotaramamohana]

Hi Friends,

I have an issue in the email checking, and i have given the error below. And has also attached the code i used. If i am not declaring the variables its working perfectly, if i use this in the framework it throws error. Please help me to resolve this issue.

---------
Error:
---------
The operation failed. An object could not be found.

Line (63):

Code:

"set objsubfolder = objparentfolder.folders(objfolder.name)".

----------------------------------------

Code:

Option Explicit Dim olapp,inbox,fold,colfolders,objfolder,objsubfolder,objparentfolder,mail,col,strMailSub1,strMailSub2,strMailBody1,strMailBody2,strMailBody3 Call fnResetPassword() Public Function fnResetPassword() set olapp = createobject("outlook.application") set inbox = olapp.getnamespace("mapi").folders for each fold in inbox 'msgbox fold.name 'If fold="Razoo Mails" Then getsubfolders(fold) 'End If next 'msgbox inbox.count End Function sub getunreadmails(objfolder) set col = objfolder.items for each mail in col If mail.unread then strMailSub1=mail.subject strMailSub2=split(strMailSub1,"-") If Trim(strMailSub2(1))="Password reset request" Then 'datatable.SetCurrentRow i 'msgbox mail.subject 'datatable.Value("Subject","Global")=mail.subject 'msgbox mail.sendername 'msgbox mail.body strMailBody1=mail.body strMailBody2=split(strMailBody1,"http://") strMailBody3=split(Trim(strMailBody2(1)),"edit") 'Datatable.Value("Expected","SubDriver[SubDriver]")=Trim(strMailBody3(0))&"edit" strResetUrl=Trim(strMailBody3(0))&"edit" 'Msgbox "http//" &z(0) &"/edit" msgbox strResetUrl 'msgbox mail.senton mail.unread=false End if end if next end sub sub getsubfolders(objparentfolder) set colfolders = objparentfolder.folders 'msgbox colfolders.count For each objfolder in colfolders 'msgbox objfolder.name set objsubfolder = objparentfolder.folders(objfolder.name) msgbox objsubfolder.name if objfolder.name<>"notes" then getunreadmails(objfolder) end if getsubfolders objsubfolder next end sub

Regards,
Ram

[anil2u]

Hi,

Can you try setting the initialized objects to 'Nothing' at the end of the sub routines, when they are of no use. I had same error once and it worked for me. I think without the explicit declaration the variables are created and destroyed within the scope of the function, so you are not getting the error when you are not using 'Option explicit'

Let me know if it helps.

Cheers