Отправка письма через CDO.Message - VB

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

Кто-нибудь помогите. Как отправить письмо на email желательно через CDO.message и если мона подробнее. Заранее благодарен.

Решение задачи: «Отправка письма через CDO.Message»

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

                            <font color="blue">Const</font> cdoSendUsingPort = <font color="darkblue"><b>2</b></font>
<font color="blue">Const</font> cdoBasic = <font color="darkblue"><b>1</b></font>

<font color="blue">Public</font> <font color="blue">Sub</font> SendMessage()
    <font color="blue">Dim</font> cdoMsg <font color="blue">As</font> cdo.Message
    <font color="blue">Dim</font> cdoConf <font color="blue">As</font> cdo.Configuration
    <font color="blue">Dim</font> cdoFields <font color="blue">As</font> ADODB.Fields
    
    <font color="blue">Set</font> cdoConf = CreateObject(<font color="teal">"CDO.Configuration"</font>)
    <font color="blue">Set</font> cdoFields = cdoConf.Fields
    
    <font color="blue">With</font> cdoFields
        .Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/sendusing"</font>) = _
          cdoSendUsingPort
        .Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/smtpserver"</font>) = _
          <font color="teal">"smtp.mail.ru"</font>
        .Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/smtpserverport"</font>) = _
          <font color="darkblue"><b>25</b></font>
        .Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/smtpusessl"</font>) = _
          False
        .Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"</font>) = _
          <font color="darkblue"><b>60</b></font>
        <font color="00AA00">' Если сервер требует аторизации.</font>
        .Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"</font>) = _
          cdoBasic
        .Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/sendusername"</font>) = _
          <font color="teal">"abc"</font>
        .Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/sendpassword"</font>) = _
          <font color="teal">"123"</font>
        .Update
    <font color="blue">End</font> <font color="blue">With</font>
    
    <font color="blue">Set</font> cdoMsg = CreateObject(<font color="teal">"CDO.Message"</font>)
    
    <font color="blue">With</font> cdoMsg
        <font color="blue">Set</font> .Configuration = cdoConf
        cdoMsg.From = <font color="teal">"abc@mail.ru"</font>
        cdoMsg.<font color="blue">To</font> = <font color="teal">"abc@mail.ru"</font>
        cdoMsg.Subject = <font color="teal">"Test"</font>
        cdoMsg.TextBody = <font color="teal">"Test Message."</font>
        cdoMsg.Send
    <font color="blue">End</font> <font color="blue">With</font>
    
    MsgBox <font color="teal">"Письмо отправлено!"</font>
    
    <font color="blue">Set</font> cdoMsg = <font color="blue">Nothing</font>
    <font color="blue">Set</font> cdoConf = <font color="blue">Nothing</font>
    <font color="blue">Set</font> cdoFields = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        