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) 当然以上全是基本操作,如果想知道各个的属性和方法,可以直接定义变量后加.自动显示属性方法。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值