VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 制作OutLook的助手-文件夹基础
发表评论(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...