I am getting an error message

"The trasport failed to connect to the server."

I know why I am getting the error, our mail server is having technical problems and won't let anyone connect to send or retrieve emails periodically. My question is, how do I go about queing these suckers until I can successfully connect, or are they just lost? Below is the code to do this:

Set objConfig = CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "SMTP Server"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "userid"
.Item(cdoSendPassword) = "password"
.Update
End With
Set objMessage = CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "User Account Sending To"
.From = "User Account Sending From"
.Subject = "Subject"
.TextBody = "mailbody"
.Send
End With

GoTo CloseEverything
ErrorHandler:
' Something
CloseEverything:
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

Thanks for Any and All Help!!