|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Отправка почты на VBS (нужна помощь в доработке скрипта) |
|
||||
|
|
VBS/WSH/JS - [решено] Отправка почты на VBS (нужна помощь в доработке скрипта)
|
|
Пользователь Сообщения: 132 |
Уважаемые, помогите еще с одним вопросом если не сложно.
Нашел тут случайно скриптик типа как я понял отправки почты. Сам я в этом не волоку, потому и прошу, посмотрите пож-ста его, Я так думаю что он не законченный или я непонял как им пользоваться... По крайней мере подставлял все данные и не работает... Вот сам скрипт - Код:
 Option Explicit
Dim objFSO, objFile
Dim strPath2SourceFolder, strMessage, strheadlist
Dim intPrefixб Count, Message, iConf, Flds
strPath2SourceFolder = "директория расположения контролируемых файлов"
strMessage = vbNullString
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder(strPath2SourceFolder).Files
if UCase(objFSO.GetExtensionName(objFile.Name)) = UCase("dbf") And _
DateDiff("D", objFile.DateLastModified, Now) = 0 Then
Count=Count+1
strMessage = strMessage & Count & ". " & objFSO.GetFileName(objFile.Name) & vbCrLf
Attach = "" & strPath2SourceFolder & objFSO.GetFileName(objFile.Name) _
& "" ' * Получаем имя файла с путем
End If
Message.AddAttachment (Attach) ' * Описываем вложение для отправки
next
strMessage = "Следующие файлы были изменены:" & vbCrLf & strMessage
strMessage = strMessage & vbCrLf & "Всего измененных файлов: "& Count
if Count > 0 Then
' непосредственно блок работы с почтой ---------------------------------------------------------------------------------
Set Message = CreateObject("CDO.Message")
Message.To = "кому@mail.ru"
Message.From = "от_кого@mail.ru"
Message.Subject = "RE: ! Warning!"
Message.TextBody = strMessage
Message.BodyPart.Charset = "windows-1251"
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Ваш_пароль"
Flds.Update
Message.Configuration = iConf
Message.Send
End If
|
|
|
Отправлено: 18:13, 12-02-2011 |
|
Ветеран Сообщения: 1001
|
Профиль | Отправить PM | Цитировать Вы лучше задачу объясните - что должен делать скрипт для ваших задач
|
|
Последний раз редактировалось Ivan Bardeen, 12-02-2011 в 19:57. Отправлено: 18:43, 12-02-2011 | #2 |
|
Пользователь Сообщения: 132
|
Профиль | Отправить PM | Цитировать Ivan Bardeen
...Ну я сейчас пользуюсь "Blat.exe", думаю что это альтернатива ему только на vbs, и хочу подробнее узнать как он работает и что в нем не так на данный момент. Благодарю... |
|
Отправлено: 22:04, 12-02-2011 | #3 |
|
Ветеран Сообщения: 1001
|
Профиль | Отправить PM | Цитировать Цитата registeruser1:
|
|
|
Отправлено: 22:25, 12-02-2011 | #4 |
|
Пользователь Сообщения: 132
|
Профиль | Отправить PM | Цитировать Ivan Bardeen
Использую "Blat.exe" в организации для отправки логов и отчетов (не большой сервак завел специально для этого), начальник ругается на этот "Blat.exe" (не доверяет таким утилитам в принципе, когда не видит исполняемый код), но выполняемые функции сервера важны и не хочется из-за не доверия начальника выключать сервак. Вот и ищу по сей день альтернативу "Blat.exe", а тут как раз весь код виден и думаю что начальник мой успокоится посмотрев код. Просто сам в скриптах не разбираюсь, вот и хотелось бы разъяснений как он работает, сам не допер пока... "Blat.exe" у меня в основном берет из файла отчетов (txt) и отправляет в html-формате (само тело письма в html) письмо. Адресатов берет тоже из файла (txt)... И любые указанные в параметрах "Blat.exe" вложения может отправлять... Заранее благодарю... |
|
|
Отправлено: 22:44, 12-02-2011 | #5 |
|
Пользователь Сообщения: 132
|
Профиль | Отправить PM | Цитировать Нашел вроде бы пишут что рабочий скрипт, но он не работает, сразу ругается...
В чем именно грабли не пойму... Код:
Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
objMsg.From = "from@domain.ru"
objMsg.To = "to@domain.ru"
objMsg.Subject = "Test sending email from sсriрt"
objMsg.Textbody = "This is a body of E-mail."
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-server"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"
Config.Fields.Update
objMsg.Send
|
|
Отправлено: 09:21, 13-02-2011 | #6 |
|
Ветеран Сообщения: 1001
|
Профиль | Отправить PM | Цитировать Вот, рабочий VBS скрипт, без аутентификации на smtp сервере(так проще)
Код:
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Script@domain.local"
objEmail.To = "bardeen@domain.com"
objEmail.Subject = "Тема письма "
objEmail.Textbody = "содержимое письма "
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.local"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
|
|
Отправлено: 10:30, 14-02-2011 | #7 |
|
Пользователь Сообщения: 132
|
Профиль | Отправить PM | Цитировать Ivan Bardeen
Спасибо большое, очень помогли мне... |
|
Отправлено: 14:23, 14-02-2011 | #8 |
|
Новый участник Сообщения: 8
|
Профиль | Отправить PM | Цитировать НУ вот у меня с вашими скриптами ничего не получалось,выдавал ошибку 8004023,но в итоге просто пришлось поменять smtp порт,в итоге:
Set objMsg = CreateObject("CDO.Message") Set Config = CreateObject("CDO.Configuration") Set Config = objMsg.Configuration objMsg.From = "name@mail.ru" objMsg.To = "name@gmail.com" objMsg.Subject = "Test sending email from sсriрt" objMsg.Textbody = "This is a body of E-mail." Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "94.100.177.1" 'это ip сервера smtp.mail.ru Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525 Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "name@mail.ru" Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" Config.Fields.Update objMsg.Send |
|
Отправлено: 11:46, 24-05-2011 | #9 |
Пользователь Сообщения: 57
|
Профиль | Отправить PM | Цитировать всем привет. Есть такой вот скрипт для отправки почты по маске с расширением pdf из определенной папки.
Мне нужно чтобы скрипт оправлял все файлы по маске которые появились за прошедший 1 час не только из одной папки, а и со всех его подпапок, в том числе и скрытых. Помогите разобраться как реализовать. DIM Mas() Set objShellApp = CreateObject("Shell.Application") FolderPath = "C:\FOLDER\" Set objFolderItems = objShellApp.NameSpace(FolderPath).Items() objFolderItems.Filter 64, "*.pdf" n = 0 For Each objFolderItem In objFolderItems n = n +1 ReDIM Preserve Mas(n) Mas(n)=objFolderItem.Path Next Set oMyMail = CreateObject("CDO.Message") oMyMail.BodyPart.Charset = "windows-1251" oMyMail.To = "admin@domain.local" oMyMail.From = "admin@domain.local" lft=LBound(Mas) rgt=UBound(Mas) For i=lft To rgt oMyMail.AddAttachment Mas(i) Next oMyMail.Subject = "нужные файлы во вложении" oMyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 omyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.1.0.155" omyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 omyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "domain\user" omyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "true" oMyMail.Configuration.Fields.Update oMyMail.Send |
|
Отправлено: 14:53, 17-02-2014 | #10 |
|
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| VBS/WSH/JS - Помогите в доработке скрипта на JavaScript | SReg | Программирование и базы данных | 1 | 13-02-2009 01:13 | |
| Любой язык - [архив] Нужна помощь в написании BAT | CMD | VBS | WSH файлов | 0bject | Скриптовые языки администрирования Windows | 614 | 19-01-2009 21:58 | |
| [решено] отправка почты из скрипта | elfoflorien | Вебмастеру | 16 | 04-11-2006 21:51 | |
| Нужна помощь в написании скрипта | Magnus | Вебмастеру | 7 | 06-05-2005 10:53 | |
| Нужна помощь в подборе скрипта и в дизайне | Guest | Вебмастеру | 3 | 18-10-2003 11:05 | |
|
|
Время: 21:06. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
