Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отправка email из VBScript / 7 сообщений из 7, страница 1 из 1
24.08.2005, 08:43
    #33231078
rumka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отправка email из VBScript
Пытаюсь отправить 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
24.08.2005, 09:11
    #33231102
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отправка email из VBScript
Вот по этому мы и отказались от Office'XP и снесли SP3 для Office'2000.
Способов отключить это сообщение, если Office'2000, нет. Если Office'XP, то читать вот это - но это головная боль...
...
Рейтинг: 0 / 0
24.08.2005, 09:38
    #33231133
RTFM-AGAIN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отправка email из VBScript
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
24.08.2005, 09:58
    #33231162
rumka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отправка email из VBScript
Спасибо.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
06.03.2007, 11:13
    #34373632
LoadMAster
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отправка email из VBScript
блин не работает ....
выдает ошибку на 2 строчку set ! все слова set выделяет как не правельные.....
что делать ? просто необходимо .... мож я чет не прочитал ?
И раньше программировал на vb но без выхода в интернет....
какой компонент надо добавить или что мне делать ! ??????
моя почта vdonsk@bk.ru - жду письма это важно ! :)
...
Рейтинг: 0 / 0
06.03.2007, 14:12
    #34374522
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отправка email из VBScript
попробуй

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

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

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


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