XL 2021 Effacer une tâche d'Outlook

[Lu K]

Bonjour à toutes et à tous,

Cela faisait très longtemps, mais j'ai de nouveau un problème ! Après plusieurs heures de recherche et d'essais infructueux, je me résigne à vous poser une question.

Depuis un fichier excel, j’arrive à ouvrir un contact Outlook précis :

nom_cherche = "Tartenpion"

Set xOutlookApp = New Outlook.Application
Set dossierContacts = xOutlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
Set Cible = dossierContacts.Items.Find("[CompanyName] = " & nom_cherche)
Cible.display

De là, je peux modifier ou ajouter des notes (body) ou même modifier la date d'un rappel pour ce contact :

Cible.body = ActiveInspector.CurrentItem.body & Chr(10) & "Le " & DateValue(Now) & "     " & "Ce que je veux...."
Cible.TaskDueDate = DateValue(Now)

Et partant de là, je souhaite effacer le rappel ! mais impossible !!!

Cible.TaskDueDate = ""
Cible.TaskDueDate = Clear
Cible.TaskDueDate = DateValue(Nothing) (vraiment tout essayé !)
Cible.TaskRequestItem.Delete
.....
Cible.ReminderSet = False
.....

Si quelqu'un à une réponse, je suis preneur !!

Merci d'avance pour vos réponses

 

[job75]

Bonjour Lu K,

Aide sur TaskDueDate :

Remarks​

This property returns Null (Nothing in Visual Basic) if the IsMarkedAsTask property is set to False.

Donc essayez :

Cible.IsMarkedAsTask = False

A+

 

[Lu K]

Bonjour Lu K,

Aide sur TaskDueDate :

Donc essayez :

Cible.IsMarkedAsTask = False

A+

Bonjour job75,

Merci de votre réponse.

J'ai fait un essai est la réponse est : 'Erreur de compilation : Impossible d'affecter à une propriété en lecture seule'

Je n'arrète pas de chercher, mais ne trouve aucune réponse. Dans la fiche d'un contact outlook, la fenêtre des taches indique un bouton : 'Effacer l'indicateur". C'est cette action que je voudrais faire via ma macro afin de supprimer le rappel dans ma liste des tâches.

Cordialement.

 

[Lu K]

Bonjour à toutes et à tous,

J'ai enfin trouvé !

Cible.ClearTaskFlag
Cible.Save

Surtout enregistrer sinon cela ne fonctionne pas

IsMarkedAsTask servant à renvoyer si la tâche est active (true ou false)

MsgBox Cible.IsMarkedAsTask 'renvoie valeur true ou false

Merci job75 pour votre aide, cela m'a permis de gratter là ou il faut :
https://learn.microsoft.com/fr-fr/o...ic-business-cards/setting-items-for-follow-up

Bonne journée à tous