Excel VBA操作Outlook 发送邮件实例可设置附件收件人等

Application

代表整个 Microsoft Outlook 应用程序。这是层次结构中唯一可使用CreateObject方法或内部 Visual Basic GetObject函数返回的对象。

Outlook Application对象有以下几个用途：

作为根对象，使用它可访问 Outlook 层次结构中的其他对象。

允许直接访问使用CreateItem 创建的新项目，而不用遍历对象层次结构。

允许访问当前界面对象（浏览器和检查器）。

在VBA中实现通过Outlook发送邮件

主要实现以下功能：设置附件、邮件内容、收件人、抄送人、密送人、邮件主题。

使用由 Attachments 属性返回的集合将附件（如文件或 Stream 的内容）添加到此 MailMessage 中。

 

创建一个 Attachment，在其中包含或引用要附加的数据，再将 Attachment 添加到由 Attachments 返回的集合中。

 

使用 Application对象

 

使用自动化功能从其他应用程序控制 Microsoft Outlook 时，可使用 CreateObject方法创建 Outlook Application对象。

 

以下 Visual Basic for Applications 示例启动 Microsoft Outlook（如果还没有运行）并打开默认的“收件箱”文件夹。

 

Set myOlApp = CreateObject("Outlook.Application")

Set myNameSpace = myOlApp.GetNameSpace("MAPI")

Set myFolder= _

    myNameSpace.GetDefaultFolder(olFolderInbox)

myFolder.Display

以下 Visual Basic for Applications 示例使用 Application对象创建并打开新联系人。

 

Set myOlApp = CreateObject("Outlook.Application")

Set myItem = myOlApp.CreateItem(olContactItem)

myItem.Display