Проблемы при отправке писем через CDO.Message - VB

Формулировка задачи:

Мне нужно из программы отправить письмо. Для этого использую CDO.Message :
Код модуля:

Код формы:

Пытаюсь запустить прогу на Win2K Server 3SP, она не работает. При этом никаких ошибок не выводится, просто не отправляется письмо... Хотя на моём рабочем компе программа работает нормально.
Подскажите, в чём может быть дело? Может на Win2K Server 3SP не стоят какие то библиотеки?

Решение задачи: «Проблемы при отправке писем через CDO.Message»

textual
                            Листинг программы 
                        

                            <font color="blue">Set</font> objMessage = New CDO.Message
<br><font color="blue">Set</font> objConfig = New CDO.Configuration
<br>
<br><font color="blue">With</font> objConfig
<br>    .Fields(cdoSendUsingMethod) = cdoSendUsingPort
<br>    .Fields(cdoSMTPServer) = objMail.SMTPServer    <font color="green">' IP-адрес почтового сервера'</font>
<br>    .Fields(cdoSMTPServerPort) = CInt(objMail.SMTPServerPort) <font color="green">' SMTP порт (обычно 25)'</font>
<br>    .Fields(cdoSMTPConnectionTimeout) = CInt(objMail.SMTPServerTimeout)
<br>    .Fields(cdoSMTPAccountName) = objMail.MailUserAccountName <font color="green">'имя пользователя'</font>
<br>    .Fields(cdoSMTPAuthenticate) = cdoBasic
<br>    .Fields(cdoSendUserName) = objMail.MailUserName <font color="green">'имя при входе в почтовик'</font>
<br>    .Fields(cdoSendPassword) = objMail.MailUserPassword <font color="green">'пароль'</font>
<br>    .Fields.<font color="blue">Update</font>
<br><font color="blue">End</font> <font color="blue">With</font>
<br>
<br><font color="blue">With</font> objMessage
<br>    .To = SendTo
<br>    .<font color="blue">From</font> = objMail.MailUserAddr
<br>    .Subject = <b><font color="green">"Тема письма"</font></b>
<br>    .TextBody = TextBody
<br>    <font color="green">' если есть вложения, то прикрепляем'</font>
<br>    .AddAttachment FileSpec (путь к прикрепляемому файлу)
<br>    <font color="blue">Set</font> .Configuration = objConfig
<br><font color="blue">End</font> <font color="blue">With</font>
<br>objMessage.Send
                        