Отправить письмо на 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 А что с остальным делать???
Но через 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

Оцени полезность:

6   голосов , оценка 3.833 из 5