IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

Ajout / suppression de colonne dans les dossiers Outlook


Sujet :

VBA Outlook

  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    novembre 2014
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : novembre 2014
    Messages : 39
    Points : 22
    Points
    22
    Par défaut Ajout / suppression de colonne dans les dossiers Outlook
    Bonjour à tous,

    Je recherche une solution pour ajouter ou supprimer des colonnes du dossier que je créé automatiquement via VBA.
    (https://outlook.developpez.com/faq/?...A_CreateFolder)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub CreateDossier()
     
        Dim monOutlook As New Outlook.Application
        Dim ns As namespace
        Dim dossier As MAPIFolder
        Dim myNewFolder As MAPIFolder
     
        Set ns = monOutlook.GetNamespace("MAPI")
        Set dossier = ns.Folders("Dossiers personnels").Folders("Boîte de réception")
        Set myNewFolder = dossier.Folders.Add("Test")
     
    End Sub


    J'ai cherché du côté des tables mais je n'arrive pas à modifier les colonnes du dossier..... (https://docs.microsoft.com/fr-fr/off...ok.columns.add)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    Sub AddColumns() 
     
     '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

    Je ne trouve pas beaucoup d'information sur internet non plus....

    Auriez-vous des solutions ?

    En vous remerciant par avance.

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    4 086
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 4 086
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Ce n est pas au niveau du dossier mais de la vue

  3. #3
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    novembre 2014
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : novembre 2014
    Messages : 39
    Points : 22
    Points
    22
    Par défaut
    De la vue ? Display?
    Je vais chercher de ce côté

  4. #4
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    novembre 2014
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : novembre 2014
    Messages : 39
    Points : 22
    Points
    22
    Par défaut
    Je bloque...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    Sub ajout_colonne()
     
        Dim monOutlook As New Outlook.Application
        Dim ns As NameSpace
     
        Set ns = monOutlook.GetNamespace("MAPI")
     
     
        Dim NF As Folder
        Set NF = ns.Folders("jxxxx@xxx.com").Folders("Boîte de réception")
        Set NF = NF.Folders("Test")
     
        Dim objTableView As TableView
        Dim objviewfield As ViewField
     
        NF.CurrentView.ViewFields.Remove (11)
        NF.CurrentView.ViewFields.Remove (10)
        NF.CurrentView.ViewFields.Remove (9)
        NF.CurrentView.ViewFields.Remove (4)
        NF.CurrentView.ViewFields.Remove (3)
        NF.CurrentView.ViewFields.Remove (2)
        NF.CurrentView.ViewFields.Remove (1)
     
        Set objTableView = NF.CurrentView
     
        NF.CurrentView.Apply
     
    'Ajoute un champs ("Dans le dossier") dans la table
        objTableView.ViewFields.Add ("http://schemas.microsoft.com/mapi/proptag/0x0e05001f")
     
        For Each objviewfield In objTableView.ViewFields
            a = objviewfield
     
        Next
     
    End Sub
    J'ajoute un nouveau champs dans la table mais je n'arrive pas à l'insérer dans mon dossier nommé NF :/ :/

Discussions similaires

  1. [OL-2019] Ajout d'une colonne dans les résultats de recherche
    Par Pierre Dumas dans le forum Outlook
    Réponses: 4
    Dernier message: 16/06/2020, 11h49
  2. [OL-2016] Ajout d'une colonne dans les tâches
    Par tochbee dans le forum Outlook
    Réponses: 0
    Dernier message: 13/06/2018, 15h15
  3. Réponses: 5
    Dernier message: 25/02/2008, 17h58
  4. pb d'ajout d'une colonne dans un report
    Par khlh dans le forum Oracle
    Réponses: 3
    Dernier message: 06/10/2005, 17h12
  5. Ajout d'une colonne dans une table ...
    Par Djedjeridoo dans le forum SQL
    Réponses: 2
    Dernier message: 22/07/2003, 16h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo