Partager via

Modification du formulaire utilisé par les éléments existants dans un dossier

  • Article

Dans certains cas, vous devrez peut-être modifier le formulaire associé aux éléments qui se trouvent déjà dans un dossier. Cela est souvent nécessaire après l’importation d’éléments, ou si vous créez un formulaire personnalisé après avoir déjà créé des éléments basés sur un formulaire Outlook standard.

Le champ Classe de message ne peut pas être modifié directement par le biais de l’interface utilisateur d’Outlook, mais vous pouvez utiliser VBScript, Visual Basic ou Visual Basic pour Applications pour modifier ce champ.

Le code Automation suivant peut être utilisé comme base pour développer votre propre solution. Ce code suppose que le nom du nouveau formulaire est MyForm. Il modifie tous les contacts de votre dossier de contacts par défaut afin qu’ils utilisent MyForm.

Sub ChangeMessageClass() 
Set olNS = Application.GetNameSpace("MAPI") 
Set ContactsFolder = _ 
 olNS.GetDefaultFolder(olFolderContacts) 
Set ContactItems = ContactsFolder.Items 
 
For Each Itm in ContactItems 
 If Itm.MessageClass <> "IPM.Contact.MyForm" Then 
 Itm.MessageClass = "IPM.Contact.MyForm" 
 Itm.Save 
 End If 
Next 
End Sub

Note Si vous souhaitez utiliser un dossier autre qu’un dossier par défaut, utilisez l’objet de collection Folders pour faire référence à tout dossier disponible dans votre liste de dossiers.

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.