|
|
|
Отправка email из VBScript
|
|||
|---|---|---|---|
|
#18+
Пытаюсь отправить 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 это воспринимает как вмешательство и вылетает сообщение "Программа пытается автоматически отправить сообщение от вашего имени. Разрешить это действие? Возможно это свидетельствует о наличии вируса, и следует выбрать ответ "Нет". "Да"/"Нет". Даже если жму "Да" сообщение все равно не отпровляется. Может кто подскажет в чем дело? И как убрать это сообщение? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.08.2005, 08:43 |
|
||
|
Отправка email из VBScript
|
|||
|---|---|---|---|
|
#18+
Вот по этому мы и отказались от Office'XP и снесли SP3 для Office'2000. Способов отключить это сообщение, если Office'2000, нет. Если Office'XP, то читать вот это - но это головная боль... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.08.2005, 09:11 |
|
||
|
Отправка email из VBScript
|
|||
|---|---|---|---|
|
#18+
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" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.08.2005, 09:38 |
|
||
|
Отправка email из VBScript
|
|||
|---|---|---|---|
|
#18+
Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.08.2005, 09:58 |
|
||
|
Отправка email из VBScript
|
|||
|---|---|---|---|
|
#18+
блин не работает .... выдает ошибку на 2 строчку set ! все слова set выделяет как не правельные..... что делать ? просто необходимо .... мож я чет не прочитал ? И раньше программировал на vb но без выхода в интернет.... какой компонент надо добавить или что мне делать ! ?????? моя почта vdonsk@bk.ru - жду письма это важно ! :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.03.2007, 11:13 |
|
||
|
Отправка email из VBScript
|
|||
|---|---|---|---|
|
#18+
попробуй =Server.CreateObject("CDO.Configuration") ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.03.2007, 14:12 |
|
||
|
Отправка email из VBScript
|
|||
|---|---|---|---|
|
#18+
RTFM-AGAINИ никаких Outlook-ов... SMTP может быть и заблокирован... С Outlook-ом без проблем можно отправить если воспользоваться этой ссылкой . ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.03.2007, 16:45 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=243&tid=2164383]: |
0ms |
get settings: |
15ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
40ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
35ms |
get tp. blocked users: |
1ms |
| others: | 205ms |
| total: | 327ms |

| 0 / 0 |
