Invitation Sending: I want to send more than 5000 invitation - by: mrli999

I used the following vba script in Excel. But today only 40 emails were sent even the email batch size is still 60. I don't know why. Any one can help? thanks.

Sub send_Click()
Dim ie As Object
Dim iabcd As Integer

iabcd = 1

For iabcd = 1 To 10
Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "www.sample.com/survey/index.php?r=admin/...mail/surveyid/533664"
ie.Visible = True
While ie.ReadyState <> 4
DoEvents
Wend

If ie.locationurl <> "www.sample.com/survey/index.php?r=admin/...mail/surveyid/533664" Then
ie.Document.getElementById("user").Value = "username"
ie.Document.getElementById("password").Value = "password"
ie.Document.all("login_submit").Click
While ie.ReadyState <> 4
DoEvents
Wend
End If

ptb = 3
stb = Timer
Do While Timer < stb + ptb
DoEvents
Loop


ie.Document.all("yt0").Click

ptc = 3
stc = Timer
Do While Timer < stc+ ptc
DoEvents
Loop


If iabcd <> 10 Then
ie.Quit
pt = 60 * 10
st = Timer
Do While Timer < st + pt
DoEvents
Loop
End If

Next
ie.Quit
End Sub