Dim strPath As String

strPath = CurrentProject.Path

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

Set objLetter = New cLetter

' Шаблон Word для использования в данном документе.

objLetter.Template = strPath & "\Business Services Letter.dot"

' SQL-оператор, использующийся для получения данных для формы.

ObjLetter.SQLStatement = "SELECT * FROM tbICustomers"

' Вызов метода "CreateLetter" для создания письма.

objLetter.CreateLetter strPath С "\0bjects.mdb", True

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

Set objLetter = Nothing

Объект Outlook

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

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

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

Option Explicit