Discussion :

[sloubi24]

Bonjour tous,

Débutant en VBA, je viens vers vous car je bute sur un problème certainement banal.

Je cherche a mettre en place un formulaire pour aider à la création des listes de diffusion et aider à la relance des collaborateurs. Nous avons un annuaire excel des personnes présentes sur le projet mais le taux de turnover est important et faire des groupes dans outlook et les tenir à jour est très fastidieux. L'annuaire est dans un fichier excel à part.

Le but est de lancer la macro, qui affiche le formulaire. L'utilisateur selectionne les métier/disciplines concernées et cela génère un email avec dans A et CC les utilisateurs voulus. De plus la macro va activer des options par défaut (dans assurer le suivi, ajouter un rappel)

J'avais débuté une macro via excel,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Set a = Outlook.CreateItem(olMailItem)
    With a
        .To = variableA
        .CC = variableCC
        .Subject = variableSuject
        .HTMLBody = "inscrivez ici le contenu de votre email..."
        .ReminderSet = True
        .ReminderTime = #12/24/2018 5:00:00 PM#
        .Save
        .Display
    End With
End Sub

Malheureusement cela ne suffit pas.
Les propriétés .ReminderSet et ReminderTime, ne pilotent pas tout !

Je poste un screenshot des éléments que je souhaite piloter ...

J'ai besoin de cocher

• Mon indicateur
• Assurer un suivi
• Rappel
• Définir la date de mon choix
• Indicateur pour les destinataires

Connaissez vous les propriétés à utiliser d'olMailItem ?

Je n'ai pas trouver l'enregistreur de macro comme dans excel pour trouver ma solution.

Merci de votre aide.

[Jean-Philippe André]

Salut,

tu peux regarder du cote de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
.FlagStatus = olFlagMarked
.FlagIcon = olRedFlagIcon
.FlagDueBy = vFlagDueBy
.ReminderOverrideDefault = True
.ReminderSet = True

[sloubi24]

Je viens d'essayer le lot de propriété suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
.FlagStatus = olFlagMarked
.FlagIcon = olRedFlagIcon
.FlagDueBy = vFlagDueBy
.ReminderOverrideDefault = True
.ReminderSet = True
.ReminderTime = #10/12/2017 9:00:00 AM#
.TaskDueDate = #10/20/2017 9:00:00 AM#

.FlagStatus > Je ne vis absolument rien de différence même en passant a olNoFlag

.FlagIcon > sert juste a définir la couleur du flag

.FlagDueBy > je ne vois pas de changement

.ReminderOverrideDefault > je ne vois pas de changement

.ReminderSet > coche la case rappel de la section "indicateur pour les destinataires" mais est grisé car la coche "indicateur pour les destinataires" n'est pas cochée

.ReminderTime > change bien la date en face de rappel (mais est grisé car la coche "indicateur pour les destinataires" n'est pas cochée)

.TaskDueDate > je ne vois pas de changement