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
' Разрушение объектной переменной.
Set objOutlook = Nothing