double arrow

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

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

Set objOutlook = Nothing


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: