Utilizar um formulário personalizado com contactos já existentes

Pergunta: Criei um formulário para os meus contactos, e utilizo-o com os novos contactos. Como faço para que os contactos antigos passem a utilizar este formulário?

Resposta: Podes utilizar este código num botão num formulário para mudares a classe dos contactos antigos:

----------Código-------------
Sub cmdChangeClass_click

' Altere a próxima linha para a tua Message Class
NewMC = "IPM.Note.hdr"

Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count

'Muda a class em todos os items da pasta activa
For I = 1 to NumItems

Set CurItem = AllItems.Item(I)

' Teste para verificar se a Message Class tem que ser alterada
If CurItem.MessageClass <> NewMC Then

' Altera a Message Class
CurItem.MessageClass = NewMC

' Guarda a informação
CurItem.Save

End If

Next

MsgBox "Feito!"

End Sub