Columns.RemoveAll, méthode (Outlook)

  • Article

Supprime toutes les colonnes de la collection Columns et réinitialise la table.

Syntaxe

expression. RemoveAll

Expression Variable qui représente un objet Columns .

Remarques

RemoveAll réinitialise l’objet Table en déplaçant la ligne active immédiatement avant la première ligne de l’objet Table. Après un appel à RemoveAll, Columns.Count devient zéro (0).

Exemple

L'exemple de code suivant montre comment obtenir un objet Table basé sur l'heure de dernière modification des éléments exprimée par LastModificationTime dans la boîte de réception. Il montre également comment supprimer les colonnes par défaut de l'objet Table, ajouter des colonnes spécifiques et imprimer les valeurs des propriétés correspondantes de ces éléments.

Sub RemoveAllAndAddColumns() 
 
 'Declarations 
 
 Dim Filter As String 
 
 Dim oRow As Outlook.Row 
 
 Dim oTable As Outlook.Table 
 
 Dim oFolder As Outlook.Folder 
 
 
 
 'Get a Folder object for the Inbox 
 
 Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox) 
 
 
 
 'Define Filter to obtain items last modified after May 1, 2005 
 
 Filter = "[LastModificationTime] > '5/1/2005'" 
 
 'Restrict with Filter 
 
 Set oTable = oFolder.GetTable(Filter) 
 
 
 
 'Remove all columns in the default column set 
 
 oTable.Columns.RemoveAll 
 
 'Specify desired properties 
 
 With oTable.Columns 
 
 .Add ("Subject") 
 
 .Add ("LastModificationTime") 
 
 'PR_ATTR_HIDDEN referenced by the MAPI proptag namespace 
 
 .Add ("http://schemas.microsoft.com/mapi/proptag/0x10F4000B") 
 
 End With 
 
 
 
 'Enumerate the table using test for EndOfTable 
 
 Do Until (oTable.EndOfTable) 
 
 Set oRow = oTable.GetNextRow() 
 
 Debug.Print (oRow("Subject")) 
 
 Debug.Print (oRow("LastModificationTime")) 
 
 Debug.Print (oRow("http://schemas.microsoft.com/mapi/proptag/0x10F4000B")) 
 
 Loop 
 
End Sub

Voir aussi

Columns, objet

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.