olPublicFoldersAllPublicFolders Const = 18
Тусклое olkApp, olkSes, olkFld, olkItm, adoCon
Затемните a, b, c, d
Установите adoCon = CreateObject («ADODB.Connection»)
«Измените файл базы данных - имя и курс на следующую линию»
adoCon.Open «Provider=Microsoft.ACE.OLEDB.12.0; Данные Source= C:\myFolder\myAccess2007file.accdb; Упорствует обеспеченность Info=False; »
Установите olkApp = CreateObject («Outlook.Application»)
Установите olkSes = olkApp.GetNamespace («MAPI»)
«Измените имя профиля на следующей линии как нужно»
olkSes.Logon «внешний вид»
«Измените мой скоросшиватель к имени вашего скоросшивателя на следующей линии»
Установите olkFld = olkSes.GetDefaultFolder (olPublicFoldersAllPublicFolders). Скоросшиватели («мой скоросшиватель»)
Для каждого olkItm в olkFld.Items
С olkItm
«Измените поля на следующих 4 линиях. Добавьте дополнительные поля как нужно.»
a =. Вопрос
b = .ReceivedTime
c = .SenderName
«Измените именя собственности на следующей линии»
d = .UserProperties.Item («ваше имя упорки»). Значение
Конец с
«Редактируйте командование SQL как нужно»
ВСТАВКА olkCon.Execute «В ЗНАЧЕНИЯ SomeTableName (FieldName1, FieldName2, FieldName3, FieldName4) («» & a & «», ««& b &»», ««& c &»», ««& d &» ") «
Затем
adoCon.Close
Установите adoCon = ничего
Установите olkFld = ничего
olkSes.Logoff
Установите olkSes = ничего
Установите olkApp = ничего
msgbox «закончило!»
|