Import Email to Excel From newest to Oldest

[hajiali]

Hello I Thought I had solved this in a previous post I had however its still not working. I have the code below to pull email info to excel, However, its not importing them from newest to oldest which is what Im needing.

I have tried adding
Set olfoder = Items.Sort("[ReceivedTime]", False) after
For Each xMailItem In olFolder.Items

still no luck.

below is part of the code, however I have the rest of the code in the following link HERE.

For Each xMailItem In olFolder.Items
        Set xDoc = xMailItem.GetInspector.WordEditor
        For I = 1 To xDoc.Tables.Count
        Set xTable = xDoc.Tables(I)
        xTable.Range.Copy
        xWs.Range("Y1").Select
        xWs.Paste
        Range("X1").Offset(I, 0).Value = xMailItem.ReceivedTime
        Range("X1").Offset(I, 0).Columns.AutoFit
        Range("X1").Offset(I, 0).VerticalAlignment = xlTop
    Next
    Call EmailCopy
Next
    I = I + 1
    
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
Range("X:AH").ClearContents
Call TextToNumbers
    MsgBox "ALL BIDS FROM EMAIL HAVE BEEN IMPORTED.", vbOKOnly
End If
End Sub

 

[Richynero]

Why dont you just sort them afterwards?

 

[hajiali]

I have thought of that, however, before this macro is ran there will be lot of data in the sheet already. value in column A for all the other data will be blank. column A is where the

Range("X1").Offset(I, 0).Value = xMailItem.ReceivedTime

end up when the macro reaches

 Call EmailCopy

portion of the code.

So when I sort them afterwards, all the data that was there before this macro is ran goes to the bottom, I need these data to remain on the top. and the Value in row A for all the data that were there before this macro is ran needs to be blank for conditional formatting purposes.

 

[Richynero]

Why dont you drop the results into an array, sort that array, and then drop that into your model. If you cant work out how to use an array just put them somewhere else in your spreadsheet.

Personally, I would do away with VBA entirely and use Microsoft Flow to update your excel spreadsheet each time an email is received. Microsoft Flow is far simpler for the average business user to pick up and far easier to tweak.

flow- add row to excel when receive email

Hi, I wanted to create Flow, to add new row to excel when new email is received (with specific receiver email). In the second step when I tried to add excel action I should enter "Table name" but I am not sure what this is. I entered Sheet name, which I thought this is, but it does not work. Any...

powerusers.microsoft.com

Microsoft Power Automate

emea.flow.microsoft.com

 

[Richynero]

Also, in regards to the postioning (some rows going to the top etc) if you gave each line an index number you could use that to ensure the rows go where you want them.