Показать полную графическую версию : [решено] НУЖЕН Скрипт на VBS ДЛЯ отправки документа на почту
NEOINFORMATIONIS
16-11-2019, 14:16
Здравствуйте, уважаемые формумчане, и профессионалы высокого класса люди.
Помогите пожалуйста создать скрипт на vbs чтобы без сторонних утилит и программ отправлял на почту @mail.ru,bk.ru,list.ru и тд. текстовый (документ.txt.)
перепробовал кучу вариантов ничего не работает!!! :(
Я новичок в этом деле, нужен готовый рабочий скрипт чтобы я вставил туда свои данные и все!!!
NEOINFORMATIONIS, на какой ОС будет работать скрипт?
NEOINFORMATIONIS
16-11-2019, 15:13
windows 7
Скрипт будет работать на операционной системе windows
NEOINFORMATIONIS
16-11-2019, 17:52
Господа, очень прошу вас помочь мне с этим скриптом, нужен рабочий скрипт!!!
вот нашел такой скрипт: Но он не работает, кто-нибудь может помочь с настройкой данного скрипта или есть альтернативный вариант??!
Set objMessage = CreateObject("CDO.Message")
emailFrom = "test@mail.ru"
objMessage.Subject = "Проверка"
objMessage.From = emailFrom
objMessage.To = "test@mail.ru"
objMessage.TextBody = "Загаловок"
objMessage.AddAttachment "Путь до файла"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = emailFrom
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Пароль от почты"
objMessage.Configuration.Fields.Update
objMessage.Send
NEOINFORMATIONIS
16-11-2019, 19:09
Уважаемый Iska Iska , прошу вас если есть возможность помочь мне посоветуйте что нибудь ...
Не обязательно на VBS можно на любом другом языке главное чтобы работал и был прост!
Пробуйте:
Option Explicit
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"
Dim strSourceFile
strSourceFile = "C:\Мои проекты\0135\Sample.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strSourceFile) Then
With WScript.CreateObject("CDO.Message")
.From = "NameFrom@mail.ru"
.To = "NameTo@mail.ru"
.Subject = "File [" & strSourceFile & "]"
.TextBody = "Мама мыла раму"
.TextBodyPart.Charset = "windows-1251"
.AddAttachment strSourceFile
With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "NameFrom@mail.ru"
.Item(strConstPartOfSchema & "sendpassword") = "***Password here***"
.Item(strConstPartOfSchema & "smtpusessl") = True
.Update
End With
.Send
End With
Else
WScript.Echo "Source file [" & strSourceFile & "] not found."
WScript.Quit 1
End If
End With
WScript.Quit 0
NEOINFORMATIONIS
17-11-2019, 12:10
Сейчас попробую и отпишусь!!! :)
Не работает данный код выдает ошибку...
Строка: 1 Символ : 1 Ошибка : несоответсвие типа: !pation" код: 800А00D
вот почта с которой нужно отправить документ на почту: dostupmne@bk.ru пароль: 12345qwW
почта получателя: dostupdai@bk.ru
NEOINFORMATIONIS
17-11-2019, 12:28
ISKA, помогите пожалуйста разобраться с этим скриптом, ввожу все данные как вы и указали но выдает ошибку. Я написал Вас адрес электронной почты с которой нужно отправить, чтобы вы сами лично убедились что не работает скрипт либо я что та не так вбил!!!жду помощи
Не работает данный код выдает ошибку...
Строка: 1 Символ : 1 Ошибка : несоответсвие типа: !pation" код: 800А00D »
Подробно расскажите, что Вы делаете с приведённым кодом. Покажите скриншот с ошибкой.
NEOINFORMATIONIS
17-11-2019, 12:40
Сейчас скину вам код со своими данными
Вот, пожалуйста, вот так я заполняю данные, и ничего не работает.
Option Explicit
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"
Dim strSourceFile
strSourceFile = "C:\Users\Admin\Documents\honestech TVR\документ.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strSourceFile) Then
With WScript.CreateObject("CDO.Message")
.From = "dostupmne@bk.ru"
.To = "dostupdai@bk.ru"
.Subject = "File [" & strSourceFile & "]"
.TextBody = "Мама мыла раму"
.TextBodyPart.Charset = "windows-1251"
.AddAttachment strSourceFile
With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "dostupmne@bk.ru"
.Item(strConstPartOfSchema & "sendpassword") = "***12345qwW***"
.Item(strConstPartOfSchema & "smtpusessl") = True
.Update
End With
.Send
End With
Else
WScript.Echo "Source file [" & strSourceFile & "] not found."
WScript.Quit 1
End If
End With
WScript.Quit 0
159543
159544
http://forum.oszone.net/attachment.php?attachmentid=159544&stc=1&d=1573984197
Я скинул скриншот ошибки, попробуйте с моими данными которые я вам скинул.... ничего не работает, может я что та не так делаю??
Я беру этот код, ввожу свои данные: почта отправителя, пароль отправителя, место положение документа который нужно отправить и почту получателя все!!!
потом все это сохраняю с расширением vbs. и запускаю его и выдает эту ошибку!!!
Если Вам не сложно, проверьте пожалуйста у себя этот код!!!
Вот мои данные от почты:
отправитель: логин: dostupmne@bk.ru пароль: 12345qwW
получатель: dostupdai@bk.ru
ISKA, надеюсь на Вас!!!
NEOINFORMATIONIS, успешно отправил сообщение, воспользовавшись указанными Вами данными:
Option Explicit
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"
Dim strSourceFile
strSourceFile = "C:\Мои проекты\0135\Sample.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strSourceFile) Then
With WScript.CreateObject("CDO.Message")
.From = "dostupmne@bk.ru"
.To = "dostupdai@bk.ru"
.Subject = "File [" & strSourceFile & "]"
.TextBody = "Мама мыла раму"
.TextBodyPart.Charset = "windows-1251"
.AddAttachment strSourceFile
With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "dostupmne@bk.ru"
.Item(strConstPartOfSchema & "sendpassword") = "12345qwW"
.Item(strConstPartOfSchema & "smtpusessl") = True
.Update
End With
.Send
End With
Else
WScript.Echo "Source file [" & strSourceFile & "] not found."
WScript.Quit 1
End If
End With
WScript.Quit 0
Проверяйте.
NEOINFORMATIONIS
17-11-2019, 14:13
сейчас проверю и отпишусь :)
УРАААААААА!))))))) ОГРМОНОЕ ВАМ СПАСИБО, ISKA!!!
ВЫ ПРОФЕССИОНАЛ ВЫСШЕГО КЛАССА!! И ЧЕЛОВЕК ДАННЫЙ ОТ БОГА!!!
НИЗКИЙ ВАМ ПОКЛОН! ВСЕ РАБОТАЕТ!!!
ХОТЕЛ,спросить еще , со временем смс не уйдут в бан??
мне на работе нужно будет постоянно это отправлять... каждый день.....
Возможно ли такое что mail.ru заблокирует такую отсылку со временем?!
NEOINFORMATIONIS
17-11-2019, 14:33
ISKA, еще раз выражаю вам благодарность за оказанную помощь!!!
Но есть еще просьба , дописать в коде чтобы он отправлял мой внешний ip адрес на ту же почту.
Если Вас не затруднит , пожалуйста, помогите провернуть это.
NEOINFORMATIONIS, тогда надо начать с определения подходящего сервера, который будет в состоянии определять Ваш внешний текущий ip-адрес.
Что Вам говорит, например, http://ifconfig.me/ip (конкретики не надо, достаточно указать, что приведённый им адрес соответствует действительности)?
ХОТЕЛ,спросить еще , со временем смс не уйдут в бан?? »
Какие «смс»?
Возможно ли такое что mail.ru заблокирует такую отсылку со временем?! »
Возможно. Зайдёте и «ручками» укажете, что это не спам. Добавите адресат в белый список.
NEOINFORMATIONIS
17-11-2019, 17:17
ISKA, я столкнулся с одной очень неприятной проблемой, и ломаю над этим голову.
Скрипт который вы мне сделали работает хорошо, НО, проблема заключается в том, что данный документ которую нужно будет отправить на почту через (vbs скрипт) появляется не сразу а через некоторое время, точно предугадать время появлении нет возможности. И по этому думаю как бы сделать так,чтобы этот скрипт (vbs.) который и должен отправить на почту появившийся документ, проверял на наличии этого самого документа и только потом его отправлял на почту?!
ISKA, ВОЗМОЖНО ДОПИСАТЬ В ЭТОМ КОДЕ , ЧТОБЫ ПЕРЕД ОТПРАВКОЙ НА ПОЧТУ ОНА ПРОВЕРЯЛА ЭТОТ ДОКУМЕНТ В ЭТОЙ ЖЕ ПАПКЕ ... НА СУЩЕСТВОВАНИИ ДАННОГО ДОКУМЕНТА, КАК ТОЛЬКО ДОКУМЕНТ ПОЯВИТСЯ ОН СРАЗУ ЖЕ ОТПРАВИТ НА ПОЧТУ, А ДО ТЕХ ПОР БУДЕТ ЖДАТЬ ЕГО ПОЯВЛЕНИЯ!
А вот и сам код:
Option Explicit
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"
Dim strSourceFile
strSourceFile = "C:\Users\Admin\Documents\honestech TVR\документ.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strSourceFile) Then
With WScript.CreateObject("CDO.Message")
.From = "dostupmne@bk.ru"
.To = "dostupdai@bk.ru"
.Subject = "File [" & strSourceFile & "]"
.TextBody = "Мама мыла раму"
.TextBodyPart.Charset = "windows-1251"
.AddAttachment strSourceFile
With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "dostupmne@bk.ru"
.Item(strConstPartOfSchema & "sendpassword") = "***12345qwW***"
.Item(strConstPartOfSchema & "smtpusessl") = True
.Update
End With
.Send
End With
Else
WScript.Echo "Source file [" & strSourceFile & "] not found."
WScript.Quit 1
End If
End With
WScript.Quit 0
Ответьте на вопрос, заданный мною в предыдущем сообщении.
данный документ которую нужно будет отправить на почту через (vbs скрипт) »
Что это за документ? С какой периодичностью он появляется в каталоге? Откуда он там появляется? Что с ним происходит далее?
P.S. И научитесь уже пользоваться тэгами (http://forum.oszone.net/misc.php?do=bbcode). А не Caps Lock'ом.
NEOINFORMATIONIS
17-11-2019, 18:18
Документ создается автоматически каждый раз когда его запускаю.... он создается то сразу то через некоторое время.... установить время нет возможности все по разному. может минут через 5 может минут через 1,5мин,2,5мин... Чтобы времени не терять желательно чтобы мониторил каждые 5 сек на наличии этого документа. Сам документ обычный текстовик .txt. Мне нужно,чтобы в выше указанном коде как только появляется докумен сразу же отправлялся на почту.
Вот такая вот задача.
Документ создается автоматически каждый раз когда его запускаю.... он создается то сразу то через некоторое время.... установить время нет возможности все по разному. может минут через 5 может минут через 1,5мин,2,5мин... »
Не стесняйтесь, рассказывайте подробно — что за документ, и как именно и чем он создаётся. Чем больше будет деталей, тем лучше.
P.S. Повторяю ещё раз — ответьте на вопрос:
Что Вам говорит, например, http://ifconfig.me/ip (конкретики не надо, достаточно указать, что приведённый им адрес соответствует действительности)? »
NEOINFORMATIONIS
17-11-2019, 20:24
Ок, дело вот в чем, я учусь на информацинной безопасности, (студент) Мне задали задачу создать скрипт который бы отсылал любой текстовый документ будь то из базы 1с, или word и тд.
на почту. Документ выгружается из 1С каждый раз при создания бекапа... но в моем случаи время может быть разной...т.к. на разных пк время по разному установлена. Проще говоря мой скрипт должен сразу отправлять сохраненные данные из локальной сети мне на почту. Ибо все сотрудники в разное время сохраняют материал, как только они сохранили информацию, документы должны сразу же отправляться из указанной директории мне на почту или на почту иного лица не суть. вот и нужно мониторить на наличии материала в папке
+ ко всему этому нужно (желательно) отправить и мой ip адрес на почту, чтобы удостоверить с какой машины был отправлен документ.
Короче говоря, документ появляется каждые 2-3-4-5 минут в папке расположенный скажем по такому адресу: C:\Мои проекты\0135\txt.
И как только появиться сразу же он должен отправиться на почту. Чтобы сэкономить время необходимо проверять на наличие этого текстового документа каждые скажем 5 сек, как только появиться этот документ он отправит на почту.
Вот и вся задача. Парень который ведет у нас лабы аспирант, иногда такую дичь задает что так и хочется им сказать в лицо.... Но куда деваться, мне надо это только пережить.
19 числа этого месяца должен ему сдать работу.
Сделаю пойду в гору, (зачет) а не сделаю пойду в жопу, вот такой вот условие мне он поставил.
:( :(
NEOINFORMATIONIS
17-11-2019, 20:41
На счет скрипта с отправкой ip на почту я кое что написал.... но она работает не со всем так как нужно! Если он код сам увидит то спалюсь... и не посчитает работу. Сейчас выложу сам код.
А вот и сам скрипт :
Const navOpenInBackgroundTab = &H1000
Set ie = CreateObject("InternetExplorer.Application")
Links = Array("http://speed-tester.info/link2/405623/")
ie.Visible = false '// поставьте false, чтобы не было видно браузера
first = True
For Each link In Links
If first Then
ie.Navigate2 link
first = False
Else
ie.Navigate2 link, navOpenInBackgroundTab
End If
Next
WScript.Sleep(60000) '// Задержка 60 сек.
For Each Window In CreateObject("Shell.Application").Windows
With Window
If .Name = "Windows Internet Explorer" Then
For Each link In Links
If InStr(1, .LocationURL, Title, vbTextCompare) <> 0 Then
.Quit
Exit For
End If
Next
End If
End With
Next
иначе говоря она скрытно запускает браузер переходит по ссылке а та в свое время определяет ip адрес мой.
все делает в тихом режиме.
Но такая работа безнадобность!!!
Нужен другой способ по правильному, чтобы отсылал ip на почту.
Что скажете ISKA??!
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.