oApp=CreateObject("Outlook.Application")
NameSpace= oApp.GetNameSpace("MAPI")
MailItem = oApp.CreateItem(0)
With MailItem
    .Subject = "Automatic Notification!"
    .body= CHR(10)+"Today "+TTOC(DATETIME( ))+ CHR(10)+CHR(13)
    .Recipients.Add ("me@domain.com")
    .Send
EndWith
NameSpace.Logoff

Well, the Email server is down now, so my application having the above code suspends at the .body assignment.

How can I check to see if the Email server is available before running this code!?