Отправить письмо на 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д