Sub MyFirstMacros()

  Set xlApp = GetObject(, "Excel.Application")
    Dim myItems, myItem, myAttachments, myAttachment As Object
    Dim myOrt As String
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim Selecttion_ As Outlook.Selection
    

    On Error Resume Next
    
    'work on selected items
    Set myOlExp = myOlApp.ActiveExplorer
    Set Selecttion_ = myOlExp.Selection
    
    'for all items do...
    For Each myItem In Selecttion_
    
    
    
     xlApp.[A1] = myItem.To
  
   'Recipients
   'SenderEmailAddress
   
        
    Next
    

    'free variables
    Set myItems = Nothing
    Set myItem = Nothing
    Set myAttachments = Nothing
    Set myAttachment = Nothing
    Set myOlApp = Nothing
    Set myOlExp = Nothing
    Set Selecttion_ = Nothing
    
End Sub