powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отправка email из VBScript
7 сообщений из 7, страница 1 из 1
Отправка email из VBScript
    #33231078
rumka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пытаюсь отправить email из VBScript.

Set OutlookObject = CreateObject("Outlook.Application")
Set OutMail = OutlookObject.CreateItem(0)
OutMail.to = "manager@home.com.kg"
OutMail.Subject = "test"
OutMail.Body = "test"
OutMail.Send
OutMail.Quit

Outlook это воспринимает как вмешательство и вылетает сообщение "Программа пытается автоматически отправить сообщение от вашего имени. Разрешить это действие? Возможно это свидетельствует о наличии вируса, и следует выбрать ответ "Нет".
"Да"/"Нет".
Даже если жму "Да" сообщение все равно не отпровляется. Может кто подскажет в чем дело? И как убрать это сообщение?
...
Рейтинг: 0 / 0
Отправка email из VBScript
    #33231102
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот по этому мы и отказались от Office'XP и снесли SP3 для Office'2000.
Способов отключить это сообщение, если Office'2000, нет. Если Office'XP, то читать вот это - но это головная боль...
...
Рейтинг: 0 / 0
Отправка email из VBScript
    #33231133
RTFM-AGAIN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
MSDN
'VBScript
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iBp
Dim Flds

Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = 2 'cdoSendUsingPort
Flds(cdoSMTPServer) = "MySMTPServer"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = 0 'cdoAnonymous
Flds.Update

With iMsg
Set .Configuration = iConf
.To = "someone@microsoft.com, another@microsoft.com"
.From = "thirdperson@microsoft.com, fourth@microsoft.com"
.Sender = "finally@microsoft.com"
.Subject = "Files for Monday's meeting."
.TextBody = "Please review the attached files for Monday's meeting. Thanks." + vbLfCr + vbLfCr

Set iBp = .AddAttachment("c:\somefile.doc")
iBp.ContentMediaType="application/msword"
Set iBp = .AddAttachment("c:\anotherfile.html")
iBp.ContentMediaType="text/html"

.Send
End With


И никаких Outlook-ов...

З.Ы. Active-X компоненты CDO по-умолчанию ставятся во все винды, начиная с 2000-го, для более ранних версий есть возможность проставить их вместе с Microsoft Outlook 98 и выше, или Microsoft Exchange Server version 5.5 и выше...

З.З.Ы. расшифровки для некоторых констант объектной модели CDO, используемых в приведенном выше скрипте (имена полей в коллекции iConf.Fields):
MSDN
cdoAutoPromoteBodyParts "http://schemas.microsoft.com/cdo/configuration/autopromotebodyparts"
cdoFlushBuffersOnWrite "http://schemas.microsoft.com/cdo/configuration/flushbuffersonwrite"
cdoHTTPCookies "http://schemas.microsoft.com/cdo/configuration/httpcookies"
cdoLanguageCode "http://schemas.microsoft.com/cdo/configuration/languagecode"
cdoNNTPAccountName "http://schemas.microsoft.com/cdo/configuration/nntpaccountname"
cdoNNTPAuthenticate "http://schemas.microsoft.com/cdo/configuration/nntpauthenticate"
cdoNNTPConnectionTimeout "http://schemas.microsoft.com/cdo/configuration/nntpconnectiontimeout"
cdoNNTPServer "http://schemas.microsoft.com/cdo/configuration/nntpserver"
cdoNNTPServerPickupDirectory "http://schemas.microsoft.com/cdo/configuration/nntpserverpickupdirectory"
cdoNNTPServerPort "http://schemas.microsoft.com/cdo/configuration/nntpserverport"
cdoNNTPUseSSL "http://schemas.microsoft.com/cdo/configuration/nntpusessl"
cdoPostEmailAddress "http://schemas.microsoft.com/cdo/configuration/postemailaddress"
cdoPostPassword "http://schemas.microsoft.com/cdo/configuration/postpassword"
cdoPostUserName "http://schemas.microsoft.com/cdo/configuration/postusername"
cdoPostUserReplyEmailAddress "http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress"
cdoPostUsingMethod "http://schemas.microsoft.com/cdo/configuration/postusing"
cdoSaveSentItems "http://schemas.microsoft.com/cdo/configuration/savesentitems"
cdoSendEmailAddress "http://schemas.microsoft.com/cdo/configuration/sendemailaddress"
cdoSendPassword "http://schemas.microsoft.com/cdo/configuration/sendpassword"
cdoSendUserName "http://schemas.microsoft.com/cdo/configuration/sendusername"
cdoSendUserReplyEmailAddress "http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress"
cdoSendUsingMethod "http://schemas.microsoft.com/cdo/configuration/sendusing"
cdoSMTPAccountName "http://schemas.microsoft.com/cdo/configuration/smtpaccountname"
cdoSMTPAuthenticate "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
cdoSMTPConnectionTimeout "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
cdoSMTPServer "http://schemas.microsoft.com/cdo/configuration/smtpserver"
cdoSMTPServerPickupDirectory "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory"
cdoSMTPServerPort "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
cdoSMTPUseSSL "http://schemas.microsoft.com/cdo/configuration/smtpusessl"
cdoURLGetLatestVersion "http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion"
cdoURLProxyBypass "http://schemas.microsoft.com/cdo/configuration/urlproxybypass"
cdoURLProxyServer "http://schemas.microsoft.com/cdo/configuration/urlproxyserver"
cdoUseMessageResponseText "http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext"
...
Рейтинг: 0 / 0
Отправка email из VBScript
    #33231162
rumka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Отправка email из VBScript
    #34373632
LoadMAster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
блин не работает ....
выдает ошибку на 2 строчку set ! все слова set выделяет как не правельные.....
что делать ? просто необходимо .... мож я чет не прочитал ?
И раньше программировал на vb но без выхода в интернет....
какой компонент надо добавить или что мне делать ! ??????
моя почта vdonsk@bk.ru - жду письма это важно ! :)
...
Рейтинг: 0 / 0
Отправка email из VBScript
    #34374522
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
попробуй

=Server.CreateObject("CDO.Configuration")
...
Рейтинг: 0 / 0
Отправка email из VBScript
    #34375185
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
RTFM-AGAINИ никаких Outlook-ов...

SMTP может быть и заблокирован...

С Outlook-ом без проблем можно отправить если воспользоваться этой ссылкой .
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отправка email из VBScript
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]