Optimizing getting data from Exchange

Hello,

I've got a relatively simple query aggregating data from Office 365 Exchange accounts.....but it is slow.  Is there anything I can do to speed it up?  I've already tried turning off privacy.

Code below.

Much appreciated,

Alex

let
    emailaddress = "dummy@dummy.com",
    Source = Exchange.Contents( emailaddress),
    Mail1 = Source{[Name="Mail"]}[Data],
    #"Extracted Date" = Table.TransformColumns(Mail1,{{"DateTimeSent", DateTime.Date, type date}}),
    #"Expanded Sender" = Table.ExpandRecordColumn(#"Extracted Date", "Sender", {"Address"}, {"Sender.Address"}),
    #"Removed Other Columns" = Table.SelectColumns(#"Expanded Sender",{"Folder Path", "Sender.Address", "DateTimeSent"}),
    #"Grouped Rows" = Table.Group(#"Removed Other Columns", {"DateTimeSent", "Sender.Address", "Folder Path"}, {{"Count", each Table.RowCount(_), type number}})
 in
    #"Grouped Rows"