NOw you can get the inbox from outlook (if enhanced you can get mails from other computers inboxes.) with this simple code. Please feedback if you cannot do anything with this code, so that I post the zip file with a sample project. It also can send messages to people in Outlook. 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 |
Get INBOX From OUTLOOK |
India web developer web development India | India web development company India ecommerce web developer