I just want an email received date placed in an excel cell.
Below are the things I have tried.

Dim wbXL As Excel.Application

Set wbXL = Excel.Application
‘the above line works and goes through

Set wbXL = Excel.Application.Workbooks("G:\Print pdf files3.xls")
‘the above line does not work and returns Script out of range error

Set wbXL = workbooks("G:\Print pdf files3.xls")
‘the above line does not work and returns Script out of range error

For Each objMailItem In objPersonalInbox.Items

MsgBox objMailItem.Subject & " " & objMailItem.ReceivedTime
‘the above line works and returns subject and received time

wbXL.workbooks("G:\Print pdf files3.xls").sheets("Sheet1").[g2] = "PP"
‘the above line does not work and returns Script out of range error


wbXL.workbooks("G:\Print pdf files3.xls").sheets("Sheet1").[g2] =
objMailItem.ReceivedTime
‘the above line does not work and returns Script out of range error
Next

I don’t care if I need to use a variable to do this with and then
dump the value in to excel
But I can’t get that to work either.
Can any one help?
Any help would be appreciated.

Thank You genelm