Discussion :

[goninph]

Bonjour,

Avec cette macro je génère une discussion Outlook.

J'arrive à lui assigner une date de départ et une date d'arrivée du suivi.

Le problème c'est que je n'arrive pas à activer le suivi, je dois l'activer manuellement en ouvrant la boite de dialogue, puis en cliquant sur le bouton OK, sans autre action.

Comment coder cette action en vba ? Des idées ? voir le code et la copie d'écran

Bonne journée
Philippe

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
Option Explicit
Sub test()
Dim Messagerie As Object
Dim Email As Object
    'Création du suivi
    Set Messagerie = CreateObject("Outlook.Application")
    Set Email = Messagerie.CreateItem(6) '0=Mail, 1=RDV, 2=Contact, 3=Tache, 4=Entrée du journal, 5=Note(jaune), 6=Objet outlook, 7=Groupe de contact 1=RDV, 2=Contact, 3=Tache, 4=Entrée du journal, 5=Note(jaune), 6=Objet outlook, 7=Groupe de contact
    With Email
        .Subject = "test"
        .HTMLBody = "<p style='font-family:Calibri Light;font-size:11pt;'>" & "Salut" & "</p>"
        .TaskStartDate = Date 'Début du suivi
        .TaskDueDate = Date + 7 'fin du suivi
'        .Task = Activate
'        .ReminderSet = True
        .Display
    End With
'    Call SetInterligne(Email) 'Appel la fonction qui évite le double retour à la ligne lors de l'appui sur la touche ENTER
    Set Email = Nothing
    Set Messagerie = Nothing
End Sub