OutLook的VBA基本对象及操作

1)在OutLook中创建应用对象为：dim otlApplication as OutLook.application

                           set otlApplication=CreateObject("Outlook.appliction")

2)在OutLook中创建命名空间： dim nameSpace1 as namespace

                          set nameSpace1=application.getNamespace("MAPI")'这里的MAPI是指支持 的唯一数据源是 MAPI，允许访问存储在用户的邮件存储区中的所有Outlook 数据。

3)接着创建Folder文件： dim folder1 as folder    dim folder2 as folder

                     set folder1= nameSpace1.getDefaultFolder(olFolderInbox)'获取跟文件夹

4)可以根据folder1.folders.count可以得到所有的子文件夹的个数，然后利用循环进行遍历，去的各个文件，如下遍历求出各个子文件夹的名字：

            for k=0 to folder1.folders.count

                set folder2 = folder1.folders(k)

                msgbox folder2.name'直接使用弹出对话框来显示

                debug.print folder2.name'使用本地窗口进行输出

             next

5)在OutLook中创建邮件：可以直接为邮件赋值，也可以通过Application对象进行创建：

    第一种：dim mailItem1 as MailItem

             set mailItem1=folder1.items(n)'n必须小于或等于folder1.items.count

    第二种：set mailItem1=application.createitem("olMailItem")

6)在OutLook中的Explorers集合对象，代表打开的主窗体对象

        Msgbox Application.activeExplorer.Selction.count'这里的count是显示你选择的主窗体

7)在OutLook中的Inspectors

         Msgbox Application.inspectors.count'这里的count是显示你打开的子窗体的个数

  

 8) 当然以上全是基本操作，如果想知道各个的属性和方法，可以直接定义变量后加.自动显示属性方法。