I ended up using some code to export the Outlook Email Data to Excel. It was the fastest processing option.
It beat out several things I considered:
1. Make Table from Scratch (3 to 4 minutes)
Code:
SELECT * INTO NEWTABLE FROM tblDeliverableTracking;
2. Link 9 Users Sent Items Folders.... (To Messy)
3. Create a new Table using the wizard (3 to 4 minutes)
Final Option.....
Took 66 Seconds to process into excel using this Excel VBA Code ----> Then a simple append:
Code:
Sub ExportMailByFolder()
'Note: Reference to Outlook Object Library is needed. Outlook should also be open.
Dim ns As Outlook.Namespace
Dim objFolder As Outlook.MAPIFolder
Dim intCounter As Integer
Dim itmCounter As Integer
Dim myTime As Double
Set ns = GetNamespace("MAPI")
Set objFolder = ns.PickFolder
myTime = Timer
Application.ScreenUpdating = False
On Error Resume Next
For itmCounter = objFolder.Items.Count To 1 Step -1
With objFolder.Items(itmCounter)
If .Class = olMail Then
intCounter = intCounter + 1 'Increment Data Input Row
Cells(intCounter, 1) = .Subject
Cells(intCounter, 2) = .Body
Cells(intCounter, 3) = .SenderName
Cells(intCounter, 4) = .To
Cells(intCounter, 5) = .SenderEmailAddress
Cells(intCounter, 6) = .SenderEmailType
Cells(intCounter, 7) = .CC
Cells(intCounter, 8) = .BCC
Cells(intCounter, 9) = .Importance
Cells(intCounter, 10) = .Sensitivity
Cells(intCounter, 11) = .Sender.GetExchangeUser.PrimarySmtpAddress
Rows(intCounter).WrapText = False
End If
End With
Next itmCounter
On Error GoTo 0
Application.ScreenUpdating = True
MsgBox "This code ran successfully in " & Round(Timer - myTime, 2) & " seconds", vbInformation
Set ns = Nothing
Set objFolder = Nothing
End Sub
Didn't like the link to the database... it didn't seem stable. I feel like it would lead to database corruption.