error checking 429 error

[chewy]

I want to be able to error check if an error 429 error occurs. How would I check if this error occurs and not do a line of code?

This is what I have. It gives the error on 429. on line .Send

' Apply the settings to the message.
With iMsg
Set .Configuration = iConf
.To = "mmajewski@alliancebankna.com" 'ToDo: Enter a valid email address.
.From = "AssetTracking@AllianceBankna.com" 'ToDo: Enter a valid email address.
.Subject = "032003Database Accessed"
.HTMLBody = "AssetTracking032003 was accesed on " & Date & " @ " & Time() & " by " & vbCrLf & user & vbCrLf & login
.Send
End With

Thanks

 

[bjackson]

on error goto HandleErr:
With iMsg
Set .Configuration = iConf
.To = "mmajewski@alliancebankna.com" 'ToDo: Enter a valid email address.
.From = "AssetTracking@AllianceBankna.com" 'ToDo: Enter a valid email address.
.Subject = "032003Database Accessed"
.HTMLBody = "AssetTracking032003 was accesed on " & Date & " @ " & Time() & " by " & vbCrLf & user & vbCrLf & login
.Send
End With

ExitHere:
Exit sub

HandleErr:
if err.number = 429 then
msgbox "Error 429"
resume exithere:
else
msgbox err.description & err.number
resume exithere:
end if

 

[chewy]

thanks bjackson