Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Office для пользователей
 
 

Получить учебные материалы по этому курсу


<-- Назад Читать дальше -->

Решение:

  • Запустите Outlook и нажмите в нем <Alt>+<F11>, чтобы открыть редактор кода Visual Basic.

В меню Tools -> References добавьте ссылку на объектную библиотеку Microsoft ActiveX Data Objects 2.1 Library.

В окне Project Explorer щелкните правой кнопкой мыши по объекту проекта Проект1 и в контекстном меню выберите Insert -> Module. Будет создан новый стандартный модуль Module1.

В этом модуле создайте новую процедуру ImportContacts() и впишите в нее необходимый код. Он может быть таким :

Public Sub ImportContacts()

Dim oFolder As MAPIFolder

Dim oNameSpace As NameSpace

Dim oContact As ContactItem

Set oNameSpace = Application.GetNamespace("MAPI")

'Создаем папку и получаем ссылку на ее объект

Set oFolder = oNameSpace.Folders ("Личные папки").Folders.Add("Контакты клиентов", olFolderContacts)

'Создаем объект соединения

Dim cn As New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Борей.mdb"

cn.Open

 

'Создаем объект Recordset

Dim rs As New ADODB.Recordset

rs.Open "Клиенты", cn

 

'Проходим циклом по Recordset

Do While rs . EOF = False

'Создаем объект контакта

Set oContact = Application.CreateItem(olContactItem)

'Заполняем его свойства на основе данных из Recordset

oContact.CompanyName = rs.Fields("Название")

oContact.FullName = rs.Fields("ОбращатьсяК")

oContact.BusinessTelephoneNumber = rs.Fields("Телефон")

'Перемещаем в нашу папку и сохраняем

oContact.Move oFolder

oContact.Save

' Освобождаем память

Set oContact = Nothing

'Сдвигаемся на одну запись в Recordset

rs.MoveNext

Loop

 

End Sub

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

Получить учебные материалы по этому курсу


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru