Объект Outlook

В статье приводится код модуля класса cOutlook, используемый для отображения формы Outlook New Message (Новое сооб­щение) (рис. 12). Если необходимо пре­доставить пользователям возможность создавать сообщения Outlook из приложе­ния Access, можно воспользоваться методом NewEmailMessage.

РИСУНОК 12. Отображение формы Outlook New Message в приложениях Access

Ниже приводится код модуля класса cOutlook:

Option Explicit

Private mobjOutlook As Outlook.Application

Private mMyItem As Object

Public sub NewEmailMessage(EmailAddress As String)

' Создание нового почтового сообщения Outlook.

Set mMyItem = mobjOutlook.CreateItem(olMailItem)

mMyItem.To = EmailAddress

mMyItem.Display

End Sub

Private Sub Class_Initialize()

' Нет никаких причин для использования "GetObject", чтобы

' автоматизировать Outlook. Outlook всегда будет открывать одну копив

' приложения. Используется ключевое слово "New".

' Установка объектной переменной к приложению Outlook.

Set mobjOutlook = New Outlook.Application

' Если истинно, MS Outlook не установлен.

If mobjOutlook Is Nothing Then

MagBox "MS Outlook is not installed on your computer"

End If

End Sub

Private Sub Class_Terminate()

' Освобождение объектной переменной.

Set mobjOutlook = Nothing

End Sub

Приведенный ниже код инициализирует объект objOutlook и вызывает метод NewEMailMessage:

' Объектные переменные Dimension.

Dim objOutlook As cOutlook

' Присваивание объектных переменных объекту cOutlook.

Set objOutlook = New cOutlook

' Вызов метода "NewEMailMessage".

objOutlook.NewEmailMessage nancy@northwind.com

' Разрушение объектной переменной.

Содержание раздела

---

---