Quote Originally Posted by gmayor View Post 
strNum = .Cells(LastRow, 1)
Should be 
strNum = .Cells(lngRow, 1)

Hi @gmayor,

Thank you so much for your support on this code so far. i wish to understand how do i save the searched email item as PDF rather than printing.

i searched over the web, however didn't find relevant solution or maybe i didn't understand.

I'm hoping there would be a simpler way to save the mail item as PDF.

Regards,
Pawan Tejani.