Hey, i was able to resolve the above issue, by adding the below line
now another request is to search in all the folders and not only the inbox folders. as few users move emails to sub folders or save to archive or PSTs..SaveAs Environ("HOMEPATH") & "\My Documents\" & olMail.Subject & ".html", olHTML