Отправка почты через локалку с исп-м CDO - VB

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

Доброго времени суток всем.
Необходимо с локальной машины отправить почту с использованием CDO.
Вопрос 1: как проверить соединение.
2: как отправить письмо с локальной машины (с головного компьютера отправляет наура).
Заранее благодарен.

Решение задачи: «Отправка почты через локалку с исп-м CDO»

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

                            <font color="00AA00">' Reference to Microsoft ActiveX Data Objects 2.5 Library</font>
<font color="00AA00">' Reference to Microsoft CDO for Windows 2000 Library</font>
<font color="blue">Dim</font> iMsg <font color="blue">As</font> <font color="blue">New</font> CDO.Message
<font color="00AA00">' configure message here if necessary</font>
<font color="blue">With</font> iMsg
   .<font color="blue">To</font> = <font color="teal">"someone@microsoft.com"</font>
   .From = <font color="teal">"another@microsoft.com"</font>
   .Newsgroups = <font color="teal">"comp.microsoft.newsgroup1"</font>
   .Subject = <font color="teal">"Agenda for staff meeting"</font>
   .TextBody = <font color="teal">"See attached docs for more info."</font>
   .AddAttachment <font color="teal">"http://example.microsoft.com/picture.gif"</font>
   .AddAttachment <font color="teal">"file://d:/temp/test.doc"</font>
   .AddAttachment <font color="teal">"C:\files\another.doc"</font>
   <font color="00AA00">' finish and send</font>
<font color="blue">End</font> <font color="blue">With</font>
                        