Customizando formulários no MS Outlook – Formulário de Contato

O Ms Outlook é uma ferramenta fantástica para comunicação por e-mail, agenda, contatos, tarefas … ,enfim, para uma série de atividades que, na maioria das vezes, estão em âmbito profissional. O formulário de contatos possui uma interface padrão exibida na figura abaixo: OutlookContatoPadrao   Porém, podemos customizar os campos que incluiremos neste formulário de forma a contemplar outras informações.

… a escrever mais detalhes ….

Abaixo vou publicar o código necessário para mudar a Classe das Mensagens:

Public Sub MudaClasse()
 Dim newMessageClass As String
 Dim curFolder As Outlook.Folder
 Dim allItems As Items
 Dim numItems As Integer
 Dim i As Integer
 Dim curItem As Outlook.ContactItem

 'Nova Classe da mensagem
 newMessageClass = "IPM.Contact.Clientes"
 'newMessageClass = "IPM.Contact"
 
 Set curFolder = Application.ActiveExplorer.CurrentFolder
 Set allItems = curFolder.Items
 numItems = curFolder.Items.Count

 'Faça o looping por todos os itens na pasta
 For i = 1 To numItems

    Set curItem = allItems.Item(i)

    'Testa para ver se realmente é necessário realizar a substituição
    If curItem.MessageClass <> newMessageClass Then
 
       'Muda a classe da mensagem
       curItem.MessageClass = newMessageClass
       ' Salva a mensagem para salvar a nova classe
       curItem.Save
    End If
 Next

 MsgBox "Fim", vbInformation

End Sub

… continuo em breve …

Esta entrada foi publicada em Dicas com as etiquetas , , , . ligação permanente.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s