ник: akkorn
ну тада примерно так:
вначале определяем
On Error Resume Next
после команды
objEmail.Send
пишем
if err.number <> 0 then
msgbox "Отправка письма невозможна по причине: " & err.description
err.clear
end if
ну а потом уже остальные процедуры.. 
ну типа так.. 