VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 制作OutLook的助手-添加、删除、编辑
发表评论(0)作者:Sam Huggill, 平台:VB6.0+Win98, 阅读:7818, 日期:2001-04-29
Add, Delete and Edit Messages

So you think you’re ready to play around with messages eh? Well, true, you probably are. Messages are referred to as ‘items’ in Outlook, as you can also have appointments & notes etc. For now, we’ll be dealing with the items located within the Inbox folder.

The next snippet of code shows you how to simple create a message, write a short message, and save it in the Drafts folder:

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)
  
  Set objMail = objInbox.Items.Add
  With objMail
    .Subject = "Well done"
    .Body = "This article is great!"
    .To = "sam@vbsquare.com"
    .Save
  End With
End Sub

If you look closely at the code you’ll see that I’ve been rather cheeky with the body and subject lines, so to get your own back you can run the next piece of code to delete my ego booster!

Private Sub Form_Load()

  Dim objOutlook As New Outlook.Application
  Dim objNameSpace As Outlook.NameSpace
  Dim objDrafts As MAPIFolder
  Dim objMail As MailItem
    
  注释:Get the MAPI reference
  Set objNameSpace = objOutlook.GetNamespace("MAPI")
  
  注释:Pick up the Drafts folder
  Set objDrafts = objNameSpace.GetDefaultFolder(olFolderDrafts)
  
  Set objMail = objDrafts.Items("Well done")
  objMail.Delete
End Sub

Right, that’s just about it for the first part in this series! In part 2 you’ll learn how to:

Filter emails as you read them in through different criteria
Build a program which allows you to:
Read in messages from a folder
Filter duplicates & blanks
Apply a date criteria
Locate the email details
Write them to a file
See you again soon for some more exciting Outlook programming!