Need help to paste email list view to excel

In terms of the cell containing the date - in this case cell D3
=IF(ISNUMBER(D3),IF(D3>1,D3,TODAY()),IF(ISNUMBER(FIND(":",SUBSTITUTE(D3,LEFT(D3,3),""))),TODAY()+IF(VLOOKUP(LEFT(D3,3),$O$2:$P$8,2,FALSE)-WEEKDAY(TODAY())>=0,VLOOKUP(LEFT(D3,3),$O$2:$P$8,2,FALSE)-WEEKDAY(TODAY())-7,VLOOKUP(LEFT(D3,3),$O$2:$P$8,2,FALSE)-WEEKDAY(TODAY())),DATEVALUE(SUBSTITUTE(D3,LEFT(D3,3),"")&"/"&YEAR(TODAY()))))

Where Cells O2:P8 contain a lookup to assign a number to a day of the week.

The attached file shows the helper columns used to develop the formula. The formula is a result of substituting the formulas in the helper columns into the final formula repeatedly until everything is defined in terms of cell D3.

I just thought of something, the formula will break two weeks into the new year when it will interpret dates like 12/31 to be in the current year instead of last year. You can fix this with a helper column that has the following formula:
=IF(L3>TODAY(),DATE(YEAR(L3)-1,MONTH(L3),DAY(L3)),L3) Where L3 is the cell with the computed date above.

I will leave it as an exercise to the reader to roll this back to a single formula in terms of cell D3 alone. I'm not sure Excel can take formulas that long. The resulting formula will be 5 times longer than the one I gave in the previous post.

P.P.S - You could also have a VB function read the inbound mailbox and get the dates straightway.

Here is the VB version. The maximum number of records to read is in cell B1. The mailbox to read is in cell B3, the folder to read is in cell B5. The email list is on the email list sheet. In this case, I'm looking at all my mail in the Help Desk Folder - I just as well looked at Inbox or Sent Mail.