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