ReadItemInBox

'[1] Add the reference To the Outlook Object Library

Dim myOLApp As New Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim myItem As New Outlook.AppointmentItem
Dim myRequest As New Outlook.MailItem
Dim myFolder As Outlook.MAPIFolder
Public myResponse
Dim L As String
Dim i As Integer
Dim SearchSub As String
Dim strSubject As String
Dim myFolder As Outlook.MAPIFolder
Dim strSender As String
Dim strBody As String
Dim olMapi As Object
Dim strOwnerBox As String
Dim sbOLApp
Set myOLApp = CreateObject("Outlook.Application")
Set olNameSpace = myOLApp.GetNamespace("MAPI")
Set myFolder = olNameSpace.GetDefaultFolder(olFolderInbox)
'Dim mailfolder As Outlook.MAPIFolder

Set olMapi = GetObject("", "Outlook.Application").GetNamespace("MAPI")
For i = 1 To myFolder.Items.Count
strSubject = myFolder.Items(i).Subject
strBody = myFolder.Items(i).Body
strSender = myFolder.Items(i).SenderName
strOwnerBox = myFolder.Items(i).ReceivedByName
' Now Mail it to somebody

Set sbOLAPp = CreateObject("Outlook.Application")
Set myRequest = myOLApp.CreateItem(olMailItem)
With myRequest
.Subject = strSubject
.Body = strBody
.To = "anybody@anywhere.com"
.Send
End With
Set sbOLAPp = Nothing
Next
Set myOLApp = Nothing
Exit Sub