Перенос контактов из Outlook в Excel макросом VBA

Информация о материале
Категория: Макросы Outlook

Как известно, в почтовом приложении Microsoft Outlook существует возможность экспорта контактов в файл. Существует также и другая возможность - перенос контактных данных из Outlook в Excel при помощи макроса, написанного на языке VBA (Visual Basic for Applications).

Ниже приведен программный код макроса, который запускает приложение Excel в видимом режиме, создает в нем новую рабочую книгу и в определенные ячейки активного рабочего листа переносит заданные свойства контактов. В этом примере на лист Excel переносятся фамилия, имя, отчество и адрес электронной почты каждого контакта, но этот перечень свойств можно изменять и дополнять, используя соответствующие свойства контакта.

Option Explicit
Sub Perenos_Kontaktov_v_Excel()
    Dim myNamespace As NameSpace
    Dim myFolder As MAPIFolder, myWorkFolder As MAPIFolder
    Dim iContact As ContactItem
    Dim i As Single
    Dim objXls As Object
    Set objXls = CreateObject("Excel.Application")
    Set objXls = objXls.Workbooks.Add
    objXls.Application.Visible = True
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
   'Set myWorkFolder = myFolder.Folders("Имя вашей папки")
   'в случае, если нужна папка внутри дефолтной
    Set myWorkFolder = myFolder
    i = 1
        For Each iContact In myWorkFolder.Items ' перебор контактов
            With iContact
                objXls.ActiveSheet.Range("A" & i).Value = .LastName
                objXls.ActiveSheet.Range("B" & i).Value = .FirstName
                objXls.ActiveSheet.Range("C" & i).Value = .MiddleName
                objXls.ActiveSheet.Range("D" & i).Value = .Email1Address
            End With
            i = i + 1
            On Error Resume Next
        Next iContact
    Set objXls = Nothing
End Sub

В случае, если контактные данные необходимо  перенести не в новый, а в существующий файл, достаточно внести небольшое изменение в приведенный выше программный код, которое вместо создания новой рабочей книги откроет книгу с заданным именем.

Для того, чтобы перенести этот программный код на свой компьютер, наведите курсор мыши на поле с программным кодом, нажмите на одну из двух кнопкок knopka_view_source в правом верхнем углу этого поля, скопируйте программный код и вставьте его в модуль проекта на своем компьютере (подробнее о том, как сохранить программный код макроса).

Другие материалы по теме: