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

草稿