Отправить письмо на e-mail без Outlook - VB

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

Проблема такая. На компьютере не настроена отправка почты... Outlook мохает... Вопрос такой: Как программно отправить на адрес - removed@mail.ru письмо - txtSend от removed@mail.ru , тема - ok_All ???? Искал по форумам,смотрел исходники,но всё через Outlook и всякую другую не понятную ботву. Может есть у кого код? Или как? Вот что я накопал... Pop3 User Name - I_am Pop3 Password - I_am_password SMPT Email Address - removed@mail.ru А что с остальным делать???

                    Листинг программы
                
Private Declare Function ShellExecute& Lib 'shell32.dll' Alias 'ShellExecuteA' (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Private Declare Function GetDesktopWindow Lib 'user32' () As Long
Private Const SW_SHOWNORMAL = 1
 
'Вызываем маил с адресом
Call ShellExecute(0&, 'Open', 'mailto:' + 'removed@mail.ru' + '?Subject=' + ''Здесь описана тема...'', '', '', SW_SHOWNORMAL)

Но через Outlook . А как на прямую????

Решение задачи: «Отправить письмо на e-mail без Outlook»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Remind(ByVal sAddr, ByVal sMsg, ByVal sTEMA)
    
    Dim objCDO
    Set objCDO = CreateObject('CDONTS.NewMail')
    objCDO.To = sAddr
    objCDO.From = 'test@test.com'
    objCDO.Subject = sTEMA
    objCDO.Body = sMsg
    objCDO.Send
    
End Sub
 
sub Remind(sAddr, sMsg)
        set msg      = WScript.CreateObject('CDO.Message')
    msg.From     = 'a@b.com'
    msg.To       = sAddr
    msg.Subject  = 'testing'
    msg.TextBody = sMsg
 
    msg.Send
 
    MsgBox('DONE')
end sub