VBA script to send email : I have written the bellow code to request roster from different teams however the code is not working.. need help to check where I am wrong. 

    Sub RosterRequest()
    Dim counter As Integer
    Dim outapp As Object
    Dim outmail As Object
    
    Set outapp = CreateObject("Outlook.Application")
    Set outmail = outapp.CreateItem(0)
    
    Do While counter < 5
    counter = counter + 1
    c = Cells(counter, 1).Value
    d = Cells(counter, 2).Value
    
        MsgBox ("loop number " & counter & " Name is " & c & " Email is " & d)
        With outmail
            .to = d
            .Subject = "Roster Request"
            .Body = "Hi " & c & " Please Share the roster for your team "
            .send
        End With
          
    Loop
    
    End Sub

