Outlook 2016 salva todos os endereços para entrar em contato

Question

Preciso salvar todos os endereços de e-mail no catálogo de endereços. Sim, eu sei que posso salvar endereço para novos e-mails, mas como posso salvar endereços para e-mails antigos?

Editar:

Eu preciso escrever o makr para o Outlook. Este makr deve salvar todos os e-mails enviados dos e-mails selecionados para o e-mail do meu catálogo de contatos.

Eu tenho esse makr no 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

Mas este makr duplica o endereço de contato: insira a descrição da imagem aqui

Então, preciso salvar apenas um endereço, não duplicar;)