Outlook VBA 开发常用资料

要对邮件箱里的邮件进行操作，首先要取得Outlook MAPI名字空间。可以使用下面的语句：

　　 Dim mobjOutlook As Outlook.NameSpace

　　 Dim objOutlook As New Outlook.Application

　　 mobjOutlook=objoutlook.GetNameSpace(“MAPI”)

　　 用mobjOutlook的GetDefaultFolder方法。可以取得收件箱的MAPIFolder对象：

　　 Dim objFolder As Outlook.MAPIFolder

　　 ObjFolder=mobjOutlook.GetDefaultFolder(6)

　　 其中参数6代表收件箱，其他参数的意义如下表：

　　 常量

数值

描述

　　 OlFolderDeletedItems 3

已删除邮件

OlFolderOutbox 4

发件箱

OlFolderSentMail 5

已发件邮件

olFolderInbox 6

收件箱

OlFolderCalendar 9

日历

OlFolderContacts 10

联系人

olFolderJournal 11

日记

olFolderNotes 12

便笺

olFolderTasks 13

任务

olFolderDrafts 16

草稿