[Iska]

NEOINFORMATIONIS, на какой ОС будет работать скрипт?

[NEOINFORMATIONIS]

windows 7

Скрипт будет работать на операционной системе windows

[NEOINFORMATIONIS]

Господа, очень прошу вас помочь мне с этим скриптом, нужен рабочий скрипт!!!

вот нашел такой скрипт: Но он не работает, кто-нибудь может помочь с настройкой данного скрипта или есть альтернативный вариант??!

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]

Уважаемый Iska Iska , прошу вас если есть возможность помочь мне посоветуйте что нибудь ...

Не обязательно на VBS можно на любом другом языке главное чтобы работал и был прост!

[Iska]

Пробуйте:

Скрытый текст

Код:

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]

Сейчас попробую и отпишусь!!!

Не работает данный код выдает ошибку...
Строка: 1 Символ : 1 Ошибка : несоответсвие типа: !pation" код: 800А00D

вот почта с которой нужно отправить документ на почту: dostupmne@bk.ru пароль: 12345qwW
почта получателя: dostupdai@bk.ru

[NEOINFORMATIONIS]

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

[Iska]

Не работает данный код выдает ошибку... Строка: 1 Символ : 1 Ошибка : несоответсвие типа: !pation" код: 800А00D »

Подробно расскажите, что Вы делаете с приведённым кодом. Покажите скриншот с ошибкой.

[NEOINFORMATIONIS]

Сейчас скину вам код со своими данными

Вот, пожалуйста, вот так я заполняю данные, и ничего не работает.

Код:

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

111.jpg

111.jpg


http://forum.oszone.net/attachment.p...1&d=1573984197

Я скинул скриншот ошибки, попробуйте с моими данными которые я вам скинул.... ничего не работает, может я что та не так делаю??

Я беру этот код, ввожу свои данные: почта отправителя, пароль отправителя, место положение документа который нужно отправить и почту получателя все!!!
потом все это сохраняю с расширением vbs. и запускаю его и выдает эту ошибку!!!

Если Вам не сложно, проверьте пожалуйста у себя этот код!!!
Вот мои данные от почты:
отправитель: логин: dostupmne@bk.ru пароль: 12345qwW
получатель: dostupdai@bk.ru

ISKA, надеюсь на Вас!!!