Sub Application_NewMail()
Dim myOlApp As New Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Temp")
Dim strName As String
For Each myItem In myInbox.Items
strName = myItem.EntryID
myItem.SaveAs "C:\temp\" & strName & ".txt", olTXT
myItem.Move myDestFolder
Set myItem = myItems.GetNext
Next myItem
End Sub