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

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

Перенести контактные данные из Outlook можно не только в Excel, но и в Word. Ниже приведен примерный код макроса, написанного на языке VBA (Visual Basic for Applications) для переноса контактных данных в Microsoft Word. 

Ранее уже показывалось как при помощи макроса VBA перенести данные контактов из Outlook в Excel, ну а здесь приведен программный код для переноса контактных данных в текстовый редактор Word.

Option Explicit
Sub Perenos_Kontaktov_v_Word()
    Dim myNamespace As NameSpace
    Dim myFolder As MAPIFolder, myWorkFolder As MAPIFolder
    Dim iContact As ContactItem
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    Dim MyRange As Object
    Set objWrdApp = CreateObject("Word.Application")
    Set objWrdDoc = objWrdApp.Documents.Add
    objWrdApp.Application.Visible = True
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
    Set myWorkFolder = myFolder
        For Each iContact In myWorkFolder.Items ' перебор контактов
            With iContact
                Set MyRange = objWrdDoc.Range(Start:=0, End:=0)
                MyRange = .FirstName & " " & .MiddleName & " " & .LastName & " " & .Email1Address & vbCrLf
            End With
            On Error Resume Next
        Next iContact
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub

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

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

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