Здравствуйте santucho, 05.01.2001 06:48:17 вы писали:
>В принцыпе мне нужно связать Access Базу Данных с Outlook 2000.
Ну типа вот (пример печатает субджекты непрочитанных сообщений)
Sub Main
Dim myOlApp As Object
Dim intMessCount As Integer, intMyFoldersCount As Integer
Dim myFolder As Variant
Dim x As Integer
Dim objMessage As Object
Dim objMessages As Object
Dim objFolder As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder= myNameSpace.GetDefaultFolder(6)
intMessCount = myFolder.Items.Count
For x = 1 To intMessCount
myUnread = myFolder.Items(x).UnRead
If myUnread = True Then
'myFolder.Items(x).PrintOut
MsgBox myFolder.Items(x)
End If
Next x
End sub
