Public Sub ExportFile(MyMail As MailItem)
Dim outNS As Outlook.NameSpace
Dim outFolder As oulook.MAPIFolder
Dim outNewMail As Outlook.MailItem
Dim strDir As String
Set outNS = GetNamespace("MAPI")
Set outFolder = outNS.GetDefaultFolder(olFolderInbox)
Set outNewMail = outFolder.Items.GetLast
strDir = "C:\" 'insert directory eg. "C:\Project\OutlookData\"
If outNewMail.Attachments.Count = 0 Then GoTo Err
outNewMail.Attachments(1).SaveAsFile strDir & "Data.csv"
Dim xlApp As Excel.Application
Dim xlWbk1 As Excel.Workbook
Dim xlWbk2 As Excel.Workbook
Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Workbooks.Open strDir & "Data.csv"
xlApp.Workbooks.Open strDir & "Master.xlsb"
Set xlWbk1 = xlApp.Workbooks("Data.csv")
Set xlWbk2 = xlApp.Workbooks("Master.xlsb")
xlWbk1.Sheets(1).UsedRange.Copy Destination:=xlWbk2.Sheets(1).Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1)
xlWbk2.Save
xlApp.DisplayAlerts = True
xlApp.Quit
Set xlWbk2 = Nothing
Set xlWbk1 = Nothing
Set xlApp = Nothing
Set outNewMail = Nothing
Set outFolder = Nothing
Set outNS = Nothing
Err:
Set outFolder = Nothing
Set OuNewMail = Nothing
Set outNS = Nothing
End Sub