-1

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

Редактировать:

Мне нужно написать Макр в Outlook. Этот макр должен сохранять все адреса электронной почты из выбранных писем в адресную книгу моей электронной почты.

У меня есть этот макр в VBA:

Sub ContactsFromMails()

    Set contactFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

    For Each item In Application.ActiveExplorer.Selection

        Set mailCopy = item.Copy
        mailCopy.Move (contactFolder)
        item.Delete

    Next
End Sub

Но этот макр удваивает контактный адрес:введите описание изображения здесь

Таким образом, мне нужно сохранить только один адрес, а не удваивается;)

|источник

0