/ Snippet Library - View Code

Visual Basic / Outlook Samples / Reading Items In Inbox

Snippet details

ID: 414

Viewed: 1431

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

obviously need outlook for this

Add the reference To the Outlook Object L

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllDim 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

No Reviews to show