发表评论(0)作者：Sam Huggill, 平台：VB6.0+Win98, 阅读：8401, 日期：2001-04-29
Folder Basics
Hopefully you all use folders within your Outlook environment – I must admit that I only recently realised that folders would actually be useful to save my inbox exceeding 100 messages (although it still currently stands at around 500, but that’s not the point!)
Along with folders come rules (Tools -> Rules Wizard), which are nifty little things that shift certain emails to certain folders. Very handy.
Anyway, enough of the Outlook basics; lets delve into some programming!
Open up VB, select a new Standard VB Project. Click Project, References and scroll down and check Microsoft Outlook 9 Object Library (or whatever version of Outlook you’re running).
To start with, we’re just going to make a simple project that loads Outlook and reads the folders present. Add the following code to the form:
Private Sub Form_Load()
Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objInbox As MAPIFolder
Dim objFolder As MAPIFolder
注释：Get the MAPI reference
Set objNameSpace = objOutlook.GetNamespace("MAPI")
注释：Pick up the Inbox
Set objInbox = objNameSpace.GetDefaultFolder(olFolderInbox)
注释：Loop through the folders under the Inbox
For Each objFolder In objInbox.Folders
lstFolders.AddItem objFolder.Name
Next objFolder
End Sub
You will also need to add a list box, named lstFolders.
Give that a run and hopefully all the folders under your Inbox will appear in the list box.
OK, that was a pretty simple example of how to loop through all the folders under the Inbox and read them. Now we’ll try reading some messages...
Private Sub Form_Load()
Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objInbox As MAPIFolder
Dim objMail As MailItem
注释：Get the MAPI reference
Set objNameSpace = objOutlook.GetNamespace("MAPI")
注释：Pick up the Inbox
Set objInbox = objNameSpace.GetDefaultFolder(olFolderInbox)
注释：Loop through the items in the Inbox
For Each objMail In objInbox.Items
lstFolders.AddItem objMail.Subject
Next objMail
End Sub
(Note: If you’ve got a large number of items in your Inbox like me, you might want to limit the number of messages that the program reads in).
Now that we’ve read folders and messages, lets take a look at performing some basic messaging tasks...
Hopefully you all use folders within your Outlook environment – I must admit that I only recently realised that folders would actually be useful to save my inbox exceeding 100 messages (although it still currently stands at around 500, but that’s not the point!)
Along with folders come rules (Tools -> Rules Wizard), which are nifty little things that shift certain emails to certain folders. Very handy.
Anyway, enough of the Outlook basics; lets delve into some programming!
Open up VB, select a new Standard VB Project. Click Project, References and scroll down and check Microsoft Outlook 9 Object Library (or whatever version of Outlook you’re running).
To start with, we’re just going to make a simple project that loads Outlook and reads the folders present. Add the following code to the form:
Private Sub Form_Load()
Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objInbox As MAPIFolder
Dim objFolder As MAPIFolder
注释：Get the MAPI reference
Set objNameSpace = objOutlook.GetNamespace("MAPI")
注释：Pick up the Inbox
Set objInbox = objNameSpace.GetDefaultFolder(olFolderInbox)
注释：Loop through the folders under the Inbox
For Each objFolder In objInbox.Folders
lstFolders.AddItem objFolder.Name
Next objFolder
End Sub
You will also need to add a list box, named lstFolders.
Give that a run and hopefully all the folders under your Inbox will appear in the list box.
OK, that was a pretty simple example of how to loop through all the folders under the Inbox and read them. Now we’ll try reading some messages...
Private Sub Form_Load()
Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objInbox As MAPIFolder
Dim objMail As MailItem
注释：Get the MAPI reference
Set objNameSpace = objOutlook.GetNamespace("MAPI")
注释：Pick up the Inbox
Set objInbox = objNameSpace.GetDefaultFolder(olFolderInbox)
注释：Loop through the items in the Inbox
For Each objMail In objInbox.Items
lstFolders.AddItem objMail.Subject
Next objMail
End Sub
(Note: If you’ve got a large number of items in your Inbox like me, you might want to limit the number of messages that the program reads in).
Now that we’ve read folders and messages, lets take a look at performing some basic messaging tasks...
RSS地址