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 :
De là, je peux modifier ou ajouter des notes (body) ou même modifier la date d'un rappel pour ce contact :
Et partant de là, je souhaite effacer le rappel ! mais impossible !!!
Si quelqu'un à une réponse, je suis preneur !!
Merci d'avance pour vos réponses
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 :
VB:
nom_cherche = "Tartenpion"
Set xOutlookApp = New Outlook.Application
Set dossierContacts = xOutlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
Set Cible = dossierContacts.Items.Find("[CompanyName] = " & nom_cherche)
Cible.displayDe là, je peux modifier ou ajouter des notes (body) ou même modifier la date d'un rappel pour ce contact :
VB:
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 !!!
VB:
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