2017-01-20 1 views
0

J'ai un script qui s'exécute lorsque je reçois un e-mail avec un certain sujet. À la fin du script, je souhaite marquer l'élément MailItem comme étant complet et l'afficher en regard de l'e-mail.Outlook 2010 Forcer l'interface utilisateur de mise à jour après MailItem.MarkAsTask

J'appelle MarkAsTask olMarkComplete qui fait ce qu'il est censé mais l'interface utilisateur ne met pas à jour et la case ne semble pas à moins que je sélectionner/désélectionner l'e-mail via l'interface utilisateur

Edit: Quand je boucle à travers tous les e-mails dans mon dossier, il ne fonctionne que sur le dernier ensemble. Est-ce que j'ai râté quelque chose..?

Mon code à ce jour:

Dim reviewFolder As Folder 
Dim item As Outlook.MailItem 

Set myFolder = ThisOutlookSession.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("My Folder") 

For Each item In myFolder.Items 
    {other code} 
    item.MarkAsTask olMarkComplete 
Next 

Répondre

1

Vous devez appeler MailIten.Save.