[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]

сейчас проверю и отпишусь

УРАААААААА!))))))) ОГРМОНОЕ ВАМ СПАСИБО, ISKA!!!
ВЫ ПРОФЕССИОНАЛ ВЫСШЕГО КЛАССА!! И ЧЕЛОВЕК ДАННЫЙ ОТ БОГА!!!
НИЗКИЙ ВАМ ПОКЛОН! ВСЕ РАБОТАЕТ!!!
ХОТЕЛ,спросить еще , со временем смс не уйдут в бан??
мне на работе нужно будет постоянно это отправлять... каждый день.....
Возможно ли такое что mail.ru заблокирует такую отсылку со временем?!

[NEOINFORMATIONIS]

ISKA, еще раз выражаю вам благодарность за оказанную помощь!!!
Но есть еще просьба , дописать в коде чтобы он отправлял мой внешний ip адрес на ту же почту.

Если Вас не затруднит , пожалуйста, помогите провернуть это.

[Iska]

NEOINFORMATIONIS, тогда надо начать с определения подходящего сервера, который будет в состоянии определять Ваш внешний текущий ip-адрес.

Что Вам говорит, например, http://ifconfig.me/ip (конкретики не надо, достаточно указать, что приведённый им адрес соответствует действительности)?

ХОТЕЛ,спросить еще , со временем смс не уйдут в бан?? »

Какие «смс»?

Возможно ли такое что mail.ru заблокирует такую отсылку со временем?! »

Возможно. Зайдёте и «ручками» укажете, что это не спам. Добавите адресат в белый список.

[NEOINFORMATIONIS]

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

[Iska]

Ответьте на вопрос, заданный мною в предыдущем сообщении.

данный документ которую нужно будет отправить на почту через (vbs скрипт) »

Что это за документ? С какой периодичностью он появляется в каталоге? Откуда он там появляется? Что с ним происходит далее?

P.S. И научитесь уже пользоваться тэгами. А не Caps Lock'ом.

[NEOINFORMATIONIS]

Документ создается автоматически каждый раз когда его запускаю.... он создается то сразу то через некоторое время.... установить время нет возможности все по разному. может минут через 5 может минут через 1,5мин,2,5мин... Чтобы времени не терять желательно чтобы мониторил каждые 5 сек на наличии этого документа. Сам документ обычный текстовик .txt. Мне нужно,чтобы в выше указанном коде как только появляется докумен сразу же отправлялся на почту.

Вот такая вот задача.

[Iska]

Документ создается автоматически каждый раз когда его запускаю.... он создается то сразу то через некоторое время.... установить время нет возможности все по разному. может минут через 5 может минут через 1,5мин,2,5мин... »

Не стесняйтесь, рассказывайте подробно — что за документ, и как именно и чем он создаётся. Чем больше будет деталей, тем лучше.

P.S. Повторяю ещё раз — ответьте на вопрос:

Что Вам говорит, например, http://ifconfig.me/ip (конкретики не надо, достаточно указать, что приведённый им адрес соответствует действительности)? »

[NEOINFORMATIONIS]

Ок, дело вот в чем, я учусь на информацинной безопасности, (студент) Мне задали задачу создать скрипт который бы отсылал любой текстовый документ будь то из базы 1с, или word и тд.
на почту. Документ выгружается из 1С каждый раз при создания бекапа... но в моем случаи время может быть разной...т.к. на разных пк время по разному установлена. Проще говоря мой скрипт должен сразу отправлять сохраненные данные из локальной сети мне на почту. Ибо все сотрудники в разное время сохраняют материал, как только они сохранили информацию, документы должны сразу же отправляться из указанной директории мне на почту или на почту иного лица не суть. вот и нужно мониторить на наличии материала в папке
+ ко всему этому нужно (желательно) отправить и мой ip адрес на почту, чтобы удостоверить с какой машины был отправлен документ.

Короче говоря, документ появляется каждые 2-3-4-5 минут в папке расположенный скажем по такому адресу: C:\Мои проекты\0135\txt.
И как только появиться сразу же он должен отправиться на почту. Чтобы сэкономить время необходимо проверять на наличие этого текстового документа каждые скажем 5 сек, как только появиться этот документ он отправит на почту.
Вот и вся задача. Парень который ведет у нас лабы аспирант, иногда такую дичь задает что так и хочется им сказать в лицо.... Но куда деваться, мне надо это только пережить.

19 числа этого месяца должен ему сдать работу.
Сделаю пойду в гору, (зачет) а не сделаю пойду в жопу, вот такой вот условие мне он поставил.

[NEOINFORMATIONIS]

На счет скрипта с отправкой 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??!