Forzare l'oggetto `Recipients` di aggiornamento quando la A: casella di testo è stato modificato

Question

I sorta destinatari durante la composizione di una e-mail.

Se ho 3 destinatari (per esempio), eseguire la macro tipo, e quindi rimuovere un destinatario dalla A: casella di testo, l'esecuzione della macro una seconda volta fa sì che il destinatario rimosso per ri-apparire. Quando passo attraverso la macro sulla seconda esecuzione, posso vedere che sia .CurrentItem.To e l'oggetto Recipients ancora avere tutti i 3 destinatari.

Si è intermittente. C'è un modo per forzare l'oggetto Recipients per aggiornamento quando la A:? Casella di testo è stato modificato

non riesco a trovare nulla nel Outlook VBA documentazione e tentativi ed errori è rivelato inutile.

Codice estratto:

Public Sub SortRecipients()
    With Application.ActiveInspector
        If TypeOf .CurrentItem Is Outlook.MailItem Then
            Debug.Print "Before: "
            Debug.Print "To: " & .CurrentItem.To
            Debug.Print "# of recipients: " & .CurrentItem.Recipients.Count

            ' Force an update if recipients have changed (DOESN'T HELP)
            .CurrentItem.Recipients.ResolveAll

            Set myRecipients = .CurrentItem.Recipients
            ' Create objects for To list
            Dim myRecipient As recipient
            Dim recipientToList As Object
            Set recipientToList = CreateObject("System.Collections.ArrayList")

            ' Create new lists from To line
            For Each myRecipient In myRecipients
                    recipientToList.Add myRecipient.Name
            Next

            ' Sort the recipient lists
            recipientToList.Sort
            ' Remove all recipients so we can re-add in the correct order
            While myRecipients.Count > 0
                myRecipients.Remove 1
            Wend

            ' Create new To line
            Dim recipientName As Variant
            For Each recipientName In recipientToList
                myRecipients.Add (recipientName)
            Next recipientName
            .CurrentItem.Recipients.ResolveAll

        End If
    End With
End Sub

Procedura per riprodurre:

1. Aggiungi 4 destinatari alla linea "A" di una nuova e-mail in Outlook 2007 (cliccare su "Controlla nomi" per risolvere gli indirizzi.)
2. Esegui la macro SortRecipients. (I destinatari sono ora ordinati)
3. Elimina un destinatario, rieseguire il SortRecipients macro.
4. Dopo aver fatto questo, ho ancora 4 destinatari (quello eliminato rendimenti).

Answer 1

È possibile (e dovrebbe ) aggiungere un Option Explicit, Outlook ti avrebbe detto che myRecipients non è stato dichiarato all'inizio del codice.

ho aggiunto:

Dim myRecipients As Recipients

[EDIT] Non è stato sufficiente per ottenere il campo To rinfrescato. Ho provato diverse cose, ma alla fine, ho aggiunto un .CurrentItem.Save al posto del tuo tentativo di .CurrentItem.Recipients.ResolveAll

Credo di aver fatto funzionare in questo modo sul mio Outlook 2007.