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

Подробности

Категория: Макросы Outlook

 Опубликовано: 10 июля 2013

Как известно, в почтовом приложении 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

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

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