[转]Outlook API
本文转自:https://www.cnblogs.com/yl153/p/6711519.html
1、Outlook简介
若要从Outlook 外控制Outlook对象,必须在编写代码的工程中建立对Outlook对象库的引用。
1.1 Outlook Application说明:
代表整个Microsoft Outlook应用程序。它是层次结构中唯一可使用CreateObject方法或GetObject函数返回的对象。
1.2 Outlook Application 对象的用途:
- 作为根对象,使用它可访问 Outlook 层次结构中的其他对象。
- 允许直接访问使用CreateItem创建的新项目,而不用遍历对象层次结构。
- 允许访问当前界面对象(浏览器和检查器)。
1.3 返回 Outlook Application 对象引用的方法:
- 可以使用 CreateObject 函数启动新的Outlook 会话,并且返回Application对象的引用,该对象代表新会话。
- 可以使用GetObject函数返回Application对象的引用,该对象代表正在运行的会话。请注意,因为在任何给定时刻只能有一个Outlook实例处于运行状态,所以GetObject在Outlook中使用时无太大用途。CreateObject总是用来访问当前Outlook实例或在没有实例时创建新实例。但是,也可以使用GetObject方法的错误跟踪功能来确定Outlook当前是否处于运行状态。
- 可以在几种类型的语句中使用 New关键字隐式地创建Outlook Application对象的新实例,使用Set语句将对象变量设置为Application对象的新实例。也可以在Dim、Private、Public 或 Static语句中使用New关键字来声明对象变量。Application对象的新实例在第一次引用该变量时创建。
若要启动Outlook自动化会话,可以使用前期绑定或后期绑定。后期绑定使用GetObject或CreateObject函数初始化Outlook。例如,以下代码将对象变量设置为Outlook Application对象,该对象为Outlook对象模型中的最高层对象。所有自动化代码都必须首先定义Outlook Application对象,才能够访问其他Outlook对象。
Dim ol as Object/Variant
Set ol = CreateObject("Outlook.Application")
若要使用前期绑定,首先要设置到Outlook对象库的引用。然后就可用以下语法启动Outlook会话。
Dim ol as Outlook.Application
Set ol = New Outlook.Application
或直接使用:
Dim ol as New Outlook.Application
大部分编程解决方案都与 Outlook 中存储的数据进行交互。Outlook在邮件应用程序编程接口(MAPI)文件夹中存储其全部信息。在将对象变量设置为Outlook Application对象后,通常要设置一个 Namespace对象来引用 MAPI,如下所示:
Set ol = New Outlook.Application
Set ns = ol.GetNameSpace("MAPI")
Set f = ns.GetDefaultFolder(olFolderContacts)
2、访问Outlook
2.1 VBA包含3种从另一个程序中访问Outlook的方法。
2.1.1 Outlook未被加载:CreateObject方法

Sub GetOlObject_1()
Dim ol As Object, counter As Integer Set ol = CreateObject("Outlook.Application")
counter = ol.Getnamespace("MAPI").Getdefaultfolder(6).Items.Count
Debug.Print "InBox中邮件的总数为:"; counter End Sub

限制条件:CreateObject不能识别Outlook类型名称,只能识别Outlook常量。
例如:在VBA中,"收件箱"映射的类型名称是olFolderInbox,映射的Outlook常量是6。
counter = CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.Count
将返回一个错误。
2.1.2 Outlook已经被加载:GetObject方法

Sub GetOlObject_2()
Dim ol As Object, counter As Integer Set ol = GetObject(, "Outlook.Application")
counter = ol.Getnamespace("MAPI").Getdefaultfolder(6).Items.Count
Debug.Print "InBox中邮件的总数为:"; counter End Sub

GetObject方法的限制条件同CreateObject。
2.1.3 加载Outlook_VBA_Library
References方法:无论Outlook是否被加载都独立。
手动引用:VBE-->工具-->引用-->Microsoft Outlook 11.0/12.0/15.0 Object Library

Sub GetOlRef() ThisWorkbook.VBProject.References.AddFromFile "msoutl9.olb" 'Outlook 2000
ThisWorkbook.VBProject.References.AddFromFile "msoutl10.olb" 'Outlook 2003
ThisWorkbook.VBProject.References.AddFromFile "msoutl11.olb" 'Outlook 2007 End Sub

加载库后,你可以使用Outlook作为一个对象。
counter = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.Count
此种情况下,你可以使用Outlook的类型名称和常量。

Sub GetOlObject_3()
Dim counter As Integer counter = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.Count
Debug.Print "InBox中邮件的总数为:"; counter End Sub

或者使用New关键字隐式地创建Outlook对象:

Sub GetOlObject_4()
Dim ol As Outlook.Application, counter As Integer Set ol = New Outlook.Application
counter = ol.GetNamespace("MAPI").GetDefaultFolder(6).Items.Count
Debug.Print "3InBox中邮件的总数为:"; counter End Sub

2.1.4 获取动态引用:

Sub GetRefInfo()
Dim i As Integer On Error Resume Next
For i = 1 To ThisWorkbook.VBProject.References.Count
Debug.Print ThisWorkbook.VBProject.References.Item(i).Name
Debug.Print ThisWorkbook.VBProject.References.Item(i).Description
Debug.Print ThisWorkbook.VBProject.References.Item(i).GUID
Debug.Print ThisWorkbook.VBProject.References.Item(i).Major
Debug.Print ThisWorkbook.VBProject.References.Item(i).Minor
Debug.Print ThisWorkbook.VBProject.References.Item(i).FullPath
Next End Sub

2.2 Outlook中的默认文件夹
2.2.1 DefaultFolder的清单

Sub ol_5()
Dim ol As Object Set ol = CreateObject("Outlook.Application")
With ol.GetNamespace("MAPI")
Debug.Print .GetDefaultFolder(3).Name '删除的项目Deleted items
Debug.Print .GetDefaultFolder(4).Name '发件箱PostOut
Debug.Print .GetDefaultFolder(5).Name '发送项目Sent items
Debug.Print .GetDefaultFolder(6).Name '收件箱PostIn
Debug.Print .GetDefaultFolder(9).Name '日历Canlender
Debug.Print .GetDefaultFolder(10).Name '联系人Contacts
Debug.Print .GetDefaultFolder(11).Name '日记Journals
Debug.Print .GetDefaultFolder(12).Name '便签Notes
Debug.Print .GetDefaultFolder(13).Name '任务Tasks
Debug.Print .GetDefaultFolder(14).Name '提醒Reminders
Debug.Print .GetDefaultFolder(15).Name '提醒Reminders
Debug.Print .GetDefaultFolder(16).Name '草稿Drafts
End With End Sub

OlDefaultFolders常量 | Value |
---|---|
olFolderCalendar | 9 |
olFolderContacts | 10 |
olFolderDeletedItems | 3 |
olFolderDrafts | 16 |
olFolderInbox | 6 |
olFolderJournal | 11 |
olFolderJunk | 23 |
olFolderNotes | 12 |
olFolderOutbox | 4 |
olFolderSentMail | 5 |
olFolderTasks | 13 |
olPublicFoldersAllPublicFolders | 18 |
olFolderConflicts | 19 |
olFolderLocalFailures | 21 |
olFolderServerFailures | 22 |
olFolderSyncIssues | 20 |
2.3 Outlook的标准项目
Outlook标准的项目有以下几种:电子邮件(email)、约会(appointment)、联系人(contact)、任务(task)、日记(journal)、便签(note)、'sticker'(Post-it)、distributionlist
特殊项目:taskrequest、meetingrequest
Outlook根据存储的文件夹区分邮件:
草稿邮件:草稿文件夹-->GetDefaultFolder(16)
邮件:映射到PostOut-->GetDefaultFolder(4)
发送邮件:映射到Sent items-->GetDefaultFolder(5)
接收邮件:映射到PostIn-->GetDefaultFolder(6)
2.3.1 标准项目清单:
Sub ol_6()
With CreateObject("Outlook.Application")
.CreateItem(0-7)
End With End Sub
OlItemType |
value |
olAppointmentItem | 1 |
olContactItem | 2 |
olDistributionListItem | 7 |
olJournalItem | 4 |
olMailItem | 0 |
olNoteItem | 5 |
olPostItem | 6 |
olTaskItem | 3 |
3 Outlook中的VBA命令
Email属性
[转]Outlook API的更多相关文章
- C#中调用Outlook API 发起会议
原文:C#中调用Outlook API 发起会议 在我上一篇博文中曾提到了 SharePoint 中调用传出电子邮件中的邮件服务器及地址发送邮件 但是,里面的方法只能用于发送普通电子邮件.如果要发起会 ...
- Outlook API
1.Outlook简介 若要从Outlook 外控制Outlook对象,必须在编写代码的工程中建立对Outlook对象库的引用. 1.1 Outlook Application说明: 代表整个Mic ...
- Xamarin+Prism小试牛刀:定制跨平台Outlook邮箱应用
通过本文你将学会如下内容: 1,如何使用Xamarin开发跨平台(Windows,Android,iOS)应用. 2,如何使用微软的登录界面登入Microsoft账号. 3,如何使用Outlook邮箱 ...
- 使用C#模拟Outlook发送邮件,代码编译报错
添加OutLook API using OutLook = Microsoft.Office.Interop.Outlook; 发送邮件方法 public void SendEmail() { Out ...
- outlook 会议室
原文:outlook 会议室 但是,里面的方法只能用于发送普通电子邮件.如果要发起会议之类的特殊邮件的话,可以C#调用Outlook API,自身的API. 创建项目后,为它添加.NET引用:“Mic ...
- 获取outlook联系人寻呼字段
这称不上一篇技术文. 这边记录解决一个问题的过程和感受.这种感觉每个搞IT的人或多或少都感受过,是程序人独有的快乐之一.只是大部分人没有将这种感觉记录下来.但是当你记录时,这种感觉也早已消失. 需求: ...
- [工具]Microsoft To-Do,简约还是简陋?
1. 简介 微软收购奇妙清单后,由奇妙清单的原班人马打造了一个全新的待办事项应用,就叫"To-Do"(简单粗暴,好像新浪微博直接就叫"微博"的感觉).这个应该刚 ...
- JavaScript API for Office Outlook Add-in - “一页纸文档“
上一篇文章 Office Add-in Model 为 Outlook Mail Add-in 提供的 JavaScript API 介绍 ,简单地在表格中列出了所有的 Object 定义,但是个人感 ...
- Office Add-in Model 为 Outlook Mail Add-in 提供的 JavaScript API 介绍
本文所讨论的 Mailbox API是指在 Mail Add-in 中可调用的 JavaScript API.开发者可以利用这些API 实现 Add-in 和 Outlook 的交互(数据读取与写入) ...
随机推荐
- Java集合专题
1.Java 中常用的容器有哪些? 常见容器主要包括 Collection 和 Map 两种,Collection 存储着对象的集合,而 Map 存储着键值对(两个对象)的映射表. Collectio ...
- Add a Parametrized Action 添加带参数的按钮
In this lesson, you will learn how to add a Parametrized Action. These types of Actions are slightly ...
- 松软科技web课堂:字符串方法和属性
字符串方法帮助您处理字符串. 字符串方法和属性 原始值,比如“Bill Gates”,无法拥有属性和方法(因为它们不是对象). 但是通过 JavaScript,方法和属性也可用于原始值,因为在执行方法 ...
- 剑指offer 28:字符串的排列
题目描述 输入一个字符串,按字典序打印出该字符串中字符的所有排列.例如输入字符串abc,则打印出由字符a,b,c所能排列出来的所有字符串abc,acb,bac,bca,cab和cba. 输入描述 输入 ...
- 记录NodeJs常用工具
安装模块 npm install [-g] module express supervisor:改代码自动重启服务 用法>> supervisor xxx.js 搜索模块 npm sear ...
- [20191112]oracle共享连接模式端口.txt
[20191112]oracle共享连接模式端口.txt --//如果使用共享服务模式,你可以发现每次重启数据库对应的端口号会发生变化.# netstat -tunlp | egrep "A ...
- [Go] Golang中的面向对象
struct interface 就可以实现面向对象中的继承,封装,多态 继承的演示:Tsh类型继承People类型,并且使用People类型的方法 多态的演示Tsh类型实现了接口Student,实现 ...
- DenyHosts
下载软件并解压cd DenyHosts-2.6 #进入安装解压目录python setup.py install #安装DenyHostscd /usr/share/denyhosts/ #默认安装路 ...
- VUE 实现监听滚动事件,实现数据懒加载
methods: { // 获取滚动条当前的位置 getScrollTop() { let scrollTop = 0 if (document.documentElement && ...
- 利用 ROW_NUMBER() OVER ( ORDER BY 进行选择性排序,按不同字段进行排序处理,分页
--就在OVER order by 中用case语句进行判断. IF ( OBJECT_ID('tempdb..#TempTable') IS NOT NULL ) DROP TABLE #TempT ...