Outlook - список блокируемый отправителей - VB

Формулировка задачи:

имеется Аутлук, пользователь по ошибке засунул в список блокируемых отправителей нужного адресата, Полез удалять его из списка, выясннилось, что у него в этом списке хрен знает скока блокируемых отправителей. Ни поиска, ни сортировки там нет. В рукопашную пролистывать энтот список запаришься
Как программно выдернуть этот список, подправить и обратно запихать.

Решение задачи: «Outlook - список блокируемый отправителей»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
'Export the current profile's Safe Sender List

  
  Dim varOutputPath As String
  Dim varOutputFileName As String 
  
  Dim rSession As Object
  Dim fs As Object
  Dim a As Variant 
  Dim JunkOptions As Object 
  Dim Address As Variant 

   varOutputPath = "C:\Email\"
   varOutputFileName = "user_blocked_senders.txt"

  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateTextFile(varOutputPath & varOutputFileName, True)

  Set rSession = CreateObject("Redemption.RDOSession")
  rSession.MAPIOBJECT = Application.Session.MAPIOBJECT
  Set JunkOptions = rSession.JunkEmailOptions
  For Each Address In JunkOptions.BlockedSenders
  'JunkOptions.BlockedSenders
  'JunkOptions.TrustedSenders
    a.WriteLine (Address)
    'Debug.Print Address
  Next
  
  a.Close

End Sub

                        